7 FXErUTE PaTCH/MERGF 



PACKfT 
INPUT 
TlMp 
DATE 



1 

1553 
77234 



CARDS FROM CRA 
MONDAY* OB/22/77 



*** BURROUnHS B5700 DCMcP MARK XVI. 0,73 AMD INTRINSICS MARK XVI, 0,00 *♦♦ 

#N0 MESSAGES TODAY 

? EXECUTE PATCh/MfRGE 

? FILE CARns PMCARd 
? DATA PMCARO 

4tPATCw/MFRGE» 1 BOJ 1553 05/12/77 

CDA IN PMCARD»PATCH/MERGE» 1 

PBoooo? OUT Oil Ltneipatch/meRge* I 

DKA OUT SpR MASTERF UOOOOOO »PATCH/MERGE» I 

DKA in SfR PATCH FSPOL » PATCH/MpRGE. 1 

DKA OUT SER PATCHDE UOOOOOO « PATCH/MERGEa 1 

CDA REI, PMCARD»PATCH/MERGE« 1 



? END 



DKA REL PATCHDe UOOOOOO J PATCh/MERGE» 1 

DKA Rei, patch FSPOL«PATCh/HERGE« 1 

PBDOOO? ReL On line iBOejPATCH/MERGE" 1 

DkA REi, MASTERF UOOOOOO » PATCh/mERGE« 1 

PATCH/mERGEs 1 EOj 1555 

FOR PATCH/MERGE* U PRoCESS» 65 SECS, lOs 43 SECS. OLAYa 

pkt#oooi removed 



LABEL OOOnOOOOOLlNF 00177234? rXFCUTE PATcH/MERfiE 

BURROUGHS P-5700 PATCH/MERgE PROQRAM MARK XVI. 0.104 



PATCH /MERGE 



MONDAY. 08/22/77. 3l53 PM. 



*****^:*^,** 



INPUT 



**********>¥******************** ^i***************#**t,n,*^H,^t***^**,^^^,^H,t,^t*i,^i^m******** 



SPcARn CONFLICTS LtSTi MeRGF zip 

*. 18 patchfs for rSPOL 



c 
c 



ooooooo/pmcard 



CARD INPUT IS PMCARD 

patchES/espol iS not on Disk 

PATCH /ESpOl will BE MERGED 



8*C0MPIlE ESPOL/DISK ALGOL LIBRARY 

S* ALGOL STftCK » 1000 

«*ALG0L file TAPE « SYMBOL/ESPOL DISK SERIAL 

** riLE LINE s LINE PRlKiT OR BACK UP 

S* DATA CARD 

$- ***** THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC ♦♦♦** 

»TAPE 

SSeT LISTA single FORMAT PPT XRfF 



C 
C 
C 
C 
C 
C 
C 
C 



**PATCH NUMBER lOl FOR fSPOL CONTAINS 2 CARDS 

fF T . TNFOfGTl, GT?] THEN BEGIN 02877010 

T«s 01 GO TO COMPLETE END* 028770?0 

««ThIS PATCm ELEMINATeS a COMPILER LOOP CAUSED WHEN A FORMAL PARAMETER 
*l IN A PROCEDURE DECLARATION IS NOT INDICATED fN THE SPECIFICATION 

*« list: 

$t ********************************* **********^:*i^***^*******^,*:tt^**^t^i,^if^^ii,t 



P lOl PATCH /ESPOL 



P 
P 
P 
P 
P 
P 



lOl 
lOi 
lOl 
lOi 
lOl 
lOl 



SfPATcH NUMBER lO? FOR eSPOL COnTAJnS i CARD 

IF BUP * BUPJ«BUP- TAKE(BUP ♦ D.PURPT THEN 
S» THjS PATCH ELEMINATeS A COMPILER LOOP CAUSED WHEN THE FORMAL 
it PARAMETER IN A PROCEDURE DECLARATION IS FOLLOWED BY A COMMA. 

$t ****************************************** *^,*^***^,*****^i*^**^,^*,ti,^*^^^,^ 



14088000 



P 
P 
P 
P 



102 

102 
102 
102 
102 



i*PATrH NUMreR 103 FOR fSPOL CONTAINS 2 CARDS 



103 



rOUNDl 02315000 P IO3 

TF OPfNX 41>0PaRST7F: ThfN rLAG(602) ELSE % TOO MANY USr« OPTjONS 02316000 P IO3 

$1 THfS PATCH CORRfCTS aN tNVALtD INDEX CONDITION CAUSED WHEN TOO MANY P 1O3 

$1 USfR OPTIONS HAVE BEfN SPECIFIED. p 1 03 

$^**************1^**m***^^1^*******>^*****'¥******t^:*^,***,f****** ************** p 



103 



»*PaTcH NUMrfR 104 FOR pSPOU CONTAINS 4 CARDS p 1O4 

FlAG fl20)| 07025000 P 1O4 

FCRU aCR««MKABS(CBUFFr9l))-9> 07025010 P 1O4 

IF LiSTpR Then printcaroi 07025020 p lOa 

FCRI« (LCR»aMKABSfT«UFFr9]))-9 ENDI 070?5030 P lOfl 

$|ThIS PATCH CORRECTS A PROBLEM WHERE A PATCH CARD iS uOST WHEN BEGIN P 1O4 

SjEnO pairs are not MATCHED AND PATCH CARD SEQUENCE NUMBERS ARE GREATER P \0n 

StTHAN THE SEQUENCE NUMBER OF ThE "END. "CARD IN THE SOURCE FILE, P l04 

i I ********************* *******************^l**,^*^,)^*0n,*mtl.0*,^^,^,^,^^t,^^^^^,^^,^ p jq^ 



$« PATCH NUMBER 105 FOR FSPOL CONTAINS U CARdS P j 05 

tABEL ENdRE4DTAPf» fOfTj 02201510 P 105 

READ CTaPE. 10» TBUFF[*])rF0FTl> 02201750 P 105 

LCRI«MKaBS(TBUFF[9])J 02202000 P 105 

GO TO ENoRFAOTAPFi 02202010 P 105 

EOfTI 02202020 P 1O5 

0EFlNFARRAYr25H«"ND»END.-« -E''rH43«5i; 02202030 P 105 

DEFlNFARRAYr34]U-9999« 8 ♦'9999h f n 25 J 23 1 J 02202040 P l05 

TUCR<« MKABS(DEFlNEARRAYr34]); 02202050 P IO5 

PUTSEONO (DEFlNEARRAY[333fTLCR-8); 02202060 P IO5 

TURNONSTOPUTGHTfi;''. TLrR-8)J 02202070 P IO5 

ENdREADTAPfi 02202080 P 105 

tITHlS PATCH CORRECTS AN EOF NO LABEL ENCOUNTfRfO WhEN THE SOURCE P l05 

$« ♦•End." card is patched over and the patch deck contains CARD sequencf p 105 

sinUmbers greater Than the sequence number of The "end," card in the p ios 

s'SoUrce file, p 105 

$ I ************************* ***************,^**^,*t:**1,^*^,^,**i^,^^,^^i^i^^^^,^,^^^,^ 



p 105 



S#PATCH NUMRER 106 FOR fSPOL CONTAINS 2 CARDS, 

IF ERRNUM B 200 THEN I t» j/oi % SEGMENT TOO LARGE, 
IF ERRNUM a 611 THEN I J» t/O; X ERRMAX EXCEEDED, 

St DATE 6/27/75 

*t BY MwG - MSA CENTRAL^ 

$« THtS PATrH CAUSES ESpOL TO ABORT WiTh A DIVIDE BY ZERO ERROR FOR 

SI THF ERRORS "SEGMENT TOO LARGE" AND "ERRQR LIMIT EXCEEDED", 



S'PATCH NUMBER lOT' FOR f5>P0L CONTAINS 12 CARDS. 00000000 P l07 



00000000 


P 


106 


05107100 


P 


106 


05107200 


P 


106 


99990000 


P 


106 


99990100 


P 


106 


99990200 


P 


106 


99990300 


P 


106 



LAREL FX?T,NEXTChK> 

IF STf-Pi = ktrrkft Then % wp will take care of The 

IF fFlRST I. EL6ATtJ-31. ADDRESS) x 

fTHIRD is L'LDATri-n. ADDRESS) # THEN 
BFGIW 

SECOND := 48 " third; % SoUrCE IS RIGHT JUST, 

GO TO ne>^tchk; 

ELSE % BAD BITSi FALL THRqUgH To ERROR. 
ELSE ?! MAYBE A COLON, 

IF FLCLASS m COLON THEN % 

NEXTcHKl IF FIRST + THIRD <: 48 THEN % SO FaR SO GOOD. 

DATE 1/77/76 

BY JTC - MSA CENTRAL 

THiS PATCH ALTERS Thf SYNTAX FOR THF CONCATENATE OPERATOR TO ALLOW 

THF SECOND VALUf IN THE CONCAT. LIST TO BE OmITTfD (THE 

STARTING BiT nUmBER tN ThF SoURce WORD) IF ThE RtGhT-MOST 

N BITS ARE BEING SELfrCTED FROM THE SqURCE WORD, THDS 



IS The Same as 



T «a T R J r?S?0] 



1 «■ r 8 J r2l28l?0] 



THtS is fSPfCTALLY CONVfNteNt for ESPOL SINCE THIS ALLOWS SOME 
FIELD DEFINES TQ Be USED IN CONCATENATE EXPRESSIONS. THUS IF WE 
HAVE The FOLLOWING FtFLD DEFINITION 

PBIT 9 t?jn 

WE CAN USE The same field DEFINITION IN A COnCATENATL STATEMENT 
AS FOLLOWS 

OFSC je DESC ?; 1 PRIT 

NOtEI future PATCHES TO THE MCP A^D INTRiNsICS WiLL TAKE ADVANTAGE 
OF ThiS PATCH. 



06315000 


P 


107 


ReS063?0000 


P 


107 


063?0l00 


P 


107 


06320200 


P 


107 


06320300 


P 


107 


063?0400 


P 


107 


06320500 


P 


107 


06320600 


P 


J07 


06320700 


P 


107 


06320800 


P 


107 


06320900 


P 


107 


O6327'0O0 


P 


107 


99990000 


P 


07 


99990100 


P 


107 


99990200 


P 1 


107 


99990300 


P 1 


107 


99990<|00 


P 1 


07 


99990500 


P 1 


|07 


99990600 


P 1 


07 


99990700 


P ] 


[07 


99990800 


P 1 


[07 


99990900 


P 1 


07 


99991000 


P 1 


07 


99991100 


P 1 


07 


99991200 


P 1 


07 


99991300 


P 1 


07 


99991400 


P 1 


07 


99991500 


P 1 


07 


99991600 


P 1 


07 


99991700 


P 1 


07 


99991800 


P J 


07 


99991900 


P 1 


07 


99992000 


P 1 


07 


99992100 


P 1 


07 


99992200 


P 1 


07 


99992300 


P 1 


07 


99992400 


P 1 


07 


99992500 


P 1 


07 


99992600 


P 1 


07 


99992700 


P 1 


07 



t#PATcH NUMRFR 108 FOR fSPOL CONTAINS 252 CARdS 



XRfFBiT s 
BENDBIT B 
USpROPlNX m 
XRFF = 

BEnD 9 

DEFINE XREFTNFOrXREFINFoi»XREFlNF07]« 

XlNFOrXREFlNFol»tXREFlNFo?)DlV 23 #» 

xmark* if xref Then XREFAY2rxREFPT-n,ri jn*i*j 

ARRAY XREFAY2rO! 29] ^XRFFAYjrOj 10] #XlNF0t0» 31* 0112731 
INTEGER XrefpT.XlUn; 



?6#, 
?7*, 
?8#» 

OPTlONWORD.tXREFBlTj 13 *» 
0PTI0NW0RD.[BENDBIT11]#. 



oooonooo 


P 


108 


01001170 


P 


108 


01001171 


P 


108 


01001172 


P 


108 


01001461 


P 


l08 


0100146? 


P 


loa 


0l00l750 


P 


108 


01001760 


P 


108 


01001770 


P 


108 


01007100 


P 


108 


XDFB01007200 


P 


108 



ARRAY BF:GINSTACKt0l?55]J INTFGPR BSPOINTI 01007600 P 108 

BOOLEAN DEFINING? 01007650 P 108 

FlhF OSK] DISK SERIAL t ?0 » 8 1 6 ] ( 2 • 1 0» 30 ) ; 01561085 P |08 

FILf OSK? niSK SERIAL r ?0 J450 ]( 2 , 30, 30 ) { 0l56l087 P 1 OS 

PROCEDURE BEGINPRINt; 02196510 P 108 

BEGIN 02196520 P 108 

STREAM PROCEDURE STUFFfN,L)J VALUf Nj 02196530 P l08 

REGtN 02196540 P l08 

OpeL; DSi«B LiT •• ") SpcLj DSi«i3 WpS; 02196550 P l08 

SllcLOC Nj nSis6 DFCJ 02196560 P 108 

^^^^ 02196570 P 108 

STUFF(BFGTNSTArK[BSPOiNT],L|N)| 02196580 P 108 

IF NOhfADING TmEN DATIMEJ WRiTeUINF; 02196590 P 108 

END BEGINPRINTJ 02196610 P l08 

CARnNUMRER»aC0NV(TNF0rl.ASTSF0R0W,LASTSE:QUFNcE-n#5,8)j 022U260 P l08 

* 02228000 P 108 

CARDNUmBERIsIF SEQTOG then TOTALNO+AdDVALUE else 02234800 P 108 

CONVf fNF0rLASTSEQR0W,LASTSFQUENCF'"n»5.8)» 02234900 P 108 

IF s n4XREF0« THEN BEGIN SWI TCHUC XREFBf T) ; IF BOOLEANC XMODE ) THEN024i9100 P 108 

DEFINING in BOoLFAn (REALC DE F I Nl NG ) & i r 1 I 47 1 1 J ) ; 024i9iio P l08 

GO AGAIN ENDj 02419120 P 108 

IF a « '•4BEND0" THEN RFGIN SWJ TCH I T( BEnDB I T ) ; Go AGAIN ENOl 02419200 P 108 

IF xref Then 02882100 p loe 

IF GTli»i THEN 02882200 P 108 

''^'''"^ , 02882300 P 108 

IF XREFPT«30 THEN 02882400 P 108 

PEGIN 02882500 P 108 

WRITf tnSK2»3C,XPFFAY?t*])| 02882600 P 108 

XREFPT * O; 02B82700 P 108 

ENOJ 02882600 P 108 

XRFFAY2rXREFPT]*CAR0NUMBER&XREFlNFOtGTl»GT2]r09l36J12]l 02882900 P 108 

XREFPT ♦ XRFFPT+IJ 02882910 P 108 

E^^f" 02882920 P 108 

IF NOT DEFINING ThFN 02910100 P 108 

IF T, CLASS B BEGINV ThFN 02910200 P 108 

BFr,lNSTACKrBSPoiNTJ=pSPOiNT + l]JBCARDNUMBER ELSE 02910300 P 108 

IF T, CLASS K ENDV TmEM 029l0400 P l08 

BEGIN 02910500 P l08 

IF LlSTfR THEN TF BEND THEN BEGINPRINTI 029i0600 P i08 

BSP0INT:»BSP0InT - RFALrBSpOiNT > QJj % PRfVENT INVALID INDEX 029i0700 P 108 

END? 02910800 P l08 

••4PEND0",0, % 50» 51 09251285 P 108 

"AXREFO^.O, % 5?. 53 09251286 P 108 

STREAM PROCEDURE XREFMOVEf S. C» Sn, SQ#L» D) ) «DFB13301100 P 108 

Value c,l? xdfbi33oii3o p loe 

^EGIN «DFB13301160 P 108 

OU^Ut XDFB13301190 P 108 

D5|« 8 LIT" •♦; IDFB13301220 P 108 

^'•■D' X0F813301250 P 108 

DS(«<8 WDSl XDFB13301280 P 108 

Dl'aOl I!DFB13301310 P 108 

|I**f* j;0FB13301340 P 108 

5ll»Sl+3» XDFB13301370 P 108 

DSI»C ChRI XDFB1330H00 P 108 

Dn«0l XDFB13301II30 P 108 

DftD|*60i »0F8U30lfl6O P 108 

^J'*?*^* IDFB1330H90 P 108 

DSt«4 DFCI »DFB13301520 P 108 



SllsSQl XDFB 

0Sl«8 DFO IDFB 

S|l=LOC It «DFB 

DSl.WDS; IDFB 

ENDI liDFB 

IF XREF AND (NoT PTOG OR STREAMTOG) THEN 

BEGIN XDFB 

XREFMOVF(ACCUMtn»CoUNT.SGNO »CARDNUMBER» XDFB 
XREFlNFOtNFXTINFO.LlNKR.NEXTlNFO.LlNKCjIsXLUNlsXUUN+l* XOFB 
XREf AYIJI 

WR!TE(DSKl»lO»XRfFAYir*3)» XOFB 

ENDI «OFB 
IF XREF AND PTOG THEN 

XRrFPT*XRFFPT-RFAL.(ELBAT[I]itO); % GET RiD OF LAST CREF 
SVOIOT 13366105 

DEFINING I" BOOLFAN(REAL{DEFlNlNG) & lr47U7»l])| 
DEFINING »« BOOLEAN(REAL(DEFINING) & 0ra7U7in)| 
111 

XMARKi 

TF TALL.FORMALNfiMF THEN 

fndofitallj 

IF XRfF OR DEFINING. [Un THEN 

BEGIN DEFINE LSS. <# ,gTR»># , NfO= ##.LfO«<*I IDFB 

DEFINE XRFFINF0«INF0*» 
Cl-OSEfCARDfRELEASE); 

closectape»release)> 

UOCk(NFWTAPF)J 
WRlTEfLlNElPAGED? 
For XREFPTI.XREFPT step l until ?9 00 XREFAY2CXREFPT]I«i0OO00OO0| 

WRlTE(n5K?»30»XREFAY?r*3)> XDFB 

TOTaLN0*REAL(XlUN >500)x1000+3000+XLUNI 

XREFPT*XLUN»0| «DFB 

BEGIN IDFB 

BOOLEAN PROCEDURE lNPUTl(A)> IDFB 

ARRAY AtOj; IDFB 

BEGIN IDFB 

Label u^EOFf idfb 

READ(DSKl,lO,Ar*3)rEOFlJ IDFB 

GO TO L; IDFB 

FOfI INPUTI SbTRUFI IDFB 

REWiNDfDSKDj lOFB 

L« IDFB 

END* IDFB 

PROCEDURE 0UTPuT1fB»A)| IDFB 

VALUE B» IDFB 

BOOLEAN BJ IDFB 

ARRAY ArOll XDFB 

BEGIN IDFB 

IF B Then idfb 

REWINDfDSKi) IDFB 

ELSE IDFB 

BEGIN IDFB 

At9]«»XREFlNF0CAC9],LINKR#At9].LlNKC)l*XLUNl»XLUN+UlDF8 

WRITECDSK1.I0.A[*])> IDFB 

end; IDFB 

end; IDFB 

BOOLEAN STREAM PROCEDURE C0MPS1U»B); lOFB 



13301610 


P 


108 


13301640 


P 


108 


13301670 


P 


108 


13301700 


P 


108 


13301730 


P 


108 


13310100 


P 


[08 


13310200 


P 


108 


13310300 


P 1 


108 


13310400 


P 1 


108 


I33l0fl50 


P 


108 


13310500 


P 1 


108 


13310600 


P 1 


108 


13341200 


P 


[08 


13341300 


P 1 


108 


13366001 


P 


[08 


14255500 


P 


108 


14268500 


P 1 


108 


15092000 


P 


108 


15092010 


P 1 


108 


15092020 


P ] 


[08 


16495210 


P 1 


[08 


16495300 


P 1 


08 


17002000 


P 1 


[08 


17002005 


P 1 


108 


17002490 


P 1 


[08 


17002500 


P 1 


[08 


17002510 


P 1 


[08 


17002520 


P 1 


08 


17003000 


P 1 


[08 


17004000 


P 1 


[08 


17004500 


P i 


[08 


17004600 


P 1 


[08 


17005000 


P ] 


[08 


17006000 


P 1 


[08 


17007000 


P ] 


[06 


17008000 


P 3 


[06 


17009000 


P ] 


[08 


17010000 


P 1 


[08 


17011000 


P 1 


[08 


17012000 


P 1 


[08 


17013000 


P 1 


[08 


17014000 


P 1 


[08 


17015000 


P 1 


[08 


17016000 


P 1 


08 


17017000 


P 1 


[08 


17018000 


P 1 


[08 


17019000 


P 1 


08 


17020000 


P 1 


[08 


17021000 


P i 


08 


17022000 


P 1 


08 


17023000 


P 1 


[08 


17024000 


P 1 


08 


17025000 


P 1 


08 


17026000 


P 1 


08 


17027000 


P ! 


[OS 


17028000 


P 1 


08 


17029000 


P ] 


[08 



REGJN 




XDFB17030000 


P 


108 


Sf «*a; 




XDFB17031000 


P 


t08 


niiBBJ 




JSDFB17032000 


P 


l08 


TF 63 Sc LSS DC THEN TALLYJsD 




X0FB17O33OO0 


P 


108 


COMPSll.TALUY* 




XDFBl 7034000 


P 


108 


FNDI 




XDFB17035000 


P 


108 


STREAM PROCEDURE hVS1(A)> 




XDFB17036000 


P 


108 


REGfN 




XDFB17037000 


P 


108 


n! »»a; 




X0FB17038000 


P 


108 


nSJ'jB Lit •♦9h> 




«OFB17039000 


P 


108 


SI ««aj 




XDFB17040000 


P 


109 


nsis 7 woSi 




I:DFB17041000 


P 


108 


FND^ 




XDFB17042000 


P 


108 


BOOLEAN PROCEDURE COMPlfA,B)J 




«DFB1704?100 


P 


108 


ARRAY A.RrOU 




3!DFBl704??00 


P 


l08 


COMPl J.COMPSi f A»B)i 




XDFB17042300 


P 


t08 


PROCEDURE HVl(A); 




XDFB17042400 


P 


108 


ARRAY AfOJJ 




XDFB17042500 


P 


108 


HVSt(A)> 




X0FB17042600 


P 


108 


XLUNt«0| 




X0FB17043000 


P 


108 


REWlNnCDSKl); 




XDFB17044000 


P 


108 


SORTCOUTPUTltlNPUTl.OiHVl.rOMPl.lO. 


TOTaLNO )I 


X0F817045000 


P ^ 


108 


ENDI 




X0F817046000 


P 


108 


BrGlN 




XDFB17047000 


P 


108 


STREAM PROCEDURE PUP(S,0)» 




X0F817048000 


P ] 


LOB 


BEGIN 




XDFB17049000 


P 


108 


Si usi 




XDFB17050000 


P 1 


108 


ni»»Di 




«DFB1705l000 


P 


[06 


DSli»7 WDSl acDSl-e LIT •• "Jl 




17052000 


P 1 


[08 


SVOIOT 17054551 




17053000 


P 1 


[08 


ENDJ 




XDrBl7055000 


P 3 


108 


STREAM PROCEDURE PUP1(S»0); 




17055100 


P ] 


08 


BEGIN 




17055200 


P 1 


08 


SII»SJ Sn«Sl + 32; SI«=SI+28> 




17055300 


P 1 


08 


DM«0l DSl«2 LtT " **t DSJs4 CH^i DSt«"2 LIT '• *") 


17055400 


P 1 


08 


DSioS chR> DSiiLiT "*'•; DSta38 LjT 


>« H • 


17055500 


P 1 


OS 


ENoi 




17055550 


P 1 


l08 


STREAM PROCEDURE PUP2r STAR . S.C » D) 1 




17056000 


P 1 


08 


Value star.s.ci 




17056500 


P 1 


08 


BEGIN 




XDFB17057000 


P 1 


08 


DI I»DI 




J!0FB17058000 


P 1 


08 


cfnn*Di + io)> 




17059000 


P 1 


08 


STAR(DI*D!-U 


DS*LIT«««)i 


17059100 


P 1 


08 


SI««LOC si 




XDFB17060000 


P 1 


08 


nSI* 8 DECI 




J(DFB17061000 


P 1 


08 


DSI-LtT " ") STARfOl«»DI-li 


OSIbLit ••♦'•)i 


17061100 


P 1 


08 


FNO< 




I!DFB17062000 


P 1 


08 


STREAM PROCEDURE BLANKeT(A)I 




IOF817063000 


P 1 


08 


BEGIN 




IDFB17064000 


P 1 


06 


Dl t«Al 




XDFB17065000 


P 1 


08 


DSlB 8 LIT ♦• •♦) 




XDFB17066000 


P 1 


08 


Si tsAI 




XDFB17067000 


P 1 


08 


DSl» H WOS> 




XDFB17068000 


P 1 


08 


ENo» 




XDF817069000 


P 1 


08 


ARRAY PAYtO»l7]l 




XOFB17069500 


P 1 


08 


BOOLEAN PROCEDURE lNPUT?(A)) 




J!DFB17070000 


P 1 


08 


ARRAY ArOjJ 




«DFB17071000 


P 1 


08 



BEGIN XDrBl707?000 P l08 

|,ABEl l»EOfi J!DrBl7073000 P 108 

DEFINE 1*XlUN#I XDFB17073100 P 108 

IF XrEFp7j«XrEFpT+1«30 THFn 2DFB17074000 P 108 

BEGIN XDFB17075000 P 108 

READCDSK?»30»XRFFAY?C*3)[E0f ]) «DFB17076000 P 108 

XREFPTl«»0| XOFB17077000 P 108 

ENDI XDFB17078000 P 108 

IF ( I »«XREFAY?rXRFFpT3),[2U27] GTR 99999999 THEN GO To E0FI17079000 P 108 

AfOll* UXREFlNFOri.t 9 I 4 3 . 1 , 1 1 3 { 833 [ 9:36il23; XDFB17080000 P 108 

GO TO It 1;OFB17081000 P 108 

E0F» 1NPUT28«TrUFI XDFB17082000 P 108 

BLaNKFTCPaYJI IDFB17083000 P 108 

XRrFAYl[93|B-l> XRFrPT*-0> «DFB1708<»000 P 108 

»-« IDFB17085000 P 108 

end; XDFB17086000 P 108 

PROCEDURE 0UTPl)T2tB»A)l XDFB17087000 P 108 

VALUE Bt XOFB17088000 P 108 

BOOLEAN b; XDFB17089000 P 108 

ARRAY At03> aiDFBl7090000 9 108 

REGIN DrFlNE PRi MTrR=Ll NE* ; XDFB17091000 P 108 

Label loop,eof?; 17091100 p 108 

own boolean b2| 17091110 p 108 

Label dun; 17091200 P 108 

IF NOT B? THEN 17091210 P 108 

IF B THEN IDFB17092000 P 108 

WRlTECPRlNTEPf l5»PAYr*n IDFB17093000 P 108 

ELSE Ji0FBl709fl000 P 108 

TF LaSTADDRFSS Jt LASTADDRESS*Ar03 aND LAST aDDRFSS, 1 9 I123j« THEN 17094100 P 108 

BEGIN I0FB17095000 P 108 

•-OOP' I50FB17095050 P 108 

IF At03,r 9J12] gTR XREFAYlt93 ThEN XDFBI 7095100 P 108 

BEGIN ^ XDFB17095200 P 108 

* 17096000 P 108 
WRlTF(PRlNTER»15.PAYr*3)j 17097000 P 108 

* 17098000 P 108 
BLaNKFTcPaY )> XReFPTIsOJ 17099000 P 108 
RFADfDSK],lO,XRrFAYlr*])rEOF?]J 17099100 P l08 
PUPCXREFAYt.PAY)! 17099200 P l08 
WRiTEfPRuiTERrPBL])) 17099900 P 108 
WR|TE(PRiNTER»lO»PAYr*l)< IDFB17100000 P l08 

PUPKXREFAYI.PaY)! 17100100 P 108 

WRlTE(PRlNTE:R[DBL3»10,PAYt*3); 17100200 P l08 

BLANKFltPAY)! IDFB17101000 P 108 

GO LOOP! J:DFB17101100 P 108 

END' XDFBl7i02000 P 108 

DUNI 17102100 P 108 

PUP2fLASTADDRESS < 0,LAST ADDRESS, t 21 I 27 ), 1 7103000 P 108 

XREFPT»PAYrl3)» I7l030l0 P l08 

IF XREFPTJ=XREFPT+1 » n THEN I7l03l00 P l08 

BEGIN IDFB17103200 P 108 

XREFPTIsOl I0FB17103300 P 108 

WRiTEf PRINTER»15.PAY[*3); fDF8l7l03400 P 108 

BLANKfT(PAY)I XDFB17103500 P 108 

END» I0F817103600 P 108 

ENOI »0FB17110000 P 108 

IF FALSE THEN rOF2t B2j*TRUE> 17110500 P 108 



CNDI 
ENDI 



PROCEDURE HV2fA)l 

ARRAY AtO]) 

A[0]»«5*975S813887I 
BOOLEAN PROCEDURE C0MP2(A,B)I 

ARRAY AfBtOjl 
C0MP2* ABSUrO]) IeO ABScbFO])! 
XRrrPTJ«29j RFWIND(0SK2)J 

S0RT(0UTPUT?f INPUT2»0.hV2»C0MP2»1»T0tALN0 



END MAIN BLOCK? 
END* 
St BY JTC • MSC DETROIT 



I0FBJ71UOOO P 108 

J;DFB17112000 P 106 

xDFBiniaooo p loa 

«0F817114000 P l08 

X0FB17U5000 P l08 

XDFB17116000 P 108 

17U7000 P 108 

J!DFB17118000 P l08 

)> XDFB17119000 P 108 

»!DFB17120000 P 108 

IDFB17121000 P 108 

17121500 P 108 

IDFB17122000 P l08 

99990000 P 108 

intf*^iint************************99990\00 P 108 



SIPaTcH number no for fSPOL contains 503 CARDS 

S VOIdT 01001771 

% XRPF STUFF 

% 



ARRAY 

XRFFAY2tO»?9]. 



XREFAYl[0»9]f 



ARRAY OF ONE WORD REFERENCE 
THE LAYOUT OF EACH WqRD IS 



RECORDS. 



ri»5] 



Type 

* 

« 1 

8 2 

s 4 
a 5 



OF REFE 
FOR FOR 
FOR LAB 
FOR NOR 
FOR NOR 
FOR ASS 



r6»15] 



NOTE! The 
Of 

IF 

ARO 

IN 

IDENTIFIER I 
THIS IS A U 
IS aSSIGNfD 
IDENTIFIER 
FOR The fiR 



PENCE 
WARD DECL 
EL OCCURENCE 
MAL DECL 

mal reference 
ignment 

lower order bit 
this field is on 
you want stars 
uno this reference 

THE XREF 



Di NO. 

nique number 

WHEN THE 
IS ENCOUNTERS 

ST Time. 



THAT 



,r?t t?7'i SEQUENCE NUMBER 



RECORD BUFFER AREA FoR WRiTi 
NAME INFORMATION RECORDS. ON 
IS WRITTEN FOR EACH lOpNTlFl 
TABLE WHEN THE IDENTIFIER IS 
SYMBOL TARLEi I.E.I WHFN LfA 
IN WHICH THE IDENTIF IER IS D 



NG OUT THE 
E RECORD 

ER IN THE SYMBOL 
PURGED FROM THE 
VING THE BLOCK 

ECL-AREO. 



00000000 


P 1 


110 


01001750 


P ] 


110 


•01007005 


P 1 


110 


01007010 


P ) 


110 


♦01007015 


P ] 


110 


01007020 


P 1 


110 


01007025 


P 1 


LIO 


O1OO7O3O 


P 1 


110 


01007035 


P 1 


llO 


01007040 


P 1 


110 


01007045 


P 1 


110 


01007050 


P ] 


110 


01007051 


P 1 


no 


01007055 


P 1 


[10 


01007060 


P 1 


no 


01007065 


P 1 


no 


01007070 


P 1 


no 


01007075 


P 1 


10 


01007080 


P 1 


no 


01007085 


P 1 


no 


01007090 


P 1 


no 


01007095 


P ] 


no 


01007100 


P 1 


no 


01007105 


P 1 


no 


01007110 


P 1 


no 


01007115 


P 1 


no 


01007120 


P 1 


no 


01007125 


P 1 


110 


01007130 


P 1 


no 


01007135 


P 1 


no 


01007140 


P 


no 


01007145 


P 1 


no 


01007150 


P 1 


no 


01007155 


P 1 


no 


01007160 


P 1 


10 


01007165 


P ! 


no 


01007170 


P 1 


no 


01007175 


P 1 


no 



TWE 



XlNrOfOl 31 ,0s 127]; 



INTEGER 
XREfPTi 



xlun; 



DEFINF 
SEGnOF ■ 



[33»153## 



TYPfRCF « tlt5]#» 
REFIDNOF »[6j15]#, 
SrONOp « f21i273l. 

xREFTTnNnrXfSrONO.RF 
bfgtn tf xref Then 



THfS 
TN T 
OF T 

The 
FOR 



XfNFOriNDEX.LlNKR, INDEX. LINKC OIV 2] 
EACH ENTRY CONTAINS} 

,r?i«i2] 

.[338151 



XMARKfREFTYPF) ■■ 
BEGIN IF XREF 



THEN 



% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
t 
% 
% 
% 
t 
t 
% 
% 
% 
% 
* 
% 
% 
* 
X 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
f 
% 
% 
% 

% 

* 

% 
% 
% 
% 
% 

I 

ftype) 

CROSSR 

% 

f DEFI 
XREFAY 



LAYOUT OF EACH ReCORD tSJ 

Words 0-7 



Word e 

f 121112] 



,[33115] 

WORD 9 



eubat WORd 






The identifier with blank 
fill on the right 





segment number in which 
This identifier was decLareoo 


IDENTIFIER ID. NO. 















Segment number in which o 
This identifier was declo 


IDENTIFIER ID, NO, 
IF THIS ID. NO. IS ZERO 
THEN XREF WAS NOT ON 
AT THE TIME THE IDENT 
WAS DECLARED AND ALU 
FUTURE REFERENCES WILL 
BE DISCARDED. 



ARRAY CONTAINS ONp ENTRY FOR fACH ENTRY 
HE INFO TABLE. IF YOU HAVE THE INDEX 
HE ELBAT WORD FOR AN IDENTIFIER IN 
iNpO TABLE YOU CaN FIND THE XINFO WORD 
THE IDENTIFIER BY REFERRING T0» 



CONT 
XREF 

Than 

AMD 

THIS 

ID, 

EACH 



FIEL 
IDEn 



AINS INDEX OF NEXT AVAILABLE SLOT IN 
AY2. WHEN THIS BECOMES GREATER 

30 The CURRENT ARRAY jS DUMPED TO DISK 
XRfFPT IS RESET TO ZERO. 

Variable controls the assigning of 

NO. TO lOENTiriERS. IT IS INCREMENTED 

Time a new identifier is encountered. 



OS IN xiNFo Entries and wqrd e of 
tifier records. 



fields of reference WORDS 



« % DEFINE TO ado INFO TO ReF TABLE 
EFTTffNDEX.SEQNO.REFTYPE)! ENO#. 

NE TO CHANGE LAST ENTRY IN REF TABLE TO A 
2fXREFpT-n.TYPEREF I* REFTYPE ENO#» 



1007180 
1007185 
1007190 
1007195 
1007200 
1007205 
1007210 
1007215 
1007220 
1007225 
1007230 
1007235 
1007240 
1007245 
1007250 
1007255 
1007260 
1007265 
1007270 
1007275 
1007280 
1007285 
1007290 
1007295 
1Q07300 
1007305 
1007310 
1007315 
1007320 
1007325 
1007330 
1007335 
1007340 
1007345 
1007350 
1007355 
1007360 
1007365 
1007370 

1007375 
1007380 
1007385 
1007390 
1007395 
1007400 
1007405 
1007410 
1007415 
1007420 
1007425 
1007430 
1007435 
1007440 

1007445 
1007450 
1007455 
1007460 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



110 

110 

no 

110 
110 

no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 



^ 01007465 P 1)0 

XREFDUMPMNDFX) u % DFTlNE To DUmP SYmBOl TABLE INFO FqR I DEnT I F I ER01007470 P 110 

BEGIN IF DEFINING. run THEN CROSSREFDUMPf I nDEX ) 1 END#, 01007475 P HO 

XREFlNFOriNDFX] « % DEFINE TO TRANSLATE INFO RoW AND COLUMN TO 01007461 P 110 

XlNFOt(TNDEX).LlNKR»(lNDEX).LINKC DiV 2]#, J! XINFO KOW AND COL 0100748? P 110 

* 01007483 P 110 

FORWARDREF s 0#, ;; DFFINFS FOR DIFFERENT REFERENCE TYPES 01007485 P 110 

LBLREF a 1#» % 01007486 P HO 

DECLRfF « 2*f % 01007490 P HO 

NORmAlREF « 4#p f 01007495 P HO 

,/^SiGnREF • 5*i t 01007500 P HO 

}^0'"^ 01723000 P HO 

**************************** *i^^****il,^,*^i:^^,t*^t1tL***itc^,t*^,4i*t**#****ltt*********0200l 605 P HO 

% MISCELLANEOUS CROSS REFERENCE PROCEDURES 02001615 P HO 

* 02001620 P HO 
t VOlnT 02001831 02001625 P HO 

%****** ****************itc******************M^**4i^,,^**i^,^ti*^i*i,*^i,^,^^ti^:***^,m^ni0*O2OO I 630 P HO 

* O2OO1635 P mO 
PROCEDURE CROSSREFtT(indEX,SEONO»REFTYPE); 02001640 P 110 

VALUE INDEX, SEQNO.REFTYpEJ 02001645 P 110 

REAi. index, SEQNOtREFTYPE; 02001650 P HO 

^^^'N 02001655 p 110 

IF XrefinFoCIndexj.idnof / Then » save 020oi66o p ho 

S^^^N 02001665 P 110 

IF XReFPT > ?9 THEN % NO SLOTS LEFT IN ARRAY, WRITE IT OUT, 02001670 P 110 

^^^'^ 02001675 P 110 

WRlTE(DSK2,3o,XREFAY2f*])j 02001680 P llO 

XREFPt I« 01 02001685 P 110 

END» 02001690 P 110 

XREFAY?tXREFPT] t« SEQNO 8 REFTYPF TYPEREF i XREF I NFOtlNDEX ] 02001695 P HO 

REFIDMOf* 02001700 P HO 

XREFPT «» XREFPT + 111 E^EN THOUGH ThE AKF^AY MAY BE FULL NOW WE 02001705 P HO 

% CANT WRITE IT OUT BECAUSE SOME ROUTINES 02001710 P HO 

% WILL LOOK BACK AT ThE ENTRY WE jUST PUT 0200l7l5 P HO 

3! IN AND FIX IT Up, 02001720 P 110 

^^^^ 02001725 P HO 

END OF CR05SREFITI 02001730 P 110 

* 02001735 P 110 
PROCEDURE CROSSREFOUMP(iNDEX)t 02001740 P llO 

VALUE iNnpX; 02001745 P HO 

REAL tNDFXI 02001750 P HO 

BEGIN 02001755 P HO 

STRpAM PROCEDURE MOVexRff 1 NFOf S, d, N ) J 02001760 P HO 

orjfjl;'^^ ^' 02001765 P HO 

^'■c^'^ ^ « , . 02001770 P HO 

Sf l» Oi DI »» Dl DS tm 8 LIT « •♦ i DS |r 7 WDS> % BLANK RECORD 02001775 P HO 

Si 19 S» Sl i* SI ♦ 31 DI Ix 01 DS l» N ChR; % MOVE IDENTIFIER 0?001780 P HO 

END OF MOVEXREFINFOI 02001785 P HO 

* 02001790 P 110 

IF XREFlNFOCINDEXJ.lDNoF # THEN % DUMP IT 02001795 P HO 

^ESu^w « 02001800 P 110 

MOVrXREFlNFO(iNrOriNDFX.LlNKR,lNoEX.LlNKc+l],XREFAYlt»], 02001805 P HO 

TAKE(INDFX+l).rl2l6]); 02001810 P HO 

XREFAYlfS] t» XREFlNFOriNDEXll 02001815 P HO 

XREFAYlt9l Is TAKEflNDFXiJ % ELBAT WORD O2OO182O P HO 



WRITEfDSKi.lQfXREFAYir*])? 02001821 P UO 

XREFlKiFOt INDEX] |b O; 02001822 P UO 

^^'0' 02001825 P 110 

END OF CROSSREFDUMPt 02001830 P UO 

8V0IDT 028'J?921 02882099 P llO 

IF GTl *l aNd not MacROID THFN % NOT RfSERVEO WORD 02882100 P UO 

XRFFITCT.LiNK.CaRdNUMRCR.NORMaLRfFJI % BUILD XREF FNTRY 02882200 P UO 

XMARKrLBLRFF)? X THIS WILL SORT AhEAD Of DECLARATION 07598100 P UO 

% WHEN WE GET AHoUND TO ThE XRfF, 07598200 P UO 

XmARK(ASSIGnREF)I X FILL STATEMENT 07660600 P HO 

XmARk(ASSIGNREF)J X FOR STATEMENT 08178100 P UO 

XREFDUMP(P01NTER)I X DUmP XREF iNFO 13283500 P UO 

* VOIDT 13301731 13301099 P UO 

IF XREF THEN X MAKE DECLARATION REFERENCE 13310050 P UO 

X IF (ACCUMCO], CLASS t DEFINEDID OR NqT 13310075 P UO 

X BOOLEANtAcCUMtO], FORMAL)) THEN X NOT DEFINE PARAMETER 13310080 P UO 

S VOIdT 13310601 13310099 P HO 

BEGIN 13310100 P UO 

XREFlNFOtNrXTlNFO] »s 13310200 P UO 

IF SPECTOG THEN 13310300 P UO 

XREFlNrOtFLBATrni 13310350 P UO 

ELSE 13310400 P UO 

((XLUN t« XLUN + 1) S SGNO SfGNOF)! 13310450 P UO 

IF SPECTOG Then X just go back and fix UP XREF ENTRY 13310500 P UO 

XMARKfDECLREF) 13310525 P UO 

ELSE 13310550 P UO 

XREFIT(NFXTINFO»CARDNUmBER» IF PTOG AnO NOT STREAMTOG 13310575 P 110 

THEN NORMALREF EISE DfClREF)! 13310580 P UO 

END 13310600 P UO 

« ELSE X DEFINE PARAMETfRS - DONT cROSS REF. 13310700 P UO 

X XREFlNFO[NEXTlNFO] »» 13310750 P UO 

ELSE 13310800 P UO 

tF DEFINING, run ThEN % WE ARf DOING XREFING 13310900 P 110 

XReFINFO[NfXTiNF03 I« 0> 13310950 P UO 

IF XREF AND NOT SPfCTOfi THEN X eRaSf PRfViOUS XReF ENTRY, 13341200 P UO 

XMAR<(DEClREF)I % PROCEDURE DECLARED FORWARD. MARK LAST 14312100 P llO 

% XREF ENTRY AS A DECLARATION. 14312101 P UO 

XRpFDUMPrj); % DUMP XRfF fNFO 14445100 P 110 

XREFlTfPROTNFO.CFORWARDREF)? X WE NEED THiS SO WE CAN FIND 14469100 P UO 

X THE FORWARD DECL. DURING XREF 14469l0l P UO 

REAL REMeMBERSeOnOI % REMEMBERS SEQUENCE NUMBER OF VARIABLE 15075550 P HO 

X ON LEFT HAND SIDE OF ASSIGNMENT SO WE 15075551 P UO 

X CAN XREF IT CORRECTLY, 15075552 P UO 

REMEMBERSeQNO I» CARDNUmBER* 15085100 P UO 

XMARkC ASSIGNREF)J X ASSIGNMENT TO SIMPlE VARjABlE* 15091100 P UO 

tVoiDT 15092010 P UO 

BEGIN 15113100 P UO 

BEGIN 15115000 P UO 

ERRC20l)f X PARTIAL WoRD NOT UEFT-MOST 15115100 P UO 

60 To EXIT! 15115200 P UO 

FNDl 15115300 P UO 

XREFlTfTALLtREMEMBERSEQNO.ASSlGNREFJl 15116000 P UO 

GO TO Lll 15116100 P UO 

. , ^ END) 15116200 P UO 

Jazz? XREFTT(TALL»REMFMBERSEfiNO»ASSlGNREF)> STePiT; AEXP; 15233012 P UO 

XREFTTfTALL»REMFMBERSEONO.ASSIGNREF)J X ASSIGNMENT T015301100 P UO 

X SUBSCRIPTED VARIABLE, 15301200 P UO 



m ASSIGNOR THEN 
* FS ThfN I PARTIAL WORo IS LEFT-MOST 



IF 



(XREF OR 
DEFINE 



IF STFPT 
IF Pi 
BERTN 

XREFITf TALL.REMEMBE 
% WORO AS 

GO TO last; 

FND 
XMaRK(LBLREF); % MARK LABEL OCCURENCE FOR XREF 
XmARK(ASSiGNREF)> 
DEFINlNG,[lll]) AND XLUN > THEN 



Rseqno.assignref)! % partial 

SfGNMENT TO SUBSCR. VAR, 



xrefinfocinrexj « 



CF ■ t33«15]#f 
FF « tl8ll5]#. 
NEWIDtlNOEX] s 



iNFOrCf INDEX), 
(CINOEX). 



(IF BOOLEANdNDEX 
ELSE XREFINFOri 
ARRAY TlMlN6SrOl2,0»33l 
PROCEDURE SAVETIMESCDI 

VALUf n INTEGER U 
BEGIN 

INTEGER J) 

FOR J Is 1 STEP 1 UNTIL 3 DO 
TiMlNGSt I»J3 !• TlMF(J)J 

fNd; 

PROCEDURE UPDATETlMESd)! 

VALUr i; INTEGER I J 
BEGIN 

INTEGER j; 

FOR J I- 1 STEP 1 UNTIL 3 DO 

TiMlNGSri.J] >; TlMECJ) - TIMlNGSfl 
ENDI 

SAVETlMES(0)> % SAVE TIMES FOR START OF 
TOTALNO Is XLUN; % REMEMBER NUMBER OF I 
FOR I l» STEP 1 UNTIL 8191 DO 
PUT(0» 1)1 

BEGIN 

REWlNnfDSKDJ 
UPDATfTIMFScO)J 
TTMiNr,SrO,0] IB 
END 

IF boolfancA[8]) Then 

XREFINFOrACail.FF l» 
ELSE 

XREFlNF0rAr8]].CF 
AC8],IDN0f «= XuUNt 
IF 63 Sc < DC THEN 

TALLY I* 1 
rLSF 
BEGIN 

Si la Al 

Di iw b; 

IF 63 Sc » DC THEN 
TALLY I* 21 
ENDI 
nS i« 8 LIT 3^777777777^', % 

IF REAL(COMPH,COMPS1(A»B)) 
COMPi Is Ar8],IDN0F < Bt« 



CF DIV 2).C33I7], 
CF DIV 2),LINKC]#. 



) Then xRefinfotindexj. ff 

NDFXJ.CF)*; 



% UPDATE T 
XLUNI % NU 



identifier sort. 
dfntififRs, 



IMES FOR identifier SORT, 
MbER of IDENTIFIERS SORTED. 



XLUN Is XLUN * t 
Is XLUN Is XLUN + I J 



ID. NO, AND SfG.NO. FIELDS 
a 2 THEN % IDS EQUAL 
3.IDN0FI 



153A2000 


P 


no 


15342100 


P 


110 


15342200 




no 


.15342300 




no 


15342400 




no 


15342500 




no 


15342600 




no 


16159100 




no 


16318500 




no 


16495300 




no 


17002005 




no 


17002006 




no 


17002007 




no 


17002006 




no 


17002009 




no 


17002010 




no 


17002012 




no 


17002015 




no 


17002020 




no 


17002025 




no 


17002030 




no 


17002035 




no 


17002040 




no 


17002045 




no 


17002050 




no 


17002055 




110 


17002060 




110 


17002065 




no 


17002070 




110 


17002075 




10 


17002060 




no 


17002525 




10 


17004500 




10 


17004700 




ilO 


17004710 




ilO 


17022000 




110 


17022100 




10 


17022200 




10 


17022300 




10 


17022400 




[10 


17025000 




10 


17025100 




10 


17025200 




10 


17025300 




10 


17025400 




10 


17033000 




110 


17033100 




10 


17033200 




10 


17033300 




10 


17033400 




10 


17033500 




10 


17033600 




10 


17033700 




10 


17033800 




10 


17041100 




10 


17042300 




10 


17042350 




10 



SORTCOUTPUTl. IWPUT1»0.hV1,cOMP1 .10. !r TOTALNO < 1000 THEN 17045000 P 110 

7000 ELSE 10000); 17045100 P 110 

* VOinT 170A9001 17047001 P HO 

ARRAY TnTYPrtOl{IDMAX*3)x4-ni 17047100 P 110 

STREAM PROCEDURE SrTUPHEAD f NGt S.D. SECSEQNO.EWdTOG. LBLTOG , 17047200 P HO 

FWDSEQNO.TyPF.OWNTOG.PARAMTOG, 17047300 P 110 

VALTOG)J 17047350 P HO 

VALUf SEG.SEONO.fWDTOG.LRLTOG.FWoSEONCOWNTOg.PARAMTOG, 17047400 P 110 

VALTOGI 17047450 P 110 

REfilN 17047500 P 110 

51 Is S» 17047700 P 110 

f>I 'a D» 17047800 P 110 

63 fTF Sc » " " THFN jump Out else dS is CHR)I 17047900 P HO 

ns t« 6 ltT " -- ••; i704fl00o p ho 

OWNTOG (DS la 4 LIT "OWN " ) > 17048100 P 110 

SI >= TYPfJ 17049300 P HO 

32 fTF SC « •♦,•♦ THEN JUMP OUT ELSE DS i« CHR)» 17049400 P HO 

PARAmTOG CDS »« 6 LIT " -- "I 17049410 P HO 

OS la 4 LTT "NAME''; 17049420 P HO 

VALTOG (DT »= DT • 41 OS i» 5 LIT wVALUE")) 17049430 P 110 

OS l« lO LIT •• PARAMETER''); 17049440 P HO 

nS Is 18 LIT •• -- DFCLARfD at "i 17049500 P HO 

SI Is LOC SeQNO; 17050400 P HO 

pS la 8 DECI 17050500 P HO 

fwdtog (OS I* 17 Lit •• -- forward at •♦; 17050600 p ho 

Si i« LOr fwdsfOnoi 17050700 p 110 

ns to 8 nFOJ 17050800 P 110 

LBLTOG fOS Ifl 16 LtT •• — OCCURS aT "I 17050900 P HO 

St Is LOC FWDSEQNO; 17051000 P 110 

DS I. 8 OfO; 17051100 P 110 

fnd of setupheading; 17051200 p no 

17051300 P 110 

STREAM procedure AnDASEQNO f SEONO, N, STaRS , D ) ; 17051400 P 110 

VALUf SEQNO.N^STaRS; 17051500 P 110 

REfilN 17051600 P 110 

DI »» 0> 17051700 P HO 

01 «a Dl + 81 17051800 P HO 

N (Dt «» DI + 10)1 17051900 P tlO 

STARScDi I* Ol • 11 DS l« LiT •♦♦♦♦)| 17052000 P HO 

SI la LOC SEQNO) 17052100 P HO 

OS Is 8 DECI 17052200 P 110 

OS tv LIT ♦• ••> 17052300 P HO 

STARS (Dl l» DI - 1) DS t :» LJT ••*")} 17052400 P HO 

f"^f'* 17052500 P HO 

STREAM PROCEDURE BLANKET(O); 17052600 P HO 

BEGIN 17052700 P 110 

DI »■ 01 17052800 P HO 

nS i« 8 Lit •• "; i70529oo p ho 

SI «a Dl 17053000 P 110 

nS I. 16 WOS; 17053100 P HO 

FNn Or BLANKET! 17053200 P 110 

PROCEDURE PRINTXRefSTaTiSTtcSi 17053300 P HO 

BEfilN 17053400 P HO 

SWITCH F0RMAT STaTS »« 17053500 P HO 

(///i ♦•CROSS RrFEPENCE STATISTICS", /, 17053600 P HO 

- ". /). 17053700 P 110 

("PHASE ONE - S0RT",I6," IDENTIFIERS"), 17053800 P 110 



(♦•PHASE 
("PHASr 

CX5»I4. 

INTEGER I 

WRlTEdlN 

FOR 1 IB 

BEGIN 

WRITE 

FOR J 

BEG 

K 

W 



Two - 

Three 
"•♦♦#?i 

•♦J***?!!." I/O TIME"*/)! 

E»STAT 
STEP 



SORT"! l7»" RFFeRE 

- prtnt cross Ref 

,« eUAPSfD TjMe ( 

,•• PROCESSOR Time 



NCES"). 

EReNCF f.!/.** LINES)")* 

MiNJSpC)")* 

-)» 



Sro])j 

1 UNTIL, 



?, DO 



(LINE. 

tu 1 
IN 

«• (T 
RITE(L 



STATSri+l].TlMINGS[I,0])J 
STEP 1 UNTIL 3 DO 



IMlNGStI»Jl ♦ 30) 
INEdSTATSr J*3J»K D 



ENOl 
ENDJ 
FNd PRINTXREFSTATIS 

define refcount 
boolean firsttt 
rfaL Lastaddres 

nEFiNF I « La 
ArO] Ic 1 & NEW 
RfFCOUNT Ib Ref 
XREFAYirS] «» X 

FILL TOTYpEr*] 

"Unknown. 

"STREAM LABEL 
"STREAM VARIa 
''DEFINE. 
-LIST. 
"FORMAT. 
"SWITCH fORMa 

"Real subRout 
"subroutine. 

"switch label 
•♦procedure. 

"INTRINSIC, 
"STREAM PROCF 
"BOOLEAN STre 
"REAL STREAM 
"INTEGER STRF 
"INTEGER STRf 
"rOOLeaN PROr 

"REAL PROCEDl) 
"INTEGER PROr 
"INTEGER PROf 
•♦BOOLEAN, 
"REAL. 
"INTEGER. 
"INTEGER. 
"BOOLEAN ARRa 
"REAL ARRAY, 
"INTEGER ARRa 
"INTEGER ARRa 

"NAME. 



TICS; 

« TlMlNGStl .03# 
MFI X TRUE ON FI 
Si 

STADDRESS*! 
IDrT.REFTDNOF] R 
COUNT ♦ M 
REFPT i. LASTADD 
WITH 



* 

BLE. 



DIV 60) % ROUND TO NEAREST SECON 
IV dO^CKlsK MOO 60) DIV 10. 
K MOD 10)1 



i % NUMBER OF RLFERENCES SORTED. 
RST CALL OF OUTPUT PROCEDURE. 



efidnof; 

RESS I* Of 



% 

% 1 

% 2 

% 3 

% 4 

I 5 



T. 
INf, 



DURE, 

am procedure, 
procedure, 
am procedure, 
am procfdure. 
eduRe. 

RF. 

eouRf. 
eouRe. 



6 
7 
6 
9 



% 10 
% 11 

% 12 
% 13 
X U 
% 15 
% 16 
% 17 



Y. 

Y. 
Y, 



16 
19 
?0 
21 
22 
23 



X 24 

X 25 



26 
27 
28 
29 



X 30 



17053900 


P 


110 


17054000 


P 


110 


17054100 


P 


110 


17054200 


P 


no 


17054300 


P 


no 


17054400 


P 


no 


17054500 


P 


no 


17054600 


P 


no 


17054700 


P 


no 


17054800 


P 


no 


17054900 


P 


no 


17055000 


P 


no 


17055010 


P 


no 


17055020 


P 


no 


17055025 


P 


no 


17055030 


P 


no 


17055100 


P 


no 


17055200 


P 


no 


17069300 


P ] 


no 


17069400 


P 


no 


17069600 


P 1 


no 


17073100 


P ] 


no 


17060000 


P 1 


no 


17080100 


P 1 


no 


17084000 


P 1 


10 


17084010 


P 1 


[10 


17084020 


P 1 


10 


17064030 


P ] 


10 


17064040 


P ] 


no 


17084050 


P ] 


no 


17084060 


P J 


no 


17084070 


P ] 


no 


170B408C 


P 1 


no 


1706409C 


P ] 


no 


17084100 


P 1 


10 


17084110 


P 1 


10 


17084120 


P 1 


10 


17084130 


P ! 


10 


17084140 


P ] 


10 


17084150 


P 1 


no 


17084160 


P 1 


no 


17084170 


P 1 


10 


17084180 


P 1 


10 


17084182 


P 1 


10 


17084184 


P 1 


10 


17084186 


P 1 


10 


17064188 


P 1 


10 


17084190 


P 1 


10 


17084200 


P 1 


10 


17084210 


P 1 


10 


17084220 


P 1 


10 


17084230 


P 1 


10 


17084240 


P 1 


10 


17084250 


P 1 


10 


170B4260 


P 1 


10 


17084270 


P 1 


10 


17084260 


P 1 


10 



17084290 P 110 



•♦INTFCER iJaMf, h, j; 31 ^^^^ ^ ^^^ 

"l-ABFL. "I X 32 17084300 P 110 

LarFL F0r2. SKfPi 17091100 P 110 

OWN BOOLEAN B2, FWOTOG» LBLTOG* Wa I Tj NgFORfWDREF ; 17091110 P 110 

DEFINE MATCH(A.B) • REAL( B00LEAN( A ) EQV B00LEAN£B)) « 17091U5 P 110 

REAKNOT FAtSE)#» 17091116 P 110 

REAL n 17091120 P 110 

DEFINE LINeCOUMT « T iM i NQSt ?• 03 i | I NUMBER Of LINES PRINTED. 17091140 P 110 

OWN REAL FWDSEONO» 17091150 P 110 

IF FIRSTTIME THEN % PRjNT HEADINGS AND SAVF TIMINGS. 17091155 P 110 

f^PGlN 17091160 P 110 

FiRSTTlME »• FALSEI 17091162 P 110 

TIMEI i« TtMecDI 17091165 P 110 

OATiMe; 17091170 P 110 

UPDATeTIMESCDJ 17091175 P HO 

SAVfTiMES(?)I « SAVE TiMES FOR START OF XREF PRINT, 17091180 P 110 

, ^!:I2' 17091200 P 110 

*V0IDT 171U001 17091201 P 110 

IF NOT 82 THEN 17091210 P 110 

IF B Then % end of sort - list out rest of SEO. no, 17091300 P 110 

IF XRfFPT / then I WE GOT SOMp TO H ST OUT 17091400 P 110 

PEGIN 17091500 P 110 

WRlTEfLlNE[DBL3il5iPAYC*3)J 17091510 P 110 

LiNECOUNT «» LINfcOUNT ♦ i; 17091520 P 110 

FNO 17091530 P 110 

ELSE % NOTHING TO LIST OUT 17091600 P 110 

ELSE % NOT fND Of SORT 17091700 P 110 

IF NOT MATCHrLASTAODRESS.A[0]) AND A t 0] ,REF IDNOF * AND I709l800 P 110 

ArOj.RrFlDNOF J XREFAYl [8] . i oNOF ThEN 17091900 P llO 

?F ACOl.TYPEREF « FORWARDReF THEN % 17092000 P 110 

WAITjngfORfWDReF «s true 17092100 P llO 

ELSE 17092200 P llO 

IF ArO],TYPEREF « LBLREF THfN % 17092300 P 110 

BEGiN 17092400 P llO 

LBLTOG «» TRUE? 17092500 P llO 

FWDSEONO »» ArOj.SEQNOFf 17092600 P )10 

END 17092700 P 110 

ELSE 17092800 P 110 

IF ArO].TYPFREF » DFCLREF THEN 17092900 P 110 

IF WAITJNGFORFWDREF THEN J! ThtS MUST BE iT 17093000 P 110 

BEGIN 17093100 P 110 

WAITINGFORFWDREF »« FALSE? 17093200 P 110 

FWDTOg »• TRUE» 17093300 P 110 

FWDSEONO Is ACOj.SeQNOFJ 17093400 P 110 

END 17093500 P 110 

ELSf % ITS A MORMaL DECLARATION - NOT FORWARD 17093600 P 110 

BEGIN 17093700 P 110 

TF ACOI.REFIDNOF > xReFAY 1 C 83 . lONOF THEN 17093850 P 110 

DO 17093900 P 110 

RFAD(DSKl.lO.XRFFAYlt*3) tEOF23 17093950 P 110 

UNTIL 17094000 P 110 

Ar03.REFIDN0F < XREFAY 1 [ 83 , I DNOf I 17094050 P 110 

TF Ar03, REFIDNOF < XREFAYl [8 ] . I DNOF THEN 17094100 P 110 

GO TO SKIPI 17094150 P 110 

TF XRpFPT > Then % THERf is stuff to PRINT 17094200 P 110 

BEGIN 17094240 P 110 

IF singltog Then 17094250 p ho 

WRlTF(LlNE»15.PAYr*3) 17094300 P 110 



ELSf 

WRlTf:(LlNErD8L],15.PAYl*l)i 
LINECOUM Is LiNECOUNT + H 

END 
ELSE 

IF NOT SINGLTOg ThEN 

write(Line); 
xrffpt «» OJ 

BUAMKfT(PAYt*nJ 
SETUPHEADINGCXREFAYlr*3»PAY['<']f XREFAYU8], 
SE6N0r»At0].SEQNor,rW0TOG»LBLT0G» 
FWDSEQNOf IDTYPEtdF (I I* 
XREFAYlt9], CLASS) > IDMaX THEN 
ELSE I) K ^]. 

REALM t BOOID ANq XREFAYI [9] , [ 9 1 2] « \)p 
REAL((I ^ BOOID OR I b lOCLID) AND BOOLEAN 
CXREFAYlt9],t9tn)). XReFAY 1 [9 ] . [ 10 I 1 ] ) I 
FWDTOg I* LbLTOG »* FALSn 
WRTTE(LINE»15»PAY(*1); 
LiNECOUNT «« LINfcOuNT ♦ \i 
pLANKrT(PAY[*3); 
END 
ELSE % IT MUST BE A NORMAL REFERENCE 

IF AfOl.SEQNOF * LAST ADDRESS . SE«NOF THEN 
BEGIN 

ADDASEQNO(At0l,SEQN0FpXREFPT.ArO],r5in» 

PAYr*3)l 
IF CXREFPT »«= XREFPT + l) « 11 THEN XFULL 

Q r^ A t k I 

WRlTEfLlNE»l5,PAY[*])» 
LINECOUNT i* LINECOUNT + II 
XReFPT :» 0> 
BLANKET(PAYt*])> 
END 

fno 

ELSE X RFFfRFNCE TO SaM^ SeQ. NO, SKIP IT 
ELSE % THtS is a reference TO THE SAMr SEOi NO. - SKIP 
FLSe % HIT ENn OF IDENTinER FiLr - JUST SKiP OVER REFERENCES 

E0F2« B? »» TRUEI % SO SORT CAN fiO TO NORMAL EOJ 
ir NOT B THEN SKlPl LaSTaDORESS t b AtOJI 
ENn Of 0UTPUT2} 

A[0] i« 3«777777777777777«} X BIGGEST FLOATINq PJ , NO. 

c0mp2 »» if ato],refldnof < bt 03 . ref idnof then x dif ids 

thuf 
flsf 

IF Af03.REFIDN0F s Bt 03 .ReF IDNOF THEN 
IF At03,tlU3 LSS Br03,rlU3 THEN 

TRUE 
ELSE 

IF Ar03,[l»43 » B[03.rl»fl) THEN 

IF A[03.SEQN0F < BCOJ.StONOF THEN 

TRUE 
ELSE 

IF At03.SE0N0F • BC03tSEQN0F THEN 

B00LEAN(Ar03.[5ll3) 
FLSE 

FALSE 



7094350 
7094400 

7094410 

7094420 

7094450 

7094500 

7094550 

7094600 

7094650 

7094700 

7094800 

7094900 

7095000 

7095100 

7095300 

7095310 

7095320 

7095400 

7095500 

7095510 

7095550 

7095600 

7095700 

7095750 

7095B00 

7095900 

7096000 

7096100 

7096200 

7096300 

7096350 

7096400 

7096450 

7096500 

7096550 

7096575 

7096600 

7096700 

7096800 

7096650 

7096900 

114000 

117000 

117100 

U7200 

117300 

117400 

117500 

117600 

117700 

11770? 

117704 

117706 

117706 

117710 

117712 

117714 



P 
P 

P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



110 
110 
110 
110 
110 

no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 



$1 

SI 
SI 

»l 

SI 
SI 
SI 
SI 
SI 
St 
SI 
SI 
SI 
SI 
SI 
SI 
SI 
SI 
SI 
St 
St 
SI 
SI 
SI 
SI 
St 
SI 
SI 
SI 
St 
SI 
SI 
SI 
SI 
SI 
St 
SI 
SI 
St 
SI 
St 
St 
SI 
SI 
S| 
SI 
SI 
SI 



FLSE 
TALSF 
Fl-SE 

FAUREI 
SAVETrM£S(l)l % SAVE TiMeS FOR STaRT Op REFERENCES SORT 
FtRSTTTME »* TrUeJ % LfT OUTPUT PROCEDURE KNOW ABOUT FIRST 

SORT ( Output 2» I nput?»o#hV2.comP2. 1,6000); 

UPnATETlMES(2)t % UPnATp TiMfS pOR PRfNTlNc, CROSS ReFERENcE 

prtntxrefStaTistics; 

DATE 2/1/76 

8Y JTC - MSA CEMTRAl! 

this patch is nearly a complete rewrite OF The Algol 
cRoSs Reference routines in an attempt to reduce 

THE amount of PAPFR PRODUCED AND AlSo Tq PROVICE MORE 
INFORMATtON ABOUT THF IDENTIFIERS. IN PARTICULAR* 
THE FOLLOWING CHANGES HAVE BEEN MADE« 



CAL 



1) 



2) 



ONE LINE IS LISTED TN THE 
IDENTIFIER WmICH INCLUDES 



CROSS REFERENCE FOR EACH 
The FOLLOWlNr, INFORMATION! 



A. The NAME OF THE IDENTIFIER, 

B. THE CLASS Of THE iDENTfFIER* E.G., REAL, 

INTEGER, Boolean, procedure, eu; 

C. IF THE IDENTIFIER IS A FORMAL PARAMETER IT IS 
MARKED AS A •♦NAME PARAMETER" OR "VALUE PARAMETER", 

D. THE SEGMENT AND SEQUENCE NUMBER AT WHICH THE 
IDENTIFIER IS DECLARED, 

E. IF The IDENTIFIER IS A PROCEDURE IDENTIFIER* THEN 
IF THE PROCEDURE IS DECLARED FORWARD ThE SEQUENCE 
NUMBER OF THE FORWARD DECLARATION iS LiSTED, 

r1 IF The identifier is a label identifier, the sequence 

NUMBER AT WHICH THE LABEL OCCURS IS LISTED. 

ASSIGNMENTS TO IDENTIFIERS ARE NOW STARRED I N THE 
CROSS REFERENCE IN THE FOLLOWING ADDITIONAL CASESt 

A, WHEN A SUBSCRIPTED VARIABLE IS USED IN ASSIGNMENT. 

B, WHEN AN ARRAY ROW iS USED IN A FILL STATEMENT. 

C, WHEN AN ARRAY ROW iS USED IN A SEARCH STATEMENT. 

C. WHEN A SIMPLE VARIABLE IS USED IN A FOR STATEMENT. 

D. WHEN A LOCAL VARIABLE OR STREAM PARAMETER iS CHANGED 

BY BEING ASSIGNED ThE VALUE Op Sl.Di.CI OR TALLY. 

3); DEFINE PARAMETERS ARF NO LONGER CROSS REFERENCED, 

*). tdenttfiers referred TO tn The Right hand side of a 

DEFtNE DECLARATfON ARe NO LONGER CROSS 

referenced against the define declaration. 

5)^ tf no identifiers were cross referenced* the identifier 
Sort would blow up with an i/o error 86, now, xref 
checks to make sure there is something to sort before 

BEGINNING. 

6)! tt Should now be possible to set and Rfset xref 

indiScRiminantly during a compile wiThout CAUSING The xref 

To GET CONFUSED'. PREVIOUSLY, REFERENCES WOUlO GET 
ASSOCIATED WITH THE WronG IDENTIFIERS, THE rUlE NQW IS THAT 



17117720 

17117730 

17117800 

17117900 

17117910 

17J17920 

17119000 

17119100 

17119200 

99990000 

99990100 

99990200 

99990300 

99990400 

99990500 

99990600 

99990700 

99990800 

99990900 

99991000 

99991100 

99991200 

99991300 

99991400 

99991500 

99991600 

99991700 

99991800 

99991900 

9999?000 

99992100 

99992200 

99992300 

99992400 

99992500 

99992600 

99992700 

99992800 

99992900 

99993000 

99993100 

99993200 

99993300 

99993400 

99993500 

99993600 

99993700 

99993800 

99993900 

99994000 

99994100 

99994200 

99994300 

99994400 

99994500 

99994600 

99994700 



P 
P 

P 
P 
P 

P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 

P 
P 
P 
P 

P 

P 

P 
P 



no 

110 

no 

110 

no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 

110 

no 
no 
no 
no 
no 
no 
no 
no 
no 

110 

no 
no 
no 
no 
no 
no 
no 
no 
no 
no 

110 

no 
no 
no 
no 

110 

no 
no 

110 

no 
no 
no 
no 
no 
no 

110 



00000000 


P 111 


01835600 


P 111 


01835700 


P 111 


01835800 


P 111 


99990000 


P 111 


99990100 


P 111 


99990200 


P 111 


99990300 


P 111 


99990400 


P 111 


99990500 


P 111 



SI XREF MUST BE ON AT THE POInT OF DECLARATION FOR AN 99994800 P llO 

$1 IDENTIFIER TO PF CROSS REFERENCED aT aLL» 99994900 P 110 

*• 99995000 P 110 

St 7), PREVfOUSLYt WHEN THE SA^r IDENTIFIER OrCURREn IN 99995100 P 110 

$» DIFFERENT BLOCKS* THE IDENTIFIERS WOULD BE LISTED 99995200 P 110 

«» IN NO PARTICULAR ORDER. NOW» THE IDENTIFIER THAT 99995300 P 110 

St aPPfaRS FIRST WtLL BE LlSTpD FIRST IN THE XREF, 99995400 P 110 

*' 99995500 P 110 



S#PATCH NUMBER III FOR pSPOL CONTAINS 3 CAROSl 

IF MERRpTOG THEN % INDICATE NAME OF SOURCE FILE. 

WRlTEaiNE*<X40*''S0URCE F I LE I "t A] t A6# "/". A 1 » A6»//>« 
(Nll«TAPE.MFID):t6l6],Nl.(N?taTAPE.FlD).I6l6].N2)» 
»l DATE 2/6/76 
St BY JTC - MSA central; 
St 

St thiS patkh prtnts THr NAMp Of The SOURCE fiLe below 

«« The name of the object file on the printed listing if tape 

SI IS SET AT The Time the heading is printed. 



SIPATCH NUMBER 112 FOR ESPOL COnTAInS 116 CARDS, 00000000 P 112 

094 PARSEt MI«^SING RIGHT BRACKET 00069975 P 112 

618 BLOCKi aUXMEM APPEARS IMMEDIATELY BEFORE IDENTIFIER CNO TYPE) 00418000 P 112 

SPITE »[2l|6]|, % STARTING BIT FOR FIELD ID, 01154200 P 112 

NBITF «[27|6]#, % NUMreR Of BUS FOR FIELD ID. 01154300 P 112 

FlElDiD al25#, COMMENT 175j 01278700 P 112 

DEFlNEV *19I. COMMENT 23J 01298000 P 112 

AUyMEMV s20#, COMMENT 24J 01298500 P 112 

FirLDV «21#; COMMENT 251 01298600 P 112 

DEFINE LASTSEQUENCE » 147#, 0l569000 P 112 

IF STepI « FIELDID THEN % GET INFO FROM INFO 05273100 P 112 

BEGIN 05273200 P 112 

FIRST I* ELBATrtl.SBlTEt 05273300 P 112 

SECOND t«« ELBATrn.NBlTFi 05273400 P 112 

GO TO EXIT) 05273500 P 112 

END 05273600 P 112 

ELSE 05273700 P 112 

IF ELCLASS ■ LFTBRKET ThEN 05273800 P U2 

IE STePi « FIELDID TheN 05273900 P 112 

BEGIN 05274000 9 U2 

FIRST m ELBATt H.SBiTe; 05274100 P 112 

SECOND la ELBATt n.NBITEJ 05274200 P 112 

IF STEpi - rtbrket Then 05274300 p 112 

GO To EXIT; 05274400 P 112 

END 05274500 P 112 

ELSE 05274600 P 112 

IF ELCLASS • LITNO THEN 05275000 P 112 

IF ELcLaSS « FIELDID THEN 06315100 P 112 

BEGIN 06315200 P 112 



FIRST la ELBATCn.SRITFI 

SFCOND J» flfl - (THIRD lo ELBAT [ I ] . NBI Tr ) ; 

GO TO nfxtchk; 

FNO 
USE 

IF STEPI s FIELDID THEN 
REGIN 

FIRST :»: ELBATtn.SBlTn 

SECOND »« 48 - eTHTRD «» EL.BATC I ] ♦ NB I TF ) ; 
IF STEPI # RTRRKET THEN 
BEGIN 

ERRf 94)1 
GO TO rXlTJ 
ENDI 
GO TO NEXTCHKI 
FND 
ELSE 

TF ELCLASS b LITNO ThEN 
OcTl3lOi57730000002» "SSCSOO-. f65? 

0cT0500000250000000, "SFIELd"* XfiSft 

IF ei.class>idmax and elcuass<mulop 

GOTSCHK»FIFtDDECf aUXMeMeRR* 

STREAMERRtDEFlNFDEC.AUXMEMERRiFlElDDECI 
AUXMEMERRtrLAG(6l8);ji«j<.iir,0 TO RfaLDEC 

riEUDnEc* 

BEGIN 

RfAL SAVEINF0» SB, NBI 

BOOLEAN FOUNDLB; % TRUE IF LFFT-BRACKET WaS USED IN FIELD SPEC. 

LABEL EXIT. SAVElTl 

STOPENTRY la> STOPgSp I« TRUp; 

I «■ I - 1; 

DO 

bfgin 

STOPDEFTNE «= TRUpl 

stepitj 

entry(fieldid)j 
SAVpiNFO !■ lastinfo; 

IF ELCLASS 9 RElOP and ACCUMrn * ♦•ls:O00O»' THEN 
BEGIN 

IF STEPI * LFTBRKET THEN X REMEMBER THIS 
BEGIN 

FOUNDLB l» TRUE! 
STEPIT) 
END 
ELSE 

FOUNnLB I* FALSE» 
IF ELCLASS s FIELDln ThfN 
BEGIN 

SB !• ELBATrn.SBlTFJ 

NB tp ELBATtn.NBITF? 

GO TO SaVEtTJ 
FNOJ 
IF ELCLASS B LiTNO THEN 
IF STEPi m COLON THEN 

IF stept « LiTNo Then 
ifcsr i» ELBATrT-23. address) X 

tNB IB ELBATril, ADDRESS) ^ aNO 

Sr + NB < 48 THEN 



06315300 




112 


063)5400 




112 


06315500 




112 


06315600 




tl? 


06315700 




112 


06316100 




112 


06316200 




112 


06316300 




112 


06316400 




112 


06316500 




112 


06316600 


p 


112 


06316700 




112 


06316600 




112 


06316900 




112 


06317000 




112 


06317100 




112 


06317200 




112 


06317300 


P 


112 


09128600 




112 


09128700 


p 


112 


13337000 




[12 


14016000 




112 


14021000 




12 


14136100 




[12 


14269020 




112 


14269040 




112 


14269060 




[12 


14269080 




12 


14269100 




[12 


14269120 




12 


14269140 




[12 


14269160 




[12 


14269180 




12 


14269200 




12 


14269220 




12 


14269240 




12 


14269260 




12 


14269280 




12 


14269300 




12 


14269320 




12 


14269340 




12 


14269360 




12 


14269380 




12 


14269400 




12 


14269420 




12 


14269440 




12 


14269442 




12 


14269444 




12 


14269446 




12 


1426944B 




12 


14269450 




12 


14269452 




12 


14269460 




12 


14269480 




12 


14269500 




12 


14269520 




12 


14269540 




12 


14269560 




12 



BEGtN 14269580 P 112 

SAVEITJ 14269590 P 112 

PUTfTAKFf SAVfINFO) & SB SriTF & NB NBlTp* 14269600 P 112 

SAVEINFO); 14269620 P 112 

STEPtT; 14269640 P 112 

IF FOUNDLB ThFN % BETTER HAVE RIGHT BRACKET, 14269660 P 112 

IF ELCLASS « RTBRKfT THpN 14269680 P 112 

BEGIN 14269^00 P 11? 

STEPITJ 14269705 P 112 

GO TO FXIT! H269710 P 112 

Fl^D 14269715 9 112 

ELSF t MISSING RIGHT rRaCKeT, 14269720 R 112 

ELSf 14269740 P 112 

GO TO EXIT) 14269760 P 112 

END; 14269780 P 112 

END) 14269800 P 112 

FLAGfll4)l 14269820 P 112 

DO STEPiT UNTIL ELCLASS « COMMA OR ELcLaSS • SeMICOlONI 14269840 P 112 

EXITI 14269860 P 112 

END 14269880 P 112 

UNTtL 14269900 P 112 

ELCLASS # comma; 14269920 P 112 

STOPeNTRY Is STOPgSP t« FALSE* 14269940 P 112 

ENOI 14269960 P 112 

GO TO start; 14269980 P 112 

ARRAY TDTYPF[0SriDMAX + 4)><4-l]) 17047100 P 112 

"LABEL. ••. % 32 17084300 P 112 

"F'lELDi -; % 33 (CLASS w 125) 17084400 P 112 

XREFAYH9]. CLASS) > IDMaX THEN IF 1 « 17095000 P 112 

FTELDIO THEN 33 ELSE ELSE I) x 4]» 17095100 P 112 

SI DATE 2/?/76 99990000 P 112 

SI BY JTC • MSA CENTRAL 99990100 P 112 

S' 99990200 P 112 

St THtS PATCH IMPLEMENTS A NEW DECLARATION TYPE OF "FIELD" WHICH 99990300 P 112 

St PROVIDES A CONVENIENT MfThOO Of DESigNaTiNg A ^ARTfAL WORD FIELD 99990400 P 112 

S» A uA The 6700 ESPOL AND ALGOL MFCHANiSm. ThIS METHOD IS CONSIDERABLY 99990500 P 112 

SI MORE EEFtCIENT ThAN A DFEINE BECAUSE THE PARTIAL WORD FIELD INFOR- 99990600 P 112 

SI MATION IS STORED OFF WjTh ThE IDENTIFIER IN THE SYMBOL TABLE THUS 99990700 P 112 

SI MAKING REFERENCES To THE PARTIAL WORD FIELD VERY INEXPENSIVE. 99990800 P 112 

*' 99990900 P 112 

SI Thf SYNTAX FOR A PARTIAL WORD DECLARATION |S AS fOLLOWSI 99991000 P 112 

S« 99991100 P 112 

S| <FIELD DECLARATI0N> Uu FIELD <FIELD Ll5T> 99991200 P 



S 



SI <FIELD LIST> lis <FtELD> / <FIFLn LlST> , <FIELD> 99991400 P 



S 



112 

99991300 P 112 

112 

99991500 P 112 

SI <FIELD> ll« <riELD fDFNTlFlER> » <FIELD SpEC IF I CAT 1 0N> 99991600 P 112 

*' 99991700 P 112 

SI <FIELD iDENTlFlER> its <IDEnTIFIER> 99991800 P 112 

SI 99991900 P 112 

Si <FIELD SPECIFICATI0m> tie <INTfGER> J <INTEGER> / 99992000 P 112 

S» [ <1NTEGER> I <|NTEGER> ] / 99992100 P 112 

S' <FIEL0 1DENTiFIER> / 99992200 P 112 

*» r <FIEL0 IDENTIFIER* ] 99992300 P 112 

SI 99992400 P 112 

SI SOME EXAMPLFSt 99992500 P 112 

*' 99992600 P 112 



«« FTrLD CF ■ r33»153; 99992700 P 112 

*« 99992800 P 112 

' FTFL.0 FF * 18M5» 99992900 P 112 

« SI2F « OQmOi 99993000 P 112 

» 99993100 P 112 

I FlrUnS MflY BF USFD ANYWHFRF PARTIAL WORn DfSIGNatORS MAY BE USED 99993200 P 112 

I ANn MAY RE ENCLOSED tN RRACKpTS OR NOT AS DESIRED. ENCLOSING 99993300 P 112 

» Thf FTELn IDENTIFIER IN BRACKETS MaY HELP THE READABILITY OF 99993400 P 112 

I THE CODE BUT OF COURSE REQUIRES EXTRA SCANNING BY THE 99993500 P 112 

I COMPILER TO PROCESS THE BRACKETS. 99993600 P 112 

' 99993700 P 112 

I SOME EXAmPLTSi 99993800 P 112 

' 99993900 P 112 

» I •* I.FFJ 99994000 P 112 

» 99994100 P 112 

» J IB i.CF & 10 rsiZE3 & K ff; 99994200 p 112 

« 99994300 P 112 

» I.FF !■ J.fCFll 99994400 P 112 

*» 99994500 P 112 

i\ *************** *t^**m****i¥**** ************* Jit*m*******^,*iiL;^^,^^i^^,#^,t,^,^^^i^^g p jj2 



$*PATcH number 113 FOR pSPOL CONTAINS 2 CARDSl 00000000 P 113 

tSET OMIT LISTA « LIST 00000999 P 113 

«P0P OMIT LiSTA 00499999 P 113 

SI DATE 3/2/76 99990000 P 113 

SI BY JTC • MSA CENTRAL 99990100 P 113 

*» 99990200 P 113 

SI THIS Patch sets omtt around the comment at the beginning of the 99990300 p 113 

Si espol compiler to spfed up Scanning of the comment, 99990400 p 113 

$t ************ *********i^**********itftL******0i^,*^,,H^H,*^,,^*,^i,**^f^,^ti^^i^t,tmi^^i^:^i^^ggtfgg()gg p jjj 



S#PATCH number 114 FOR fSPOL CONTAINS 222 CARdS. 00000000 P 114 

S VOIdT 01476001 01471000 P 114 

LABEL EXIT* NEXT* LASS) 15076000 P 114 

DEFINE 15076100 P 114 

fORMaLNaMf * [9|2] * 2#» 15076110 P 114 

LONgIO « NaMeiD#» 15076120 P 114 

PARTIALWORD » (Tl * 0)#, 15076130 P 114 

FRREXlTfNuM) « BEGIN ERR(NuM)) gO TO EXITI END#I 15076140 P 114 

BOOLEAN 15076200 P 114 

SPCLMON, 15076300 P 114 

DUPlTl % TRUE IF WE ARE DOING UPDATE TYPe ASSIGN- 15076400 P 114 

% MeNT. I.F., I t* * ^. J., 15076500 P 114 

S VOIOT 15127001 15085150 P 114 

IF TALL. CLASS < INTID THEN X SIMPLE VAR OR FORMAL NAME 15085200 P 114 

BEGIN 15085400 P 114 

TF STfPI i» ASSIGNOP ThEN 15085600 P 114 

IF PI « FL THEN 15085600 P 114 

BfGTN 15086000 P 114 



IF ELcUASS < AMPERSAND THEN 15066200 P 114 

FMlTNf TALL, ADDRESS) 15086<»00 P 114 

ELSE 15086600 P 114 

EMiTVfTALL. ADDRESS)! 15086800 P 114 

GO TO EXITI 15087000 P 114 

END 15087200 P 114 

ELSf 15087400 P 114 

IF ElCLASS « PERIOD THEN % PARTIAL WORD 15087600 P 114 

IF D0TSYNTAXfTlfT2) ThEN % fRROR 15087800 P 114 

r,0 TO EXIT 15088000 P 114 

ELSE 15088200 P 114 

STEPITJ 15088400 P 114 

IF ELrUASS » ASSir.NOP THfN 15088600 P 114 

BEGIN 15088800 P 114 

STACKCT «. IJ 15089000 P 114 

IF PARTIALWORD THEN % MaKE SURE LEET-MOST 15089200 P 114 

BEGIN 15089400 P 114 

IF PI * FS THEN X NOT LEET-MOST 15089600 P 114 

ERREXlT(20n; 15089800 P 114 

XREEIT(TALL»ReMEMBERSf«NO,ASSIGNReE)J 15090600 P 114 

END 15090800 P 114 

ELSE 15091000 P 114 

XMARK(ASSlfiNREE)» 15091200 P 114 

IF TABLEM+l) ■ ASTRiSK ThEN % MIGHT BE UPDATE 15091400 P 114 

IF fDUP|T«.fTABLE(I*2) 5 EQVOP AND TABLE(!*2) 15091600 P 114 

< MULOP) OR TABLEfU2> « AMPERSAND) THEN 15091800 P 114 

STEPIT; % STEP OVER ASTERISK 15092000 P 114 

IF TALL.FORMALNAME THEN % FORMAL PARAMETER 15092200 P 114 

BEGIN 15092400 P 114 

FMlTN(TALLfADDRESS)| 15092600 P 114 

IE PARTIALWORD OR DuPiT THEN % NEED VALUE 15092800 P 114 

BEGIN 15093000 P 114 

EMlTOCnUP)> 15093200 P 114 

EMIT0(C0C)l 15093400 P 114 

ENOI 15093600 P 114 

END 15094800 P 114 

ELSF I ITS A SIMPLE VARIABLE 15095000 P 114 

IF PARTIALWORD OR DUPiT ThEN 15095400 P 114 

EMITV(TALL. ADDRESS)! 15095600 P 114 

IF PARTIALWORD AND OUPIT THEN 15095700 P 114 

BEGIN 15095800 P 114 

FMIT0(DUP)I 15095900 P 114 

EMITI{0.T1»T2)> 15096000 P 114 

ENd> 15096100 P 114 

STACKCT !« RfALCPaRTtALwORD OR DUPlT)> 15096400 P 114 

STEPlTI 15096600 P 114 

IF DUPiT THEN % ALREADY GOT F|RST PRiMaRY 15096800 P 114 

SimPARiTh 15097000 P 114 

ElSE 15097200 P 114 

AEXP; 15097400 P 114 

EMlTD(48-T2»Tl.T2); 15097600 P 114 

STACKCT la Ol 15097800 P 114 

GTl »• IF TALL. CLASS » iNTID THEN 15098000 P 114 

IF PI m FS THEN 15098200 P 114 

ISO 15098400 P 114 

ELSE 15098600 P 114 

ISN 15098800 P 114 



EUSt 15099000 P 114 

IF PI « fS ThFN 15099200 P 114 

STD 15099400 P 114 

FL.Sf 15099600 P 114 

SNOI 15099800 P 114 

IF tall.formalname Then isiooooo p ii4 

BEGIN 15100200 P 114 

FMIT0{XCH)> X TO GET DESCRIPTOR ON TOP 15100400 P 114 

IF TALL, ADDRESS > lo23 THfN X SET VARIANT 15100600 P 114 

EMItOcPRTf); I5IOO8OO P 114 

FMIT0(6T1)» 15101000 P 114 

END 15101200 P 114 

Et'SF 15101400 P 114 

FMiTPaIR(TaLL, ADDRESS, GTl); 15101600 P 114 

fND 15101800 P 114 

ELSE % NOT ASSIGNMENT TO SIMPlE VaRJABLe 15102000 P 114 

BEGIN 15102200 P 114 

IF PI # FP THEN % EXPECTED ASSIGNMENT 15102400 P 114 

ERREXlT(202)l 15102600 P 114 

EMITlfTALLfTl ,T2)> % gMiT OP CALL AND PARTIAL 15103400 P 114 

end; % WORD CODE 15103600 P 114 

fnd Of simple variables 15103800 p ih 

» VOinT 15233026 15183050 P 114 

TE STfPI * LfTBRKET THEN I! ARRAY ITEM NOT FOLLOWED BY 15183100 P 114 

BEGIN % A SUBSCRIPT 15183200 P 114 

IF ELCLASS s PERtOD THEN 15183300 P 114 

IF 00TSYNTAX(Ti,T2) THEN % ERROR IN PARTIAL WORO 15183400 P 114 

GO To EXIT 15183500 P 114 

ELSE 15183600 P 114 

STEPtTI 15183700 P 114 

IF ELCLASS m ASSIGNOR THEN 15183800 P 114 

BEGIN 15183900 P 114 

IF PaRTtALWORD then 15184000 P 114' 

BfGIN 15184100 P 114 

IF Pi l» FS THEN % Partial word not left-most 15184200 P 114 

ERREXITf2093l 15184300 P 114 

XREFlT(TALLtREMEMBERSEQNo#ASSlGNREF)l 15184400 P 114 

END 15184500 P 114 

ELSE % ASSIGNMENT TO ID WITH NO PARTIAL WORD 15184600 P 114 

XMaRK(ASSIGNREF)> 15184700 P 114 

IF TABLE(I+l3 « ASTRISK ThEN 15184750 P 114 

IF (OUPIT l« (TABLE(I+2) i EQVOP AND TABLE(I*2) 15184800 P 114 

< MULOP) OR TABLE(I+2) * AMPERSAND) THEN 15184850 P 114 

STEPIT; 15185000 P 114 

IF PaRTIALWORD OR DUPIT THFN % NpED VALUE ON STACK 15185100 P 114 

IF TALL. CLASS < iNTARRAYiO THEN % NOT NAME ITEM 15185200 P 114 

FMlTPAlRfTALL.ADDRESS.LOD) 15185300 P 114 

ELSE 15185400 P 114 

FMlTNtTALL, ADDRESS)! 15185500 P 114 

IF PARTIALWORD AND DUPiT THEN 15185600 P lift 

BEGIN 15185700 P 114 

FMlTOfDUP)! 15185800 P 114 

EMITI(0,T1.T2); 15185900 P lift 

F^DI 15186000 P 114 

STaCKCT «» STaCKCT + REALfPARTiALWORD OR OUPlT)! 15186100 P 114 

STrPlTI 15186200 P 114 

IF DUPiT Then % we HANDLfD FIRST primary 15186300 P 114 

SIMPARiTh 15186400 P 114 



EUSE 

AEXPJ 
EMlTD(fta-T?,Ti,Tp)j 

EMITPAIRCTaLL. ADDRESS, IF Pi « FS THEN STD ELSE 

SND)I 

stackct js 0; x a and b aRe empty 

END 
ELSE % NOT ASSIGNMENT 

EM!Tt(TAIL»T1»T2)I 
GO TO rXTTI 
END OF ASSIGNMENT TO NON SjmPLf NON SUBSCRIPTED 
VARtARLFJ 

» voinT 

« VOinT 15370001 

IF STePI s PfRIOD then I PARTIAL WORD 
IF D0TSvNTAX(T1,T2) THEN % eRROR 

GO TO FXtT 
ELSE 

stepit; 
fF elcLass « assignop Then % assignment to subscripted 
begin % variable 

IF partialword Then 
IF PI # FS Then 

ERREXITC209)) % PARTiALWORO NOT lEFT-MOST 
XREFITfTALL»REMEMBERSEQNO.ASSlGNREF)l 
IF J B 1 THEN % SINGLE-DIMEnSiONED 

EMITNfTALL. ADDRESS) 
ELSE 

EMITOJCOOI 
IF TALL. CLASS > LONGID THEN % EXPLICIT INDEX OP 

EMiTOtiNX); X REQUIRED 

IF PI B FR THEN % CALLED FROM FOR STATEMENT 

GO TO FXITJ 
IF TAbLE(I*15 » ASTRlSK THEN 

IF f DUPlTl»fTABLECI+2) i F«>VOP AND TABLE(I + 2) 
< MULOP) OR TABLE(I+2) » AMPpRSAND) THEN 

steptti 
if partialword or dupit then % nefo value on stack 

BEGtN 

EMIT0(DUP)J 

EMITO(LOO); 
END) 
IF PARTiALWORd and DUPIT THfN 

begin 
emito(oup)) 

EMlTitO,Ti,T?)? 
ENDl 

stepit; 

IF DUPlT THEN 

SiMPARlTH 
ELSE 

AEXPI 
EMITD(48-T2,Tl,T2); 
EMIT0(XCH)» 
IF TALL, ADDRESS > 1023 TheN 

EMiTOfPRTE)! 
EMiTOflF TALL, CLASS MOD 2 « INTARRAYID MOo 2 THEN 



15186500 


P 


114 


15186600 


P 


114 


15186700 


P 


114 


15186600 


P 


114 


15186900 


P 


114 


15187000 


P 


114 


15187100 


P 


114 


15187200 


P 


114 


15187300 


P 


114 


15187fl00 


P 


114 


15187500 


P 


114 


15187600 


P 


114 


15273000 


P 


114 


15299050 


P 


114 


15300000 


P 


114 


15300100 


P 


114 


15300200 


P 


114 


15300300 


P 1 


114 


15300a00 


P 


114 


15300500 


P 1 


114 


15300600 


P 3 


[14 


15300700 


P 1 


114 


15300800 


P 1 


114 


15300900 


P 1 


114 


15301000 


P 1 


114 


15301100 


P 1 


14 


15301200 


P 1 


14 


15301300 


P 1 


114 


15301400 


P 1 


14 


15301500 


P 1 


14 


15301600 


P 1 


14 


15301700 


P 1 


14 


15301800 


P 1 


14 


15301900 


P 1 


114 


15302000 


P 1 


14 


15302100 


P 1 


14 


15302200 


P 1 


14 


15302300 


P 1 


14 


15302400 


P 1 


14 


15302500 


P 1 


[14 


15302600 


P 1 


14 


15302700 


P 1 


14 


15302600 


P J 


14 


15302900 


P 1 


14 


15303000 


P 1 


14 


15303100 


P 1 


14 


15303200 


P 1 


14 


15303300 


P 1 


14 


15303400 


P 1 


14 


15303500 


P 1 


14 


15303600 


P 1 


14 


153Q37Q0 


P 1 


14 


15303800 


P 1 


14 


15303900 


P 1 


14 


15304000 


P 1 


14 


15304100 


P 1 


14 


15304200 


P 1 


14 



IF PI « rs Then isd el.se isn 
ELSE ir p\ m fs Then sTo else snd)i 

STACKrT I* 0} !K A R B ARp EMPTY 
Pi >■ Oj 

fNd Of assignment to subscripted variable 

FLSF 

bestn % handling Of no assignment caSe 

SPCLMON i« PI e fP or PARTIALwORD OR ELCLASS i 
AMPERSANDI 

IF J » 1 Then % single dimenSioneo 

IF tall. CLASS i LONGID THEN t NAME ITEM 

Begin 

EMITN(TaLL. ADDRESS); 
EMIT0(INX)| 
IF SPCLMON THEN 
EMIT0(L00)» 
END 
FLSf % REFERENCE TO SINGLE DIMENSIONED ARRAY 

IF SPCLMON Then 

EMiTV(TaLL. ADDRESS) 
ELSE 

FMITN(TaLL. ADDRESS) 
FLSe % MULTI-DIMfNSIONED CASE 

EMITOMF SPcLMON THEN COC ELSE CDC)* 
IF PI « FS THFN t EXPECTED AN ASSIGNMENT 

ERRfXiT(210)I 
STACKcT »» U X BECAUSE REGISTERS ARE NON-EMPTY 

IF partialword thfn 

BEGtN 

EMlTi(0»Ti,T2)l 
Pi l» 0» 

ENDI 
FNO Of no ASSIGNMENT CASEJ 



SIPATcH number 115 FOR FSPOL CONTAINS 150 CARDS 00000000 P 115 

CASEV B/t9#, COMMENT 06i; 01229000 P 115 

DEFINE LASTSEOUfNCF » U9I, 01569000 P 115 

XXXXZXX«XZ«f):XXXXXXX«!KS:XXfXXXXXXXi;!i:S:XXX!KXIfcXXX!K!i:i;XZXi;ZXXXXXXXZXJ!XXXXXXXItX0764 P 115 

^^1|imm*********^^****** ************************************************ *%076ti60 IS P 115 

*X0764602b P 115 

CASE ♦X07646025 P 115 

« > » » *X07646030 P 115 

*X07646035 P U5 

STATEMENT ♦X07646040 P 115 

KBBSBBSEis *X07646045 P 115 

♦X07646050 P 115 

♦ X07646055 P U5 

THIS PROCEDURE HANDLfS THE CASE STATEMENT. ThE SYNTAX FOR THE CASE ♦X07646060 P U5 

STaTMeNT iSt *X07646065 P 115 

♦X07646070 P 115 

CASF <AEXP> OF REGIN <C0MP0uND TAIL> *X07646075 P 115 

*X07646060 P 115 

Thf CODF GENERATED FOR THlS STATEMENT iSt ♦X07646085 P 115 



15304300 


P 1 


114 


15304400 


P 1 


114 


15304500 


P ] 


114 


15304600 


P 1 


L14 


15304700 


P 1 


[14 


15304800 


P 1 


114 


15304900 


P \ 


114 


15305000 


P 1 


114 


15305100 


P ] 


[14 


15305200 


P 1 


14 


15305300 


P 1 


14 


15305400 


P J 


[14 


15305500 


P 1 


[14 


15305600 


P 1 


114 


15305700 


P 1 


[14 


15305600 


P 1 


14 


15305900 


P ] 


L14 


15306000 


P 1 


114 


15306100 


P ! 


114 


15306200 


P 1 


114 


15306300 


P 1 


114 


15306400 


P 1 


114 


15306500 


P J 


14 


15306600 


P 1 


[14 


15306700 


P 1 


[14 


15306600 


P 1 


[14 


15306900 


P 1 


[14 


15307000 


P 1 


114 


15307100 


P 1 


114 


15307200 


P 1 


114 


15307300 


P 1 


L14 


15307400 


P 1 


114 


15307500 


P 1 


114 



♦X07646090 P 115 



«♦ <AEXp> *X07646095 P 115 

** LITC ? ♦X076«6100 P 115 

«* BFW BRANCH TO BRANCH TABLC ♦X07646J05 P 115 

** STMT «X07646110 P 115 

** LiTC 7 *»076ft6ll5 P 115 

** BFW BRANCH TO RESUMf ♦X07646120 P 115 

*• STMT 1 ♦»07646125 P 115 

** UITC ? *X0764613b P 115 

** BFW BRANCH TO RESUME *X07646135 P 115 

J* . *X07646140 P 115 

** . *X07646145 P 115 

** . ♦X07646150 P 115 

X* BRANrH TabLE« 1'X07646155 P 115 

*♦ DUP ♦J;07646160 P 115 

*♦ ADD ♦107646165 P 1J5 

*♦ BFW BRANCH fNTO TaBUE ♦X07646170 P 115 

*• LITC ? ♦J07646175 P 115 

** BBW BRANCH TO STATEMENT ♦I07646180 P 115 

*♦ LiTC ? *i;07646185 P 115 

*♦ BBW BRANCH TO STATEMENT 1 ♦X07646190 P 115 

** . *X07646195 P 115 

*♦ . ♦107646200 P 115 

** . ♦X07646205 P 115 

** LITC ? ♦X07646210 P 115 

** BBW BRANCH TO STATEMENT N *I07646215 P 115 

%* RESUME' ♦X07646220 P 115 

** ♦X07646225 P 115 

;♦ ^ *X07646230 P 115 

X* NOTICE THATt ♦107646235 P 115 

** ♦X07646240 P 115 

X* I) THF CASF index IS NOT TNTfGERIZEO. IF YOU HAVE ANYTHING THAT ♦107646245 P 115 

X* MIGHT CAUSE THE INDEX TO BE UNNORMaLiZED YOU WILL HAVE TO ♦X07646250 P 115 

X* tNTFcERIZE it YOuRSfLF, ♦X07646255 P 115 

X* „ ♦X07646260 P U5 

«♦ 2) NO Range CHECKINt, is DONF on the index. if you use a number ♦X07646265 P 115 

X* out of range Then you will fall off the end of the world, *«07646270 P U5 

X* ♦X07646275 P 115 

%* 3) TF A STATEMENT IN THE CASE COMPOUND TAfL IS NULL* NO CODE IS ♦«07646280 P 115 

X* GENERATED FOR THE STaTeMfNT, INSTEAD* THE BRaNCH TABLE GOES *X07646285 P 115 

X* DIRECTLY To RESUmE. ♦«07646290 P 115 

X* ♦X07646295 P 115 

X* 4) IF A STATEMENT jH THE CASE COMPOUND TaIL iS A SIMPLE GO T0» ♦X07646300 P US 

%* THE STATEMENT DoES nOT HaVE A BRANCH To RESUmE AFTeR IT, ♦X07646305 P 115 

*• ♦X07646310 P 115 

%******^i'¥********* >tc*»**t *********************** i^***^**.*'¥***t^*^m**itimi¥***%()76ii6ii5 P 115 

%t%%%%%%%%%%%%t%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%l%%076a632Q P 115 

PROCEDURE CaSESTATemEnT; 07646325 P 115 

BEGIN 07646330 P 115 

ARRAY CASEADDRESSt0l99]l X THIS ARRAY HOlDS THE RELATIVE 07646335 P 115 

% ADDRESS OF THf BEGINNING OF EACH 07646340 P 115 

X CASE. 07646345 P 115 

INTfGfR 07646350 P 115 

LtNK» % HOLDS RELATIVE ADDRESS OF FIRST OF 07646355 P 115 

X BRANCHES That must be FIXED UP TO 07646360 P 115 

X BRANCH TO THE RfSUME POINT. 07646365 P 115 

AnR, % HOLDS ReLATIVf ADDRESS OF THE BRANCH 07646370 P 115 

% AROUND THE CASE STATEMENTS TO THE 07646375 P 115 



% BRANCH TABLE. ThIS BRANCH GfTS FIXED 07646380 P 115 

« UP WHFN WE FIND WHERE THE BRANCH TABLE 07646385 P U5 

% fiOFS, 07646390 P 115 

N, % COUNT OF NUMBfR OF CASE STATEMENT 0764639% P US 

% ENCOUNTERED. 07646400 P J15 

ENDOFiT, % ADDRESS OF RESUME POINT 0764640? P 115 

Jf % TEMPORARY 07646410 P 115 

KI % TEMPORARY 07646415 P US 

% 07646420 P 115 

BOOLEAN 07646425 P 115 

GOTOGI % TRUE IF WE ARE COMPILING A SIMPLE 07646430 P 115 

X GO TO, 07646435 P 115 

LABEL XlTj 07646436 P 115 

* 07646440 P 115 

* 07646445 P 115 
STEPITI % STEP OVpR ^CASE" 07646450 P 115 
ArXp; J! GENERATE COOF FOR CASE INDEX 07646455 P 115 
IF STEP? * BEGTNV Then % notice We just jumped over "OF" 07646456 P 115 

Begin 07646457 P 115 

ERRf70); GO TO xiTl 07646458 P 115 

ENDI 07646459 P 115 

EMIT(0)| % gENERATf DUMMY BRANCH TO BRANCH TABLE. WILL FIX 07646460 P 115 

EM1T0(BfW)I % IT UP LATER. 07646465 P 115 

ADR »« {J 07646470 P 115 

While stepi * endv no 07646475 p us 

Begin % processing case statements 07646480 P 115 

ERRORTOg «» TRUeI 07646485 P 115 

IF ELCLASS 9 SEMICOLON THEN % NULL SUTeMENT, NO CODE NEEDED 07646490 P 115 

N l» N + I % This LFAVeS a ZeRO in CASEAdDRESS[N1 07646495 P 115 

ELSE 07646500 P 115 

BEGIN 07646505 P 115 

CASEADDRESSrN] »= It % REMEMBER BEGINNING ADDRESS OF 07646510 P 115 

N »» N + 1) % THIS CASE. 07646515 P 115 

IF (GOTQG Is SIMPGO) THEN 07646520 P 115 

ELBATtI«*i-l3 »« ELCLASS »» GOVi % REMEMBER IF SIMPLE 07646525 P 115 

STmTJ % PROCESS THE STATEMENT 07646530 P 115 

IF ELCLASS « SEMICOLON THEN 07646535 P 115 

IF NOT GOTOG THEN % GENERATE DUMMY BRANCH TO RESUME 07646540 P 115 

BEGIN 07646545 P 115 

EMIT(LINK); 07646550 P 115 

EMiTOfBFW)! 07646555 P 115 

LINK tm LI 07646560 P 115 

ENd 07646565 P 115 

ELSE X SIMPLE GO TO, NO CODE TO GeNERaTE 07646570 P 115 

ELSE 07646575 P 115 

IF ELCLASS J« ENDV THEN 07646580 P 115 

FRR(71)| 07646585 P 115 

ENDI 07646590 P 115 

END Of WHILE LOOPi 07646595 P 115 

ENDTOg I* TRUE! X SKiP OVER COMMENT AfTeR END 07646601 P 115 

00 STOPnEFINE I* TRllE UNTiL 07646602 P 115 

STEPI i ENDV AND fLCLASS > UNTILV OR NOT ENDTOG; 07646603 P 115 

ENDTOg I» FALSeI 07646604 P 115 

EM!TBfBFW.ADR»L3l t FIX UP BRANCH TO BRANCH TABLE 07646605 P 115 

EMIT0(0UP)I J! GENERATE CODE TO MULTIPLY INDEX 07646610 P 115 

EMITO(AOD)I % BY TWO AND BRANCH |NTO BRANCH TABLE 07646615 P 115 

EmITO(BFW)I 07646620 P 115 



EnOoFIT »3 l * 2XNJ % CALCULATE WHERE RESUME IS 

While (ji»j+i) < n no % generate the branch table 

EMlTRrBBW,L««L+?»lF f K « sC ASEADDRESS[ j-l ] ) « THEN 

endofit else K)I 

K? % TO MAKr THE lOOP WORK 
INK««J) # DO 

% FIXING UP BRANCHES TO RESUME 

GFTfLTNK»?)> % LOcATfON Or NpXT BRANCH TO FJX 
BCBFWtLjNK.Dl 



J « 

WhI 
B 



XlTl 

END Or 
Lfl9 



m LIN 
LE CL 
FGIN 
J i> 

EMIT 
NDI 

CASE 
I 



STATEMENT! 

CASESTATeMENTJ GO TO FXfT; 

OcTO&00000250000002, "SFfELn"* 
OcTO6lOOOOO0OOOCOOO, "/jcaSeO**! 
BY JTC - MSC DETROIT 

THIS Patch adds a -case- statfmfnt to esPol. see 

DOCUMENTATION AT BEGtNNtNG Op PROCEDURE TO SfE HOW 
IT IS USrO. 
it i^n^********* ************************************** ********* 



SI 

Si 
SI 

St 



07646625 P 115 

076/116630 P 115 

07646635 P 115 

07646640 P 115 

07646645 P 115 

07646650 P 115 

07646655 P 115 

07646660 P 115 

07646665 P 115 

07646670 P 115 

07646674 P 115 

07646675 P 115 
07759100 P 115 
07759200 P 115 
07770000 P 115 

X654 09128700 P U5 

X656 09128800 P 115 

99990000 P 115 

99990100 P 115 

99990200 P 115 

99990300 P 115 

««**it>***ii<«4,*99990400 P 115 



S#PaTcH NUMreR 116 FOR rSPOL CONTAINS 1 CARP 

SAVE ARRAY DEF I NEARRAYT I 34 J j 
81 DATE 6/?9/76 

BY JTC - MSA CENTRAL 



00000000 P 116 



SI 
SI 

Si 

SI 
SI 



thtS Patch fixes a prorlfm with fspol that could cause the 

COMPILER TO ABORT WiTh AN iNVALiD INDFX aT END Or FILE ON 
EITHER The CARD OR TAPE FILE IF NO 99999999 CARD WAS PROVIDED, 



01491000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 



P 

P 
P 
P 
P 
P 
P 



116 
116 
116 
116 
116 
116 
116 



S#PATcH NUMBER ll7 FOR fSPOL COnTAinS 3 CARDS^ 



X 

% 



MARK 
MAY 



XVi, 0.116 
9. 1977 



"XVI. 0. 116'' 

SI BY OJZ - MSC DETROIT 

SI DATE 05/09/77 

SI THIS PATCH UPDATES ThE MARK LEVELS OF ThE S 

$t ******** *************^**^t****ll,*i$4i^*^^Hf*iHi^f^^ 



oooooopo 

00001030 
00001040 

01831000 

99990000 

99990100 

SYMBOL FILE, 99990200 

*^i***0*******iti**:t^*********9999OiOO 



P 
P 
P 
P 
P 
P 
P 



117 



S# PATCH NUMBER 901 FOR ESPOL CONTAINS 1 CARD 

SI THIS PATCH CHANGES INPUT TAPE BLOCKING TO ALLOW INCREASED 

Si EFFICIENCY IN STORiNr SOURCE FILFS ON TaPE 

SI BY TjP, ?/l6/77. USr UTiLlTy COMPTP/UTiL TO CREATE SOURCE TAPES. 



C 901 0000000/PMCARD 



C 
C 

C 



901 

901 
901 



BEGIN RR8*50xiO + 50+iJ Rr9«.i0 END* 



00538000 C 90i 



SiPATCH NUMBER 902 FOR FSPOL COnTATNS 1 CARD, PAGE SkIP BETWEEN PROCEDURES 

Ji thtS Patch changes The effect of the format option to cause a 
*» PAGE Skip between procedures instead of a four-line Skip 

*« By J.H:, UCSCf H MAY 77 
SI 



SPACEITDOWN . WR | TEf U I NEr PAGE ] )* ) 



14023100 



C 902 

C 902 

C 902 

C 902 

C 90? 

C 90? 



i 

i 

i 
i 



4i*4<«*4r*i^i^4i 



CONFLICTS 



*******<**********it,****<ti**m****i¥***********#********it,i^^i^i^itii^tti^^,i^*t*ili^^,*t***i^***i^*0iti* 



» VOIdT 01001771 

DETlNr XREFfNFOtXRrriNFOlfXRFFINFOPjK 

XTNFOrxRFFlNFOl.tXRFriNFO?)DIV 2]#, 
XMARK* IF XREF TmEN XREFA Y2[XREFPT-1 ] , f 1 : 1 ] *i #> 



ARRAY XREFAY2rOI29].XREFAYitOMO]»XINF0[0«31»Oi 1273; 



01001750 P 
01001750 P 
01001760 P 
01001770 P 



integfR xrefPt.xluni 



deftne lastsequfncf » U9#, 

DEFINf LASTSEOUENCE ■ 1<!7#. 



01007100 
01007100 



01007200 
XDFB01007200 



01569000 
01569000 



DEFINE lASTSEQUenCE • \n7$» 

IF XREF Then 

IF GTiiti THEN 
BEGIN 

IF XREFPTiaO THEN 
BEGIN 

WRITf (DSK2»30.XREFAY2t*])| 
XREFpT ♦ 01 
END» 

XRErAY?tXREFPTl«-CARDNUHBER&XREFlNF0[GTl»GT2]t09i36ll2]J 
XREFPT ♦ XREFPT+U 

ENn> 



OCT0500000250000002, "SFIEUD"* 
OCT0500000250000000. "SFIEUD**. 



OcT0500000250000000, ••5FIELD*'* 
STREAM PROcfDURF XREFMOvEt S. C » SN. Sfl,L, D ) I 
VaI-UE C»L» 



«65« 
X654 



J!65« 



01569000 
02882100 
02882200 
02882300 
02682400 
02882500 
02882600 
02882700 
02682600 
02862900 
02882910 
02882920 



09128700 
09126700 



bfgtn 



Dl isDI 

DS|» 8 LIT** "I 

St IffDf 

DSt«6 wds; 

DTJ«DI 

Si isSl 

SIIbSI+3I 

OSl«C chr» 

nT*D|+60> 

sh»sni 



09128 
IDF813301 
«DFB13301 
XDFB13301 
XDFB13301 
IDFB13301 
XDFB13301 
I0FB13301 
XDFB13301 
lOFB 13301. 
«0FB13301 
«DFB13301 
X0FB13301 
XDF813301 
XDFB13301 



700 
100 
130 
160 
190 
220 
250 
280 
310 
340 
370 
400 
430 
460 
490 



10 CONFLICTED WITHI 
08 DISCARDED 
08 VOIDED 
08 VOIDED 



10 CONFLICTED WITHI 
06 DISCARDED 



10 CONFLICTED WITHI 
08 DISCARDED 



15 CONFLICTED WlTHl 
12 DISCARDED 



lO CONFLICTED WITHI 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

06 VOIDED 

08 VOIDED 

06 VOIDED 

06 VOIDED 

08 VOIDED 

08 VOIDED 



15 CONFLICTED WITHI 
12 DISCARDED 



10 CONFLICTED WlTHt 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

06 VOlOFO 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 

08 VOIDED 



ENOI 



DS»»4 DECI 

St isSQ; 

DSl«8 DFCJ 
Sti«LOC It 
DSl«WDS> 



I0FB13301520 P 108 VOlOfD 

S;OFB13301610 P 108 VOIDfO 

XDFB13301640 P 106 VOIOFD 

%DFB13301670 P 108 VOIDFO 

XDFB13301700 P 108 VOIDFD 

XDFB13301730 P 108 VOlDFD 



AND (NOT PTOc, OR STReAMTOr) THfN 

UMr n»COUNT,SGNG ,CARDNUMBfR. 

FlNFOrNF-XTTNFO.LlNKRiNEXTiNFO;LtNKCl»«XLUNIaXLUN + l. 
XREFAYi )l 



END» 

IF XRef 

Bfgtn 

XRFFMOVFf ACC 

xre. ... . . 

XREFAYi )l 

writf.(Dski»io»xrffayi r*])> 

EnO} 



1!DFB13301730 
13310100 
IDF813310200 
XDF813310300 
«DFB133l0400 
13310450 
XDFB13310500 
IDFB13310600 



P 110 CONFLICTED WITHI 

P 108 VOlDFD 

P 108 VOIDED 

P 108 VOlOfO 

P 108 VOIDED 

P 108 VOIDED 

P 108 VOIDED 

P 108 VOIDED 



IF XREF AND NOT SPECTOG 
IF XREF AND PTOG THEN 



THEN % ERASE PREVIOUS XREF ENTRY. 



13341200 P 110 CONFLICTED WITH! 
13341200 P 108 OISCAROFO 



IF XREF AND PTOG THEN 
XMARK(ASSiGNREF)| % ASSIGNMENT 



SVOIDT 



TO Simple variable. 



REGIN 
BEGIN 

ERR(20n; % PARTIAL WqRD NOT LEFT-MOST 
GO TO EXIT* 
FNOI 

XREFlTfTALL.REMEMBERSEONO,ASSlGNREF)J 
GO TO LH 
FND» 



Lit 



XMARKI 

IF TALL.fORMALNaMe THEN 



13341200 P 114 CONFLICTED WITHI 

15091100 P llO VOIDED 

15092010 P 110 VOIDED 

15113100 P 110 VOIDED 

15115000 P 110 VOIDED 

15115100 P HO VOIDED 

15115200 P 110 VOIDED 

15115300 P 110 VOIDED 

15116000 P no VOiDfD 

15116100 P 110 VOIDFD 

15116200 P 110 VOIDED 

15092000 P 108 VOIDED 

15092010 P 108 VOIDED 

15092020 P 108 VOlDFD 



tF TALL.fORMALNaMe THfN 

JaZ7« xrefiTctall»remfmbeRSeQno.assignref)J 



STFPiTt AEXPl 



15092020 P 11« CONFLICTED WITHI 
15233012 P 110 VOIDED 



JAZZJ 



XREFtTf TALL»REMEMBERSEQN0.ASSI6NREF)i STEPlT) AEXPI 1523301? P U4 

XREF!TfTALL»REMEMBERSEQNO»ASSlGNREF)l % ASSIGNMENT T015301100 P llO 

% SUBSCRIPTED VARIABLE, 15301200 P llO 

IF STEPI * ASSIGNOR THEN 15342000 P 110 

IF Pi - FS THEN % PARTIAL WORD IS LEFT^MOST 15342100 P llO 

BEGIN 15342200 P 110 

XREFITCTALLjREMEMBERSEONOtASSlGNREF) J % PARTI AL15342300 P 110 

t WORD ASSIGNMENT TO SUBSCR, VaR, 15342400 P llO 

GO TO LAST) 15342500 P llO 

END 15342600 P HO 



CONFLICTED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 



WITHI 



IF (XREF OR OEFININGitllU) AND 
IF XRfF or DEFINING. tl iU THEN 



XLUN > Then 



16495300 P 110 CONFLICTED WITHI 
16495300 P 108 DISCARDED 



nEFiNF XREFlNFOriNnEX] « I NFOr f ( 1 NDEX ) . CF DiV ?),t33lf]. 
DEFINE XRFFINFO.INFO^I 



1700?005 P 110 CONFLICTED WITHI 
17002005 P 108 DISCARDED 



TOTALNO »c XUUNI % REMEMBER NUMBER Op IDfNTIFIfRS. 

TOTALNC-REALf XlUN >500 )xioOO + 3000 + XLUN> 



irOOflSOO P llO CONFLICTED WITH« 
17004500 P 108 DISCARDED 



BEGIN 
REWINDCDSKI ) 



17022000 P 
»0FB170?2000 P 



llO CONFLICTED WITH« 
108 DISCARDED 



IE B00LEAN(Ar8n THtN 

AC9]«»XREFI»JF0f A[9].LINKR»Ar9].LlNKC]»»XLUNl 



17025000 P llO 
'XlUN+i;XOFB17025000 P 108 



CONFLICTED WITHI 
DISCARDED 



IF 63 5C < DC THEN 

IF 63 SC LSS DC THEN TALUYl*t) 



17033000 P 
XDFB17033000 P 



110 CONFLICTED WITHI 
108 DISCARDED 



IF REAL(COMPlla.COMPSl{A»B)) s ? THEN % IDS EQUAL 
COMPlI»COMPSl(AiB)» 



17042300 P 
XDFB17042300 P 



110 CONFLICTED WITHI 
108 DISCARDED 



SORTCOUTPUTl.INPUTl»OfHVl,cOMPi»10»lF TOTALNO < lOOO THEN 
SORT (OUTPUT 1, INPUT1p0.hV1»cOMPi.10.TOTaLNO ); 



17045000 P 
XDF817045000 P 



110 CONFLICTED WITH! 
108 DISCARDED 



SORT(OUTPUTl,INPUTlf 0»hV1,COMPi » 10. TOTALNO ); 
STREAM PROCEDURE PUP(S,0)l 

BEGIN 

Si l»St 

01 >»DI 
DSi.7 WoS; 8fDSI«8 LiT •• ")> 
JVOIOT 17054551 

END! 
STREAM PROCEDURE PUPi(S»D); 
BEGIN 

Sfi.S) SIIbSi^'^?! SiIbSI*?8; 

Dn«D; DSi»2 HT " "J DSis4 CHRI DS|s2 LIT ♦• *•»; 
DSl«8 CHR; DSIbLIT "♦'♦I DSIB38 LIT " "l 
ENDI 
STREAM PROCEDURE PUP2C STAR »S »C »D) J 
VALUE STAR.SfCl 

BEGIN 

DI>»DJ 
C(DI I*DI+10); 



sit^Loc s; 

nSl» 8 DECI 
DSlsLfT •• ••; 

FNOi 
STREAM PROCEDURE BLANKeT(A)> 
BEGIN 
OIUAI 

DSI. 8 Lit " "» 
St isAt 



STAR(0I*DI"1> OS^LIT"***); 

STAR(nnsDi-i J dSi«lit •♦*•♦); 



XDFB17045000 P 110 

XDFB17048000 P l08 

!IDFB17049000 P 108 

XDFB17050000 P 108 

XDFB17051000 P l08 

17052000 P 108 

17053000 P 108 

lDFfll7055000 P 108 

17055100 P 108 

17055200 P 108 

17055300 P 108 

17055400 P 108 

17055500 P 108 

17055550 P 108 

17056000 P 108 

17056500 P 108 

«DFB17057000 P 108 

XOFBlZOSeOOO P 106 

17059000 P 108 

17059100 P 108 

X0FB17060000 P 108 

XDFB17061000 P 106 

17061100 P 108 

iDFBl 7062000 P 106 

XDFB17063000 P l06 

IOFB17064000 P 108 

iOFBl7065000 P l08 

IDFB17066000 P 108 

I!0FB17067000 P 108 



CONFLICTED WITHI 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDFD 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDFO 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 



DSts 14 WdS; 



XDrBl7066000 P 1 08 VOIDED 

J5DFB17069000 P l08 VOIDED 



ARRAY l0TYPEl0inDMAX*a)x4-nj 
ARRAY ir)TYpEI0»(lDMAX + ,3)x4-) ]) 



I70ft7l00 P 112 CONFLICTED WITHI 
17047100 P 110 DISCARDED 



DEFINE I » LASTAODRESSI J 
DEFINE I»XLUN#I 



17073100 P 110 CONFLICTED WITH! 
8DFB17073100 P 108 DISCARDED 



AtO] Is 1 & NEWlDtl.REFIDNOF] REFlONOD 

AtOJ»« T&XREFlNFOri.t 9 » 41 . I , t 1 31 8] ] r 9»36il2]J 



17080000 P 110 CONFLICTED WITH! 
XOFB17080000 P 108 DISCARDED 



XREFAYirB] «s XREFPT Is LASTaDDRESS is O; 
XRFFAYir9]l«-l| XREFPT*0) 



17084000 P 110 CONFLICTED WIThi 
IDFB17084000 P 108 DISCARDED 



"LABEL. 
"LABEL. 



". % 32 

••> J! 32 



17084300 P 112 CONFLICTED WIThI 
17084300 P llO DISCARDED 



LABEL E0F2» SKtP; 

LABEL L00P»E0F2> 



17091100 P 
17091100 P 



110 CONFLICTED WITH! 
108 DISCARDED 



OWN BOOLEAN B2, FWdTOG. LbLTOq* W aI T rNfiFORrWDREn 
OWN BOOLEAN B2> 



1709U10 P 
17091110 P 



llO CONFLICTED WITH! 
108 DISCARDED 



FNDJ 
LABEL DUn> 



17091200 P 
17091200 P 



llO CONFLICTED WITHI 
108 DISCARDED 



tf 



label duni 
IF NOT b2 Then 

TF B THEN 

WRlTECPRlNTER»15.PAYr*l) 
ELSE 
LASTADDRESS * LaSTADORESS*A r 0] 

BEGIN 



AND LASTaODRESS,C9 ii2]# 



LOOPI 



IF Aroi.r 
begin 



9112] OTR XREFAYlt9] ThEN 



WRlTE(PRlNTER,15.PAYr*]); 

blankeT(Pay ); xrefpti»oi 

REA0fDSKl,10,XREFAYlr*n[E0F2J* 
PUP(XREFAY1.PAY)I 
WRlTcfPRlNTpRfDBLj)* 
WRlTEfPRlNTERf lO.PAYr*])! 
PUP1(XREFAY1»PaY)I 

WRlTEfPRlNTERtDBLlMO.PAYr*])! 

blankeT(pay); 

GO LOOPI 



17091200 P 110 

17091210 P 108 

XDFB17092000 P 108 

IDFB17093000 P 108 

I;DFB17094000 P 108 

THEN 17094100 P 108 

«DFB17095000 P 106 

X0FB17095050 P 108 

XOF817095100 P 108 

XDFB17095200 P 108 

17096000 P 108 

17097000 P 108 

17098000 P 108 

17099000 P 108 

17099100 P 108 

17099200 P 108 

17099900 P 108 

IOFB17100000 P 108 

17100100 P 108 

17100200 P 108 

XDF817101000 P 108 

XDFB17101100 P 108 



CONFLICTED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIOFD 
VOIDED 
VOIDED 
VOIDED 
VOIDFO 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 



WITHI 



fNDJ XDFB17102000 P 106 VOIDED 

DUNI 1710P100 P 108 VOIDFO 

PUP2aASTADDRESS < 0, LAST ADDRESS, t 21 » 27] 1 1 7 103000 P lOfl VOlDPD 

XREFPTiPAYrl]); 17103010 P 108 VOIDED 

IF XREFPT|sXREFPT+l s U THEN 17103100 P 108 VOIDED 

BEGIN IDF817103200 P 108 VOIDED 

XREFPTtaO; »DF817103300 P 108 VOIDED 

WRITE(PR|NTER»15.PAYr*J)j XDFB17103400 P 108 VOIDED 

BLANKfT(PAY)I IDFB17103500 P 108 VOIDED 

ENDJ XDFB17103600 P 108 VOIDED 

FNDI XDFBl7n0000 P 108 VOIDED 

IF FALSE Then fOF?« B^IsTRUE* 17110500 P 108 VOIDED 

end; «0FB171M000 P 108 VOIDED 

XREFAYir9].CUASS) > IDMaX THEN IF I » 17095000 P 112 CONFLICTED WITHJ 

XREFAYir93.CL.ASS) > IDMAX THEN 17095000 P llO DISCARDED 

FIELDID Then 33 ElSe ELSE 1) X 43» 17095100 P 112 CONFLICTED WITH! 

Else i) x 43, 17095100 p iio discarded 

At03 «« 3**T777777777T7777^i % BIGGEST FLOATING PT, NO. 17114000 P UO CONFIICTED WITHI 

At03»*54975iS8l3887» IDFB17114000 P 108 DISCARDED 

C0MP2 IB IF A[03,REFlDN0F < B [ 03 .REE i DNOF THEN % DiF IDS 17117000 P llO CONFLICTED WITH! 

CoMP?* ABSfAt03) LEO ABStBt03)l 17117000 P 108 DISCARDED 

SORTcOUTPUT?, INPUT?. 0»hV2,C0MP2M»6000)? 17119000 P UO CONFLICTED WITHI 

S0RT(0UTPUT2» INPUT?. 0»hV2.c0MP2»1.T0TALN0 ); XDFB17119000 P 108 DISCARDED 



NUMBER OF ERRORS DETECTED « 0. 
PROCESSOR TtME « 65 SrCONDS, 

I/O ttmf » 40 seconds: 

lABEL OOOOOOOOOLINE 00177234? FXECUTE PATCH/MERfiE PATCH /MERGE 



7 COMPILE ESPOL/DISK ALr,OL LIBRaRY 

P A ^ K C T 7 

INPUT 1H3 CARDS FROM ZlP 

TIME J60i 

DATE 77234 MONDAY, 08/?2/77 



*** BURROUGHS B«}700 DCMCP MARK XVi,0.73 AND iNTRlNSlCS MARK XVl.O.OO ♦♦* 

#N0 MESSAGES TODAY 

? COMPILE ESPOL/OISK ALGOL LIBRARY 
? ALGOL STACK. lOOO 

? ALGOL FILE TAPE* SYMBOL/ESPOL DISK SERIAL 
? FILE LINT" LINE PRINT OR BACK UP 
? OATA CARD 

4lALG0L/FSP0La0l SCHEDULED 160i, NfEOS 273?8 
<HALGOl/ESPOL« 1 BOJ 1602 05/12/77 
CDB IN CARD OBtALr,OL/ESPOL» 1 

dka in ser symbol espoljalgol/fspol* 1 

PBDOOOe OUT Oil LINEIALGOL/FSPOLb 1 
dka out ser DSki UOOOOOOiaLGOL/ESPoLb I 

DKA ■■'- "-" ■■ "-■■-• ■ 

DKA 
#DUP 

ESPOL, .. 

DKA LOk ESPOL DISKIALGOL/FSPoLb 1 
COR RFL CARD DBULGOL/ESPOLs 1 

? fnd. 



3008 OUT Oil LINEIALGOL/FSPOLb 1 
OUT SER DSki UOOOOOOiaLGOL/ESPoLb I 
OUT SER DSK2 UOOOOOO » aLGOL/ESPoL» 1 
OUT RDM ESpOL 01 SK I ALGOL/ESPOL. 1 
LIBRARY ESPOL/OtSKlALGOL ESPOL. 1 

3L/niSK REMOVED 




. r,«->„. ^w.*OL» \ 

- 012 LINE 12687JAL60L/ESPOL* 1 

ALGOL/fSPOL* 1 EOJ 1613 

FOR ALG0L/ESP0L« 1« PROCESS* fl7A SeCS, IDs 269 SECS, OLAY* 9 

PKT#0007 REMOVED 



Label ooooooogohne ooj7723a? compile fspol/disk algol library alrol /espol 

burroughs b-5700 algol compllpr mark xvi. 0,122 monday, 06/22/77, 4102 pm, 

fspol /disk 

SOURCE FILEj symbol /ESPOL 

SSET omit LISTa a LIST XlU- 00000999 C OOOllOOOOlO 

BEGIN COMMfNT OUTERMOST BLOCKi 00500000 T OOOllOOOOlO 

PRT(22) • ♦LIST. LABEL, OR SFGMfNT DESCRIPTOR* 
PRT(23) « *0UTeR BLOCK DESCRIPTOR* 
PRTC24) " *SEGMFNT DESCRIPTOR* 

START OF SEGMENT ********** 2 
INTEGER ERRORCoUNTJ COMMENT nUmBER OF ERROR MSGS, MCP WILL TYPE 00501000 T 00021000010 

PRT(25) " ERROHCOUNT 

SYNTX ERR aT EOJ IF THIS IS NON-ZERO, MUST Bf ?R*25J 00502000 T 00021000010 

INTEGER SAVETIMEI COMMENT SAVE-FACTOR FOR CODE FILE» GIVEN BY MCP. 00503000 T 0002*000010 

PRT(26) « SAVETIME 

IF COMPILE & GO bO. FOR SYNTAX, «i-i, MUST BE AT R + 261 00504000 T 0002«0000»0 
INTEGER CARDNUMBER; % SeQ * Of CARD BEING PROCESSED. 00504100 T 00021000010 

PRT(27) « CARDNUMBeR 

INTEGER CARDCOUnT; % NUMBER OF CARDS PROCESSED, 00504150 T 00021000010 

PRT(30) • CARDCOUNT 

BOOLEAN BUILDLINEI 00504700 T 00021000010 
PRT(3l ) « BUILDLINE 

COMMENT RRl-RRn ARE USED IN SOME PROCEDURES IN 00505000 T 0OO2J00OOI0 

PLACE OF LOCALS TO SAVE STACK SPACE» 00506000 T 00021000010 

REAL RRl »RR?»RR3»RR4,RR5»RR6,RR7»RR8»RR9,RRiO,RRll) 00507000 T 0002»0000I0 
PRT(32) B RRl 

PRT(33) » RR2 
PRT(34) * RR3 
PRT(35) ■ RR4 
PRT(36) * RR5 
PRTt37) « RR6 
PRT(40) « RR7 
PRT<4J ) • Rr8 
PRTC42) • RR9 
PRT(43) » RRIO 
PRT(44) B RRU 

COMMENT SOME Of THE RRl ARE USED TO PASS FILE INFORMATION 00508000 T 00021000010 

TO THE Main rLOCK; 00509000 T 00021000010 

COMMENT EXAMIN RETURNS THF CHARACTER AT ABSOLUTE ADDRESS NCRl 00510000 T 00O2J0OOOI0 

REAL STREAM PROCEDURE EXAMiN(NCR)> VALUE NCRl 00511000 T 00021000010 

PRTf45) » FXAMIN 

BEGIN Sl*NCRJDl*LOC EXAMI NIOI «.DI +7 1 DS*CHR ENDI 005i?000 T 0002«0000l0 



INTEGER STREAM PROCEDURE GeTF( Q) I V Ai.UE QJ 00523000 T 0002I0002»0 

PRT(46) • GETF 



BEGIN SI*LOC Gfin SI ♦S I -7 I D I *LOC Q* D I -D I +5; 

SKIP 3 DBJ 9(ir SB ThEN DS.-SFT E.LSE DS«-RESET; SKIP SB); 

ni*-LOC QJSl*Q>DS»-WDS>ST*.QiriETF*Sl 
END GETFI 



005?4000 
005?5000 
00526000 
00527000 



T 0002I0002»0 

T 00021000312 

T 00021000512 

T 00021000611 



PRT{47) 8 
PRT(50) « 
PRT(5i) - 



PRT(5?) 
PRT(53) 
PRT(5ft) 
PRT(55) 



PRT(56) 
PRT(57) 



COMMENT START SfTTlNG UP FlLE PaRAMfTFRSI 

IF FXAMlNfRRu*GETFC3)+-Y08'') J«12 ThEN RRi*5 ElSi 

BEGIN RR1«.2>RR2«-150 END* 

IF EXAMIN(RR11>5) #1? THEN RR3*4 ELSE 

BEGIN RR3*2> RR'J^iSO ENOI 

IF EXAMIN(RR11+10)«12 THEN 

BEGIN RR5«.2|RR6*10)RR7«'150 END ELSE 
BEGIN RR54.i;RR6*56iRR7*l0 pNo; 
IF EXAMIN(RR11+15)«12 THEN 

BEGIN RR8*.10|RR9*l50 pND ELSE 
BEGIN RR8*.50¥lO + 50 + l> RR9*iO fNd» 
BEGIN COMMENT MaIN BLOCK; 

INTEGER OPINX; % USED FOR tNDfXiNG INTO OPTIONS ARRAY, 
♦SEGMpNT DESCRIPTOR* 

OPINX 

BOOLEAN SETTING; % USED BY DOlLaRCARD FOR AN OPTlON'^S SETTING, 

Setting 

INTEGER 
NfWINX 

adovalue 
basenum 

TOTALNO 

DEFINE OPARSIZE = 200 #; 

ARRAY OPTiONStOtOPARSiZE] J 
OPTIONS 

BOOLEAN OPTIONWORDJ 
OPTIONWORD 

DEFINE 



X901- 



00528000 
005?9000 
OO53OOOO 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00538000 
01000000 
01000800 



T 0002t0007«3 

T OOO2IOOO713 

T 0002l00i3»2 

T 0002tOOl6M 

T 00021002010 

T 00021002210 

T 00021002410 

T 00021002712 

T 00021002913 

T 00021003210 

P 00021003410 

T 00021003713 

T 0002I0037«3 



NFWINX, ADOVALUE* BASENUM, TOTALNO; 



CHECKBIT 
DE3UGBIT 
OFCKBIT 

formatbit 

INTBIT 
LiSTABiT 

ltstbit 

LiSTPBiT 

MCPBiT 

MERGEBlT 

NESTBIT 

NFWBIT 

NFWINCLBIT 

OMITBIT 

PRINTDOLLARBIT 

PRTBIT 

PUNCHBiT 

purgebit 

SEGSBIT 
SeQBiT 

sfqerrbit 



1*. 

2#» 

3#, 

4#. 

5#. 

6#, 

7*. 

8#, 

9*. 

10#. 

11*1 

12*. 

13#, 

14#, 

15#, 

16#. 

17#. 
18#. 
191, 
20#. 
?1*» 



START OF SEGMENT **♦♦♦***♦* 

01000802 T 0003«0000l0 



01000860 T 00031000010 



01000902 
01000904 



T 0003IOOOO«0 
T 00031000010 



01000910 T 0003»0002ll 



01000920 
01000930 
01000940 
01000950 
01000960 
01000970 
01000980 
01000990 
OlOOlOOO 
OlOOlOlO 
01001020 
01001030 
01001040 
01001050 
01001060 
01001070 
01001080 
01001090 
01001100 
OlOOlllO 



T 0003100021 

T 0003100021 

T 0003t0002« 

T 0003100021 

T 0003<0002< 

T 0003t0002t 

T 0003100021 

T 0003»0002t 

T 0003100021 

T 0003t0002l 

T 0003100021 

T 0003100021 

T 0003t0002t 

T 0003100021 

T 0003100021 

T 0003100021 

T 0003100021 

T 0003100021 

T 0003100021 

T 0003100021 



01001120 T 0003100021 



COMMENT 
DEFINE 



COMMENT 



BOOLEAN 
PRT(60) • NOHEAOTNg 

BOOLEAN 
PRT(6i) « NfWBASE 

BOOLEAN 
PRT(6?) « LASTCRDPATCH 



INTEGER 
PRT(63) m XMOOE 

BOOLEAN 
PRT(6«) m nOLLARTOG 

INTEGER 
PRT(65) • ERRMAX 

BOOLEAN 
PRTC66) « SFQXE0T06 

BOOLEAN 
PRT(67) * LISTER 



SiNGLBiT 

STUFFBiT 

VOIOBfT 

VOIDTBIT 

XREFBIT 

BENDBIT 

USFROPiNX 

IF A NfW 

AND ADD 

fill stat 
checktog 

DEBUgTqG 
OECKTOG 

formatog 

INTOG 

LISTATOG 

LISTOG 

LISTPTOG 

MCPTOG 

meRgetog 

NESTOG 

NEWTOG 

NFWfNCL 

OMITTING 

PRlNTDOLL 

PRTOG 

punchtog 
purgetog 

SFGSTOg 

sfqtog 
seqtog in 
seqerrtog 
singlTog 
stuffTog 

VOIDING 

voidtape 

xref 

BFNO 
DUMMY 

noheadingi 



* 22* 
« 23# 

» 25# 

« 26# 

« 27* 

» ?8# 

COMPlLER-DE 

PTION IN DE 

EMENT in IN 

f OPT 

« OPT 

* OPT 
» OPT 
» OPT 
« OPT 
a OPT 
« OPT 
» OPT 
« OPT 
« OPT 

* OPT 
s OPT 
» OPT 

ART06 ' OPT 

« OPT 

» OPT 

* OPT 
« OPT 

* OPT 
DICATeS RES 

= OPT 

» OPT 

» OPT 

« OPT 

» OPT 

* OPT 
s OPT 

« #; 

% TRUE 



FINED OP 
FINES BE 

tTializa 

lONWORo. 
lONWORDi 

ionworo* 

jOnWORd, 
lONWOROt 
IONWORD. 
lONWORo. 
lONWORn, 
TONWORo. 
IONWORd, 

tOnworo, 

iONWORd, 
lONWOROt 
iONWORd, 
iONIWORo* 

ionworo* 

IONWORd. 
iONWORd, 

tOnword. 
tonworo, 
fouenctn 
ionworo, 
ionword» 
ionworo. 

lONWORDt 
IONWORD, 

iOnword, 

IONWORd, 



TiON IS added, change useropin 
ow, IN dollarcard» and in 
ion of compiler* 



J!l08. 

fioe. 

X108' 

X 



checkbit 
debugbit 
deckbiti 
formatbi 

INTBITU 
LISTABIT 
LISTBITI 

listpbit 

HCPBITII 
MERGEBIT 
NESTBITJ 
NEWBITU 
NEWiNCLB 
OMITBITI 



U *» 
] #» 

«n *> 

*» 

n *» 

1] ** 

*, 

n #» 

] *p 
*» 

Tin #, 



PRlNTDOLLARBlTli] I, 

PRTBITtn *» 
PUNCHBlTll] *» 
PURgEBITU] *» 
SEGSBlTin *» 
SEOBITJU *» 

IS TO BE done; 
SEQERRBlTlll #, 
SINGLBITH] *t 
STUFFBITin If 
VOIDBlTin *» 
VOlDTBITin l» 
XREFBITII] *» 
BENDBlTtl J#, 



«108' 
X108. 



IF DATiME HAS NOT BEEN CALLED. 



NEWBASE; % NEW BaSeNUM FOUND ON A NEW $»CARD, 
LASTCRDPATCH' * NORMALLY FALSE. SET TO TRUE WHEN THE 



XMODEJ 

DOLLARTOGI 
ERRMAXJ 

seqxeoTog; 

LISTERI 



% LAST CARD FROM SYMBOLIC LIBRARY READ 

% IS PATCHED FROM THE CARD READER, 

% TELLS DOLLARCARD HOW TO SET OPTIONS, 

% TRUE IF SCANNING A DOLLAR CARO, 

% COMPILATION STOPS IF EXCEEDED, 

% GIVE SEO, NO, WHEN DS^ING OBJ, 

X LISTOG OR LISTATOG OR DEBUGTOG, 



OlOOl 
01001 
OlOOl 
OlOOl 
01001 
01001 
01001 
OlOOl 
OlOOl 
01001 
OlOOl 
01001 
OlOOl 
01001 
01001 
01001 
01001 
01001 
01001 
OlOOl 
OlOOl 
OlOOl 
OlOOl 
01001 
01001 
01001 
01001 
01001 
OlOOl 
01001 
OlOOl 
OlOOl 
01001 
01001 
01001 
01001 
01001 
01001 
01001 
01001 



130 

140 

150 

160 

170 

171 

172 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

3 30 

340 

350 

360 

370 

380 

390 

400 

410 

4?0 

430 

440 

450 

460 

461 

462 

470 

480 



T 

T 

T 

T 

P 

C 

C 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

C 

C 

T 

T 



01001490 T 

01001500 T 

01001510 T 

01001520 T 

01001530 T 

01001540 T 

01001550 T 

01001560 T 

01001570 T 



0003« 

00031 

0003t 

00031 

0003t 

00031 

00031 

0003< 

00031 

0003t 

00031 

00031 

00031 

00031 

00031 

00031 

0003t 

00031 

00031 

00031 

00031 

00031 

00031 

00031 

0003* 

00031 

0003i 

0003t 

00031 

00031 

00031 

00031 

0003J 

00031 

00031 

00031 

00031 

0003J 

0003t 

00031 



00021 
0002» 
0002t 
00021 
00021 
00021 
00021 
0002« 
0002> 
00021 
0002< 
00021 
00021 
00021 
00021 
00021 
00021 
00021 
00021 
0002* 
0002) 
00021 
00021 
00021 
00021 
00021 

00021 
00021 
00021 
0002) 
0002) 
0002) 
0002) 
0002) 
0002) 
0002) 
0002) 
0002) 
0002) 
0002) 



0003)0002) 

0003)0002) 

0003)0002) 
0003)0002) 
0003)0002) 

0003)0002) 
0003)0002) 
0003)0002) 
0003)0002) 



% INPUT ISI T,C»P»CA»CB»CC, 

% USED tN DOLLARCARO EVALUATION. 

% USfd tN DOLLARCARO EVALUATION, 



ALPHA MrOlUM) 
PRT(70) 9 MEDIUM 

INTEGER MYCLASS; 
PRT(7i) « MYCLASS 

REAL batman; 

PRT(72) • BATMAN 

ARRAY SPEClALrOI3l }t 
PRT(73) - SPECIAL 

COMMENT This array holds the internal code for The special 
charactorsi it ts filled during initialization! 



PRT{7(|) m IMFO 



array INFO r0«l?7.0«?55]> 



% 
ARRAY 

XREFAY?rO»?9], 
PRT(75) s XREFAY2 



% XReF STUFF fllO- 

IllO- 
f llO* 
XllO- 



PRTC76) s XREFAYl 



XREFAYlt0l9]i 



% ARRAY OF ONE WORD REFERENCE RECORDS, 

% The LAYOUT OF EACH WORD IS «llO- 

« XltO" 

I .tl«5J TYPE OF REFERENCE fllO- 

% • FOR FORWARD OECL XllO« 

% » 1 FOR LABEL OCCURENCE XllO- 

% • 2 FOR NORMAL DECL «110- 

% « 4 FOR NORMAL REFERENCE XllO- 

% • 5 FOR ASSIGNMENT XllO- 

* lllO- 

X NOTE* THE LOWER ORDER BIT 

% OF THIS FIELD IS ON 

X IF YOU WANT STARSXllO* 

% AROUND THIS Reference 

% IN The XREF *110- 

X XllO' 

X tt6ll5] IDENTIFIER ID. NO. XilO- 

% This is a unique number that 

% is assigned when the xuo- 

% IDENTIFIER IS ENCOUNTfRE XllO- 

% FOR THE FIRST TiMe, «tlO- 

X XllO- 

X .t?lt27] SEQUENCE NUMBER XllO- 

X XllO- 



X RECORD BUFFER AREA FOR WRiTlNG OUT THE 



XllO. 



% Name information records, one record xiio- 

X IS Written for each identifier in the symbol 

X TABLE WHEN THE IDENTIFIER IS PURGED FROM THE 

X SYMBOL TABLE. UE,. WHEN LEAVING The BLOCKXUO- 

X IN Which The identifier is declared. xiio- 

X XllO" 

X The layout of each record isi xiio- 

X XllO- 

X Words 0-7 the identifier with blankxuo- 

X FILL on The right fuo- 

X XllO- 

X WORD R XllO- 

X ,C2ni2] Segment number in which xiio- 



01001580 T 
01001590 T 
01001600 T 



0003«0002 
000310002 
000310002 



01003000 T 000310002 



OlOOflOOO 
01005000 
O1OO6OOO 
01007000 

01007005 
01007010 
01007015 
01007020 
01007025 
01007030 

01007035 
01007040 
01007045 
01007050 
01007051 
01007055 
01007060 
01007065 
01007070 
01007075 
01007080 
01007085 
01007090 
01007095 
01007100 
01007105 
01007110 
01007115 
01007120 
01007125 
01007130 
01007135 
01007140 
01007145 



01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 



150 
155 
160 
165 
170 
175 
180 

185 
190 
195 
200 

205 
210 



T 
T 
T 
T 

C 
C 
C 

c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 



000310005 
000310005 

000310005 

000310005 

0003>0007 
000310007 
000310007 
000310007 
000310007 
000310007 



0003100 
0003100 
0003(00 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003*00 
0003*00 
0003100 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 



00031 
00031 
0003* 
00031 
OOO3I 
OOO3I 
0003* 
0003* 
0003* 
0003* 
00031 

0003* 
0003* 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



% 
% 
% 
% 
% 
% 



This identifier was declared 

1110- 
.r33M5] IDENTIFIER ID, NO, «ilO- 

XllO" 
WORD 9 EU8AT WORD XUO- 

XllO- 



PRT(77) « XfNFO 



XlNF0r0l31. 01127)? X THIS ARRAY CONTAINS ONE ENTRY FOR EACH ENTRY 

J! IN The INFO TABLE. IF YOU HAVE THE INDEX «ll0- 
% OF The ELBaT WORD FOR AN IDENTIFIER IN «110- 

% The info table you can find the xinfo woroxuO" 
% for the identifier by referring toi xllo- 

X XllO* 

% XjNFOt INDEX, LlNKR» INDEX, LlNKC DIV 23 XllO- 

«110- 

IllO- 

«110- 

SFGMENT NUMBER IN WHICH 

THIS IDENTIFIER WAS DECL 

XI 10- 
IDENTIFIER ID. NO, XllO- 

if this id. no. is zero 
Then xref was not on 

AT THE TIME THE lOENT 
WAS DECLARED AND ALL 
FUTURE REFERENCES WILL 



1NTF6ER 
XREFPT* 



% EACH ENTRY CONTAINS* 

X 

% .t?l«l?3 

X 
X 
% .[331153 

X 
X 
X 

% 
% 
% 
% 
% 



BE DISCARDED, 



PRT(IOO) « XREFPT 



PRTcJOn * XLUN 



xlun; 



x contains index of next available slot in x 

% xrefay?. When this becomes greater x 

X Than 3o the current array is dumped to disk 

X and xRefpt is Reset to zero. x 

X X 

X This variable controls the assigning of x 



X id. no. to identifiers, it is incremented X 
X each t»me a new identifier is encountered, X 

% X 

% % 

X Fields in xinfo entries and word 8 of x 

X identifier records, X 

X X 

X FIELDS OF REFERENCE WORDS X 

% X 

% X 

X X 

XREFITClNDEX.SEQNOiREFTYPE) » X DEFINE TO ADD INFO TO REF TABLE X 

BEGtN TF XRfF then CROSSRFFlTdNDEXf SEQNO.REFTYPE)! END#, X 

X X 

XMARKrREFTYPE) » X DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO 

BEGtN TF XREF THEN XREFA Ypf XREFpT-1 ] . TYPEREF l« REFTYPE END#. X 

X X 

XREFDUMP(INOEX) m % DEFINE TO DUMP SYMBOL TABLE INFO FOR IDENTI 

BEGIN IF DEFINING, [1 «13 ThEn CRoSSREFDUMPf 1 NDEX ) I END#t X 

% X 



DEFINE 

SEGNOF ■ l?\ «1?3I» 
IDNOF 9 r33M53#t 

TYPERFF ■ [1I53I* 
REFIDNOF »[6J15]#» 
SfQNOf w r21«27]#, 



10- 
jO« 
jO- 
lO- 

10- 

10- 
1 0* 
10- 

10- 

10- 

10- 

10- 

10- 

lO- 

10- 

10- 

10- 

10- 

lO- 

10- 

10- 

lO- 

A 

lO- 

lO- 

lER 

10- 

10- 



01007215 
01007220 
01007225 
01007230 
01007235 
01007240 
0l0072fl5 

01007250 
01007255 
01007260 
01007265 
01007270 
01007275 
01007280 
01007285 
01007290 
01007295 
01007300 
01007305 
01007310 
01007315 
01007320 
01007325 
01007330 
01007335 
01007340 
01007345 
01007350 
01007355 

01007360 
01007365 
01007370 
01007375 
01007380 



01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 
01007 



385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 



C 
C 
C 
C 
C 
C 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



0003(00 
0003100 
0003tOO 
0003100 
0003100 
0003(00 
0003100 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



too 

100 

too 
too 
too 
too 

100 

too 
too 
too 
too 
too 
too 
too 
too 
too 
too 
too 
too 
too 
too 
too 



0003t00 
0003 too 
0003t00 
0003(00 
0003100 



0003» 
0003 t 
OOOSt 
0003t 
0003t 
0003 1 

00031 
0003t 

0003> 
0003t 
0003t 
0003( 
0003t 
0003t 
OOO3I 
00031 
OOO3I 
00031 
0003t 
0003t 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



2 
2 
2 
2 
2 
2 
2 

3 
3 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 

3 

3 
3 
3 
3 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 



XREFlNFOr INDEX] m % DEFINE TO TRANSLATE INFO ROW AND COLUMN TOXllO- 



XlNF0[nNOEX).LlNKR»(INDEX),LINKC DIV ?]#. % XINFO ROW AND 



FORWARDRFF ■ Ol» 

LBLREF « l'» 
declrff « 2#» 

normalRef « «'» 

ASSignREF » 5*J 



X 
X 
X 
X 
X 



DEFINES FOR DIFFERENT REFERENCE TYPES 



ARRAY BEGINSTACK[0I2553> INTEGER BSPOlNTI 
PRT(102) m BEGINSTaCK 
PRTC103) m BSPOINT 

BOOLEAN DEFtNINGI 
PRT(lOa) m OEFTNING 

COMMENT 



COL XllO- 

XI to- 
xno- 

XllO* 
XllO- 
XllO- 
XllO- 
X108" 



X108- 



INFO CONTAINS ALL ThE INFORMATION ABOUT A GIVEN IDENTIFIER 

OR Reserved worq. the fiRSt word of a given entry is 
The internal code c or elbat word as it is usually 

CALLED). THE SeCoND WORD CONTAINS THE FORWARD BIT (IN 
tow FOR PROCEDURES. THE LINK TO PREVIOUS ENTRY (IN 
r4l8]). THE NUMBER OF CHARACTqRS In THE ALPHA REPRESENTA- 
TION (IN [12I6])» AND THE FIRST 5 CHARACTORS OF ALPHA. 
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTORS OF ALPHA. 
FOLLOWED BY ANY ADDITIONAL INFORMATION. THE ELBAT WORD 
AND THE ALPHA FoR ANY QUANTITY ARE NOT SPLIT ACROSS A HOW 
Of INFO, FOR PURPOSES OF FINDING AN IDENTIFIER OR 

Reserved word the quantities are scattered into i?5 
oifeRfnt lists or stackes, which stack contains a quantity 

IS given by taking NAAAAA mod 125 WHERE N IS THE NUMBER 
OF CHARACTORS AnD AAAAA IS THE FIRST 5 CHARACTORS OF 

Alpha, filled in wiTh zeros from the right if needed. 

This nUmber is called the scramble number or index. 

The first row of info is used for other purposes, the 

reserved words occupy the second row. it is filled during 
initialization; 
comment info format 

following is a description of the format of all types of entries 
entered in inf05 

thf first word of all entries is the elbat word. 

ThF INCR FIELD ([27'«8]) CONTAINS AN INCREMENT WHICH WHEN 
ADDED TO The CURRENT inDfX INTq INFO YELDSAN INDEX TO ANY 
ADDITIONAL INFO (IF ANY) FOR ThIS ENTRY. 

eIg, if The index is ix then info[( ix*incr),linkr.(ix+incr), 
linkC] will Contain the first wqrd of additional info. 

THE LINK field OF THE ELBAT WORD IN INFO IS DIFFERENT FROM 

that OF THE ENTRY IN ELBaT PUT IN BY TABLE. THE ENTRY IN ELBAT 

POINTS TO ITS OWN LOCATION (RELATIVE) IN INFO. 

THF LINK IN INFO POINTS TO THE PREVIOUS ENTRY E.G.iTHE 

LINK FROM STacKHEAD WhICH THE CURRENT ENTRY REPLACED. 

FOR SIMPL!CITY»I WILL CONSIDER INFO TO BE A ONE DIMENSIONAL 

ARRAY.SO That the BREAKING UP OF THE LINKS INTO ROW AND COLUMN 

WILL NOT OfTRacT FROM THf DlSCUSSlON, 

ASSUME THAT ThREE IDENTIFIERS A.B.AND C "SCRAMBLE" INTO 
THE SAMF STACkHEAD LOCATfON IN THE ORDER OF APPEARANCE, 

FURTHER ASSUME ThERE ARE NO qTHER ENTRIES CONNECTED To 
THIS STACKHEAD INDEX. LET THIS STACKHEAD LOCATION BE 

StLJ 
NOW THE DECLARATION 

BEGIN REAL A»B»C IS FNCOuNTERED 



01007481 
01007482 

01007483 
01007485 
01007486 
01007490 
01007495 
01007500 
01007600 



01008000 
01009000 
OlOlOOOO 
OlOtlOOO 
01012000 
01013000 
01014000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
OlO?2000 
0l0?3000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 
01030000 
01031000 
01032000 
01033000 
01034000 

010:^5000 

01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
01042000 
01043000 
01044000 
01045000 
01046000 
01047000 
01048000 
01049000 
01050000 
01051000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003t00 
0003100 
0003100 



01007650 C 0003100 



0003(00 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003100 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003100 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 

0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 



8 

8 

6 

81 

81 

8 

6 

81 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

6 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 


















































THT Next availablf !Nfo space is called nextinfo 

A IS ENTFRED AS FOLLOWS I ( aSSUMF AN ELBAT WORD T HAS BEEN 

CONSTRUCTED FOR A) 
T.LiNK* StiJ, CWhICH IS ZERO AT FIRST), 
StL3*NEXTlNF0t 

NEXTINF0»NEXTINF0+NUMBER OF WORDS IN THIS 
ENTRY, 
TO THf FNTRY for a IN INFO AND THE ENTRY 
CONTAINS THF STOP FLAG ZERO, 



. IE 

Then 



INFotNEXTI^JF03♦T. 



NOW StL] 



B AND iT POINTS TO THE 
A, 



POINTS 
ITSFLF 
B IS ENTERED SIMILARLY TO A. 
NOW SfLl POINTS To Thf ENTRY FOR 

ENTRY FOR 

Similarly. AFTER c is entered 

StL] POINTS To C'WHoSE EnTRY PoInTS Tq B WHqSE EnTRY 
POINTS To A. 
THE SECOND WqRD OF EACH ENTRY IN INFO IS MADE UP AS FOLLOWSl 
FWDPT «C1I1]»THIS TELLS WhETHER A PROCEDURE WAS DECLARED 

FORWARD, IT IS RESET AT THE TIME OF ITS ACTUAL 
FULL DECLARATION, 

THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 
INDEX TO The PREVIOUS INFO ENTRY WHEN SUBTRACTED 
FROM THE CURRENT ENTRY INDEX, 
TELLS THE NUMBER OF CHARACTERS IN THE ENTRY, (<64) 
CONTAINS The first five ALPHA CHARACTERS OF THE ENTRY 
AND SUCCEEDING WoRoS CONTAIN ALL OVERFLOW IF NEEDED. 
THESE WORDS CONTAIN 8 CHARACTERS EACH, LEFT JUSTIFIED. 



PURPT «[4t8] 



r 18130] 



SYMBOL FOLLOWED BY AN ENTRY 
X WOULD APPEAR AS FOLLOWS! 
(MADE FOR SYMBOL) 
(P DEPENDS ON PREVIOUS ENTRY) 

(MADE FOR X) 



THUS, An ENTRY FOR 
FOR 
INFOtn s ELBATWRO 
1*1 • 0P6SYMB0 
1+2 * L 
1+3 s ELBATWRO 

I+« * 031X 
THIS SHOWS THAT iNFOtl^P] WOULD POINT TO THE BEGINNING OF 
THE ENTRY BEFORE SYMBOL* AND 
lNFOri+3-3] POINTS TO THE ENTRY FOR SYMBOL, 
ALL ENTRIES Op IDNETIFIERS HAVE ThE INFORMATION DESCRIBED ABOVE 
THAT tS.THE ELBAT WORD FOLLOWED By THE WORD CONTAING THE FIRST 
FiVe CHARACTERS OF ALPHA, AND ANY ADDITIONAL WORDS OF ALPHA IF 

NECESSARY, 
THIS IS SUFFICIENT FOR EnTRIES OF THE FOLLOWING TYPES. 
RFAL 
BOOLEAN 
INTEGER 
ALPHA 
FILE 
FORMAT 
LIST 
OTHfR FNTRIfS REQUIRE ADDITIONAL INFORMATION. 
ARRAYS! 

Thf FIRST WORD Of ADDITIONAL INFO CONTAINS THE NUMBER OF 
OlMEN&lONSf IN THE LOW ORqER PART).t^0l6] 

each succeeding word contains information about each lower 
bound in order of appearance* one word for each lower bound, 
These words ar^- made up as followsi 

r23«lP) «ADD OPERATOR SYLLABLE (OiOi) OR 

SUB OPERATOR SYLLABLE (0301) CORRESPONDING 



01052000 
01053000 
O1O54OOO 
OIO55OOO 
01096000 
01057000 
01058000 
01059000 
01060000 
01061000 
01062000 
01063000 
01064000 
01065000 
01066000 
01067000 
01068000 
01069000 
01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
01076000 
01077000 
O1O78OOO 
01079000 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01086000 
01087000 

oioaeooo 

01089000 
01090000 
01091000 
01092000 
01093000 
01094000 
01095000 
01096000 
01097000 
01098000 
01099000 
OllOOOOO 
01101000 
01102000 
01103000 
01104000 
01105000 
01106000 
01107000 
01108000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0003i00 
0003100 
OOO3IOO 
0003>00 
0003*00 
0003(00 
0003100 
0003100 
0003100 
0003100 
OOO3IOO 
0003(00 
0003100 
0003!00 
0003100 
0003100 
0003*00 
0003100 
0003100 
0003100 
0003!00 
0003100 
0003100 
0003100 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003100 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003100 
0003*00 
0003*00 
0003*00 
0003*00 
0003*00 
0003100 
0003100 
0003*00 
0003100 
0003*00 
0003*00 
0003*00 
0003100 
0003*00 































































procedurf 
The 

PAf'A 
If A 

n3t 
r 7t 

Of l 
succ 

ELBA 

valu 
The 

IF T 
CONT 
LtNK 
IF A 

That 

IS D 
UABELSl 

AT D 
BIT 
IF S 
LtST 

o: 

swiTchfSi 
The 

ATIO 
IF S 
NO P 



rfspectively to whether the lower bound IS 
TO BE addeo to The subscript in indexing or 
subtracted, 

r35«lU -ll BIT ADDRfSS of lower BOUNDflF THE LOWER BOUND 
REQUIRES A PRT OR STACK CELL* OThERW I SE THE B?T 
35 IS IGNORED AND THE NEXT TEN 8ITS(t36U03) 
REPRESENT THE ACTUAL VALUE OF THE LOWER BOUND 
r46l21 «00 OR 10 DEPENDING ON WHETHER ThE taSMl] VALUE 
IS A LITERAL OR OPERAND* RESPECT I VELY. 



SI 

FIRST WORD OF ADDlTfONAL iNfO CONTAINS THE NUMBER OF 
METERS t'JOlS] 
STREAM PROCEDURE ThEN ThiS WORD CONTAINS ALSO IN 

in ending prt address for labels. 

6] no of labels requiring prt addresses* and tll6] number 

ocals, 

feding words (one fob each formal parameter. in order 

OF APPEARANCE IN FORMAL PARAPART) ARE 

T WORDS SPECIFYING TYPE OF EACH PARAMETER AND WHETHER 

F OR NOTfrlOin ). 

ADDRESS(ri6«in) IS THE F- ADDRESS FOR EACH. 

HE PARAMETER iS AN ARRAY THEN ThE INCR FIELDa27l8]) 

AINS THE NUMBER OF D I MENS i ONS , OTHERW I SE INCR IS MEANINGLESS, 

ft35«l3]) IS MEANINGLESS, 
STREAM PROCEDURE ThEN THE CLASS OF EACH PARAMATER IS 
OF LOCAL ID OR FILE ID. DEPENDING ON WHETHER OR NOT A RELEASE 

ONE IN The stream PROCEDURE, 

eclaraTion time The additional info contains o, the sign 

tells whether OR NOT THE DEFINITION POINT HAS BEEN REACHED. 
!GN « 0. THEN [3611?] CONTAINS AN ADDRESS IN CODEARRAY OF A 

OF FORWARD REFERENCES TO THIS LABEL. THE END OF LIST FLAG IS 
IF SIGN »0. Then C36M23 CONTAINS L FOR THIS LABEL. 



FIELD 1361123 CONTA 
N. r24»12l CONTAIN 
WiTcH IS NOT SIMPLE 
OSSlBiLlTY OF JUmPI 
DEFINE MON «t 
CLASS ■[ 

FORMAL»[ 
VO -t 
LVL ■[ 
ADDRESSsC 
INCR -t 
LINK .[ 
SBITF «t 
nbiTf •( 

LINKR .C 

LINKC ml 

COMMENT THESE DEFINES aRE US 

MON fS THE BIT 

CLASS IS THE PR 

QUANTITY, 
FORMAL IS THE B 
PARAMETER, 

vo IS The value 

DISTINGUISH 



tNS L FOR THE BEGINNING OF SWITCH OECLAR- 
S L FOR FIRST SIMPLE REFERENCE TO SWITCH. 
. IT IS MARKED FORMAL. HERE SIMPLE MEANS 
NG OUT OF A BLOCK. I 

II ni. 

21 73#. 

9» n#. 

lOf il*f 
111 5 3#. 

i6nn#. 

2^1 831, 

3511331. 

2ll6}f. % 

271631. X 

3Sl 531. 

aOi 83il 

FO TO PICK APART THE ELBAT WORd. 

WHICH IS ON IF The QUANTITY iS MONITORED. 

INCIPAL IDENTIFICATION OF A GIVEN 

IT WHICH IS ON IF THE QUANTITY IS A FORMAL 

-OWN Bit, if formal « i then the bit 

ES value parameters FROM OTHERS, IF 



STARTING BIT FOR FIELD 10. X112- 
NUMBeR Of BITS FOR FIELD ID, 1112" 
































































1109000 T 


lliOOOO T 


1111000 T 


1112000 T 


1113000 T 


1114000 T 


1115000 T 


1116000 T 


1117000 T 


1118000 T 


1119000 T 


1120000 T 


1121000 T 


1122000 T 


1123000 T 


1124000 T 


1125000 T 


1126000 T 


1127000 T 


1128000 T 


1129000 T 


1130000 T 


1131000 T 


1132000 T 


1133000 T 


1134000 T 


1135000 T 


1136000 T 


1137000 T 


1138000 T 


1139000 T 


1140000 T 


1141000 T 


1142000 T 


1143000 T 


1144000 T 


1145000 T 


1146000 T 


1147000 T 


1148000 T 


1149000 T 


1150000 T 


1151000 T 


1152000 T 


1153000 T 


1154000 T 


1154200 C 


1154300 C 


1155000 T 


1156000 T 


1157000 T 


1158000 T 


1159000 T 


1160000 T 


1161000 T 


1162000 T 


1163000 T 


1164000 T 



00031 
0003t 
0003* 
00031 
00031 
00031 

0003> 
00031 

00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
0003« 
00031 
00031 
00031 
0003t 
0003» 
0003» 
0003t 
00031 
00031 
00031 
0003t 
00031 
00031 
0003t 
00031 
00031 
0003> 
0003t 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
0003t 



00' 
00^ 
00 

00: 

00 

00 

00! 

00 

00 

00 

00: 

00; 

00: 

00 

00' 

OOf 

00' 

00' 

00: 

00' 

00| 

00' 

00 

00; 

00 

00 

00' 

00 

00 

00' 

00: 

00' 

00' 

00 

00' 

00' 

00 

00' 

00' 

00' 

00< 

00] 

00! 

00! 

00 

00 

00] 

00: 
00: 

00 

00: 

00' 

00' 

00' 

00 

00] 

00' 

00! 



10 

to 

10 
10 

to 
to 
to 
to 
to 
to 
to 

to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 

to 

to 
to 



FORMAL s THFN 

FROM OTHERS, 
IVL GIVES THE LE^EL AT WHI 
ADDRESS GIVES THE STACK OR 
INCR GIVES A RELATIVE LINK 

NEEDED* RELATIVE TO TH 
LINK CONTAINS A LINK TO TH 

QUANTITY LIfS IN El-BAT 

NEXT ITEM IN THE STACK 
LiNKR AND LiNKC ARE SUBDiV 
CLASSES FOR ALL QUANTITIES - 
FOR lOFNTiFIERSI 



The BIT DISTINGUISHES OWN VARIABLES 

WAS DECLARED. 



CH A QUANTITY 

PRT ADDRESS, 

TO ANY ADDITIONAL INFORMATION 
I LOCATION IN INFO» 
E LOCATION IN INFO IF THE 
» OTHERWISE IT LINKS TO THE 
, ZERO IS AN END FLAG. 



COMMENT 

COMMENT CLASSES 

DEFINE UNKNOWNID »00l 

STLABID »»0i# 

LOCLID »0?# 

DEFINEDIO »03l 

LiSTiD »04# 

FRMTiO "OS* 

SUPERFRMTID »06# 

REALSllRIO «07l 

SUBID *06# 

SWiTCHin =091 

PROCID «10# 

INTRNSICPROCID «ll# 

STRPROciD ■12# 

BOOSTRPROCID »13# 

RFALSTRPROCIO »14* 

ALFASTRPROCID «15# 

iNTSTRPROcin -IS* 

BOOPROCID »17* 

REAL.PROCID »18* 

ALFAPROCID »19# 

iNTPROciD «19# 

BOOID »2l# 

RFALID s22# 

ALFAIO *23# 

INTID «=23* 

BOOARRAYID «25# 

REALARRAYiD »26i 

ALFAARRAYiD '27* 

INTARRaYID '27* 

NAMEID «30# 

INTNAMeID «3l# 

LABELID *32# 

COMMENT CLASSES FOR PR 

TRUThV »33f 

NONLITNO »34i 

LtTNO «35# 

STRNGCON •36# 

LEFTPAREN «37# 

POLISHV *38# 

ASTRiSK S39I 

COMMENT CLASS FOR ALL I 

DECLARATORS -^O* 

COMMENT CLASSES FOR ST 

DOURLFV -I?* 

FORV «43l 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
MARY BfGINN 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

fclaRatorsi 

COMMENT 

TEMENT BE6I 

COMMENT 

COMMENT 



ISIONS 
OCTAL 

000) 
OOi) 
0021 
OOsi 
004) 
005) 
006) 
007) 
010) 
Oil) 
012) 
013) 
014) 
015) 
016) 
017) 
017) 
021) 
022) 
023) 
023) 
025) 
026) 
027) 
027) 
031) 
032) 
033) 
033) 
036) 
037) 
040) 
ERS) 
041) 
042) 
043) 
044) 
045) 
046) 
047) 

050) 

NNERS 

052) 

053) 



OF LINK.) 
CLASS IS IN 



COMMENT) 






1165000 







1166000 







1167000 







1168000 







1169000 







1170000 







1171000 







1172000 







1173000 







1174000 







1175000 







1176000 







1177000 







1178000 







1179000 







M 80000 




0] 


1181000 




0] 


1182000 




01 


1183000 




01 


1184000 




0] 


1185000 




0] 


1186000 




0] 


1187000 




0] 


1188000 




0] 


1189000 




0] 


1190000 




0] 


1191000 




0] 


1192000 




Oj 


1193000 




Oj 


1194000 




0] 


1195000 




01 


1196000 




01 


1197000 




0] 


1198000 




0] 


1199000 




0] 


200000 




0] 


1201000 




01 


202000 




01 


1203000 




01 


204000 




01 


205000 




0] 


1205200 




01 


1205400 




0] 


206000 




0] 


207000 




0] 


208000 




0] 


209000 




0] 


.210000 




01 


211000 




0] 


212000 




0] 


212100 




Oi 


212200 




0] 


213000 




01 


214000 




01 


215000 




01 


222000 




0] 


223000 





0003100 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003100 
0003)00 
0003100 
0003)00 
0003)00 
0003)00 
0003100 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003100 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 
0003)00 



•18 


)0 


18 


»0 


18 


)0 


18 


)0 


18 


10 


18 


10 


18 


)0 


18 


10 


18 


10 


18 


>0 


IB 


10 


18 


10 


l6 


10 


18 


10 


l8 


10 


l8 


10 


18 


10 


18 


10 


181 


10 


18 


10 


18 


10 


l8l 





181 





181 





181 





l8l 





181 





181 





181 





18 





161 





181 





181 





181 





181 





18> 





IBI 





18I 





18« 





lai 





18J 





18« 





18) 





18J 





181 





18I 





18) 





18) 





IB) 





18) 





18) 





18) 





18) 





18) 





18) 





18) 





18« 






DOV «45 

FLSeV »47 

ENDV «4a 

CASFV *ft9 

SEMICOLON •SO 

IFV «5l 

GOV «52 

lOCLASS *53 

BFGINV »54 

COMMFNT CLASSfS FOR S 

S?V «55 

DtO «56 

CIV «57 

TALLYV b58 

OSV «59 

SKIPV -60 

JUMPV «6l 

npv -d? 

SPV «63 

TOGGLFV *64 

5CV »65 

LOCV sed 

DCV f67 

LOCAUV «68 

LiTV s69 

TRNSFER «70 

COMMFNT CLASSES FOR V 

COMMENTV «7i 

FORWARDV *72 

STpPV s73 

THFNV »74 

TOV «75 

VALUEV »76 

WITHV 'i^TT 

COLON «7B 

COMMA »79 

CROSSHATCH «60 

LFTBRKeT s8i 

PFRIOO «82 

RTBRKFT *83 

RTPARFN •84 

AMPERSAND -BS 

COMMENT CLASSES FOR 

HFXOP «!66 

BfTOP •67 

ISOLATE "88 

OPERATOR »89 

NOTOP »90 

ASSIGNOP «9i 

EQVOP •92 

OROP «93 

ANDOP "94 

RfLOP ^95 

APOP •96 

MlJLOP «97 



FAM 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

Reserved 



054> 

055; 

056; 
0571 
0601 

061 ; 

0621 

0631 
0641 
065; 
066; 

words; 



%\\5' 



COMMENT 067; 

COMMENT 070; 

COMMENT 07i; 

COMMENT 072; 

COMMENT 073; 

COMMENT 074; 

COMMENT 075; 

COMMENT 076; 

COMMENT 077; 

COMMENT 100; 

COMMENT lOi; 

COMMENT 102; 

COMMENT 103; 

COMMENT 104; 

COMMENT 105; 

COMMENT 106; 
yOUS MISCELLANEOUS 

COMMENT 1O7; 

COMMENT 110; 

COMMENT 111; 

COMMENT 112; 

COMMENT 113; 

COMMENT 114; 

COMMENT 115; 

COMMENT 116; 

COMMENT 117; 

COMMENT 120; 

COMMENT I2i; 

COMMENT 122; 

COMMENT 123; 

COMMENT 124; 

COMMENT 125; 
RATORS; 

COMMENT 126; 

COMMENT 127; 

COMMENT 130; 

COMMENT I3i; 

COMMENT 132; 

COMMENT 133; 

COMMENT 134; 

COMMENT 135; 

COMMENT 136; 

COMMENT 137; 

COMMENT 140; 

COMMENT I4i; 



QUANTITIES; 



01224000 
01225000 
01226000 
01227000 
01228000 
01229000 
01230000 
01231000 
01232000 
01233000 
01234000 
01235000 
01236000 
01237000 
01238000 
01239000 
01240000 
01241000 
01242000 
01243000 
01244000 
01245000 
01246000 
01247000 
01248000 
01249000 
O125OOOO 
01251000 
01252000 
01253000 
O125A00O 
01255000 
01256000 
01257000 
01258000 
01259000 
01260000 
01261000 
01262000 
01263000 
01264000 
01265000 
01266000 
01266500 
01267000 
01266000 
01269000 
01270000 
01271000 
01272000 
01273000 
01274000 
01275000 
01276000 
01277000 
01278000 
01278500 



0003100 
0003100 
0003100 
0003100 
0003(00 
0003100 
0003t00 
0003(00 
0003100 
0003100 
0003100 
0003100 
OOO31OO 
0003100 
0003100 
0003100 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003100 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
0003(00 
OOOltOO 
0003(00 
0003(00 



18 


(0 


18 


(0 


18 


(0 


18 


(0 


18 


(0 


18 


(0 


18 


(0 


18 


10 


18 


to 


18 


10 


18 


10 


18 


10 


18 


to 


18 


10 


18 


10 


18 


10 


18 


10 


18 


10 


18 


(0 


18 


10 


18 


10 


18 


10 


18 


10 


181 


10 


18 


10 


I8I 





18 


10 


181 


10 


181 


>0 


181 


10 


18 


10 


18 





181 





181 





181 





181 





18I 





181 





18( 





I8I 





181 





181 





181 





181 





18« 





18« 





18( 





181 





18« 





161 





18( 





18( 





18( 





18( 





18( 





18( 





18( 






PRT(105) 
PRT(106) 
PRT{107) 
PRT(llO) 



B TIM 
B AST 
B SAF 
« SCR 



t\ 



% STRING 

FIELDTD 
COMMFNT SU8CL 
OWNV 
SAVFV 
BOOV 

Rfalv 

AUFAV 
INTV 

labelv 

DUMPV 

SUBV 

OUTV 

IMV 

MONfTORV 

SWITCHV 

PROCV 

ARRAYV 

NAMEV 

FILCV 

STRFAMv 

DFFINEV 

auxmemv 

FTFLDV 
DEFINE nOES 
ADES 
PDES 

loes 

CHAR 

factop 
operators 

FILEID 

MAXiNTRfNSiC 
tNTRlNSICADR 
REAL TtMFIJ 

BOOLEAN ASTOG» 



s99l» 
■1251 
ASSES FOR 
»0l# 
«02# 
»03# 
»0Al 
sOS* 
«05# 
«07# 
k08I 
*09# 
•10# 

«12* 
«13# 
»IH* 
■15# 
»16# 
*17# 
«18# 
«19# 
«20# 

"21*; 
8»* 
28#, 
29*» 
30*. 
3l#. 
ASTRfSK 
HEXOPf # 
Of* 

150#. % 
CMAXtNT 






COMMENT 1431 

. COMMENT 1751 

oeclarators (Kept 

COMMENT Oi; 

COMMENT 021 

COMMENT 03J 

COMMENT out 

COMMENT 05> 

COMMENT 051 

COMMENT 07> 

COMMENT 101 

COMMENT Ul 

COMMENT 121 

COMMENT 13» 

COMMENT iftl 

COMMENT 15J 

COMMENT 161 

COMMENT i7i 

COMMENT 20J 

COMMENT 2i; 

COMMENT 221 

COMMENT 23; 

COMMENT 24J 

COMMENT 251 



IN ADDRESS); 



i:il2' 



«112" 
X112' 
X112' 



f * 



USED tN building INTaBLE ? 09ftl4l?0 
RINSIC DIV 30)#; X RESERVES SEG FOR INTABLE 



OG 



AM 



PRTcni) « ACCUM 



BOOLEAN SAFI 
INTEGER scram; 

COMMENT SCRaM CONTAINS THF 

OR Reserved woRn 

alpha array ACcUMrOMO]; 



COMMENT 



SCRAMBLE 
SCANNED' 



INDEX FOR THE LAST IDENTIFIER 



A 
PRT(ll2) w STACKH 



PRT(lt3) » COUNT 



ACCUM HOLDS The AlPhA AND CHARACTER COUNT OF THE LAST 

Scanned item in a form compatible with its appearance 
In Info* that is accumCi] » oonaaaaa. accumci] , i> i. 
has amy additional characters, accum[0] is used for 
The elbat word by the enter routines; 

RRAY STACKHEADtOl 125]; 
EAD 

COMMENT STACKHEADCN] CONTAINS AN INDEX INTO INFO GIVING THE TOP 

ITEM IN The n-th stack; 
integer count; 



01278600 
01278700 
01279000 
01280000 
01281000 
01282000 
01283000 
01284000 
01285000 
01286000 
01287000 
01288000 
01289000 
01290000 
01291000 
01292000 
01293000 
01294000 
01295000 
01296000 
01297000 
01298000 
01298500 
01298600 
01299000 
01299010 
01299020 
01299030 
01299040 
01299100 
01299200 
01299300 
01299400 
01299500 
01300000 



01305000 
01306000 
01307000 
01308000 
01309000 
01310000 



T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



01300100 T 

01300200 T 

01301000 T 

01302000 T 
01303000 T 
01304000 T 



00031 
00031 
00031 
0003t 
0003) 
00031 
00031 
0003( 
00031 
00031 
00031 

0003; 

00031 
00031 
0003* 
0003> 
0003> 
00031 
00031 

0003; 

0003< 

0003; 
0003; 

00031 
0003t 

0003; 
0003; 

00031 

0003; 
0003; 
0003; 

0003« 

00031 
0003; 

0003< 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



ooo3;oo 

0003>00 
0003(00 

ooo3;oo 
ooo3;oo 
0003100 



01311000 T 
01312000 T 
01313000 T 



000310020 
0003(0020 

0003I0020 

000310020 
000310020 
0003i0020 

0003(0023 
0003(0023 
000310023 



PRT(it4) « g 



PRT(ll5) 
PRTCI16) 
PRT(ll7) 



PRT(120) m 



PRT{l2n m 

PRT(122) « 

PRTC123) 9 

PRT(l?4) w 

PRTci?5) B 

PRTC126) » 



COMMFNT COUNT CONTAINS T HF NUMBER OF CHARACTORS OF THE LAST ITFM 
SCANNEDI 
ALPHA 01 



PRT(1?7) ■ TEN 



PRT(130) » PRT 



COMMENT Q CONTAINS ACCUMtl] FOR THE LAST IDENTIFIER OR RESERVED 
• WORD SCANNEDI 
ARRAY fURAT[0I75]J INTEGER I* NXTELBTi 

flbat 

T 

nxtflbt 

comment ELBaT iS an array holding ELBAT words for recently SCANNED 

Quantities, the table routine maintains this array. 
(ELBAT is Table spelled backwards.) the table routine 
guaranties That elbat always contains the elbat wqros 
For the last 10 quantities scanned, nxtelbt is an index 
pointing to the next available word in elbat, I is an 
Index used by the rest of the compiler to fetch things 
from elbat, I IS also maintained by the table routinfi 
integer elclassi 
flclass 

comment elclass usually contains elbat t h .classi 
integer fcr» ncr, icr» tlcr. clcrj 

FCR 

NCR 

LCR 

TLCR 

CLCR 

INTEGER MAXTLCRJ 
MAXTLCR 

COMMENT FCR CONTAINS ABSOLUTE AdDRESS Of THE FIRST CHARACTOR OF 

The card image currently being scanned* ncr The address 
Of The next charactor to be scanned, and lcr the last 

ChARACTOR (COLUMN 73)1 TlCR AnD CLCR CONTAIN ADDRESS OF 
The LAST CHARACTER IN THE TAPE AND CARD BUFFERS, MAXTLCR 
IS THE MAXIMUM OF TLCR WHEN THE INPUT IS BLOCKEDI 
ARRAY TENr-46»69]> 



DEFINE PRTBASEel29#,PRT0P«896*J COMMENT PaSE AND TOP OF PRT; 
ARRAY PpTrPRTBASEiPRTOPJJ 



INTEGER DISKAOR»CORADRt COMMENT GLObALS FOR PROGDESCBLOR I 
niSKADR 
CORAOR 

tntfgeR sgavljcommfnt Next availablf sfgmfnt number* 

SGAVL 

INTEGER SGN0?C0mMENT THiS yS THE CURRENT SEGMENT NUMBER) 
SGNO 

ARRAY C0P»W0Pt0«l27]l 
COP 
WOP 

COMMENT THF EMIT ROUTINES PLACE EACH SYLLABLE INTO THE EOOC ARRAY 
AS SPECIFIED BY "L", 

IF The debUgtog is true cop and wop are filled with 
The BCD for the opeRators.otheRwise they are not used* 
Real lastentry ; 

PRT(137) « lASTenTRY 

COMMENT LASTENTRY IS USED BY EMiTNUM AND CONSTANTCLEAN, IT POINTS 



PRT(131) 
PRTC132) 

PRTf 133) 

PRT(134) 

PRT(135) 
PRT(136) 



01314000 T 

01315000 T 

01316000 T 

01317000 T 

01318000 T 

01319000 T 



0003»0023I2 
0003>0023I2 
0003(002312 

00031002312 
00031002312 
00031002312 



01320000 
01321000 
01322000 
01323000 
01324000 
01325000 
01326000 
01327000 
01328000 



0009? 
00031 
OOO3I 
0003« 
00031 
00031 
00031 
00031 
00031 



002513 
0025«3 
0025»3 
00g5»3 
002513 
0025«3 
002513 
002513 
002513 



01329000 T 
01330000 T 



00031002513 
00031002513 



01331000 T 00031002513 



01332000 
01333000 
01334000 
01335000 
01336000 
01337000 
O134OOOO 

01341000 
01342000 
01343000 



T 0003J0025I3 

T 0003«0025I3 

T 00031002513 

T 0003«0025I3 

T 0003»0025»3 

T 00031002513 

T 0003«0025I3 

T 00031002810 

T 0003J0028IO 

T 00031002810 



01344000 T 00031003011 



01369000 T 
01370000 T 
01371000 T 



01372000 T 
01373000 T 
01374000 T 
01375000 T 
0U76000 T 



0003>0030U 
00031003011 
00031003011 



0003t0034i0 
00031003410 
00031003410 
00031003410 
00031003410 



01377000 T 00031003410 



INTO INFOtO.*J AT THE NEXT AVAILABLE CELL TOR CONSTANTSi 
BOOLEAN MRCLEAN i 
PRTCUO) 3 MRCLEAN 



COMMENT NO 



CONSTANTCLEAN ACTION TAKES PLACE WHILE MRCLEAN IS 
FALSE, THIS FEATURE IS USED BY BLOCK BECAUSE OF The 
POSSIBILITY THAT CONSTANTCLEAN WILL USE I NFOfNEXTl NFO ] 
DURING AN ARRAY DECLARATION i 



PRTtHl) 
PRT(H2) 
PRTci«3) 
PRT(144) 
PRTClflS) 



mi 

6T2 
qT3 

r,TA 

ST5 



during an array declaration i 
Real gti.gt?»gT3»gT4,gt5i 



PRT(146) = gTII 



INTEGER GTIU 

COMMENT These variables are used for temporary storage* 

INTEGER RESULT; 



PRTC147) m RESULT 

coMMFNT This variable ts usrD for a dual PURPOSE BY The Table 
Routine ano the scanner, the table routine uses this 
variable to specify scanner operations and the scanner 

uses iT TO INFORM THE TABLE ROUTINE OF THE ACTION TAKENI 
INTEGER LASTUSeOI 
PRT(150) • i.ASTUSED 

COMMENT LASTUSED IS A VARIABLE THAT CONTROLS THE ACTION OF 

READACARDf THE ROUTINE WHICH READS CARDS AND INITIALIZES 
OR PREPARES THE CARD FOR THE SCANNER, 
LASTUSED LAST CARD READ FROM 



1 
? 
3 
4 



1 



CARD Reader only* no 

CARD READfRi tape AN 
TAPE* TAPf and card 
INITIALIZATION ONLY* 



TAPE. 
D CARD MERGE. 
MERGE. 

CARD ONLY. 



BOOLEAN LTNKT0g» 
PRTdsn » LINKTOG 

COMMENT 



PRTC152) 
PRT(153) 
PRT(154) 
PRT(155) 



INTEGER 
LEVEL 

fRstlevel 
sublevel 

MODE 

COMMENT 



linktog is F 
otherwise 
level*fRStleVel 



ALSE IF THE LAST THING EMITTED IS A LINK. 

IT IS TRUEI 

.SUBLfVeI'MODE* 



PRT(156) s 



BOOLEAN 

frrortog 

COMMENT 



THESE VARIAB 

Track of l 
nesting in 
gives rise 
The parame 

FRSTLEVEL 
GLOBAL OF 

IS The 
- Nested 
errortog) 



CUR 
CAT 



les are maintain 
evels Of definit 

DEFINITION. WHE 
To A NEW LEVEL. 

ters oF the proc 

IS THE LEVEL OF 
THE PROCEDURES C 
RENT DEPTH OF TH 
COMPILE TIME)J 



ED BY THE BLOCK ROUTINE TO KEEP 
ION. LEVEL GIVES ThE DEPTh OF 

re each block and each procedure 

sublevel gives the level of 
eoure currently being Compiled. 
the parameters of the most 
urrently being compiled, mode 
e procedure in which we are 



ERRQRTOG IS 

error rout 
boolfan endtogi COMME 



TRUE IF MESSAGES 
INeS. ERfORCOUN 
NT ENOTOG TeLLS 



ARE CURRENTLY ACCEPTABLE TO THE 
T IS The COUNT OF ERROR MSSfiSI 

The table to allow 



01378000 T 
01379000 T 



01380000 
01381000 
01382000 
01383000 
01384000 



00031003410 
0003«0034I0 

00031003410 
0003>0034t0 
00031003410 
00031003410 
0003*003410 



01384500 T 0003J0034IO 



01385000 T 
01386000 T 



01387000 
01388000 
01389000 
01390000 
01391000 

01392000 
01393000 
01394000 
01394500 
01394600 
01395000 
01396000 
01397000 
01398000 
01398300 
01399000 



01403000 
01404000 
01405000 
01406000 
01407000 
01408000 
01409000 
01410000 
01411000 
01412000 



01400000 T 
01401000 T 
01402000 T 



01413000 T 
01414000 T 
01415000 T 



0003>003410 
0003*003410 

0003l0034t0 
00031003410 
000310034*0 
0003*0034*0 
0003*003410 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1003410 
*0034*0 
*0034*0 
1003410 
t003410 
10034*0 
) 0034*0 
10034*0 
*0034I0 
t0034IO 
10034*0 



0003*0034*0 
000310034*0 
0003*0034*0 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



*0034*0 
*0034«0 
>0034l0 
10034I0 
*0D34I0 
10034*0 
t0034iO 
(0034*0 
1003410 
10034*0 



000310034(0 
0003*0034*0 
0003*0034*0 



PRT(157) « ENDTOG 

COMMEMT TO BE PASSED BACK TO COMPOUNDT A IL ) 
BOOLEAN STREAMTOGI 
PRT(160) « STREAMTOG 

COMMENT STRpAMTOG IS TRUE IF ^E ARE COMPILING STREAM STATEMENT, IT 
IS USED TO CONTROL COUMPOUNDTa I D 
DEFINE FS * 1#» FP » 2*» FL « 3*» FR »4*> 

COMMENT These defines are used when calling the VARIABLE ROUTTNF. 

Their purposes is to tell variable who is calling. 

Their meaning isi 

FS means from statement, 

FP means from primary. 

Fl means from LlST» 
FR means from fori 



PRT(16l) » L 



PRT(162) » TBI 



INTEGER Lf 

COMMENT L IS THE LOCATION OF THE NEXT SYLLABLE TO BE EMITTEDl 

DEFINE BLOCKCTR • l6#, JUNK a t7 #, XITR « 18 #» LSTRTN « 19#| 

DEFINE ATYPE myt, BTYPe»ATYPf*»OTYPE«ATYPe#> 
BOOLEAN TBI) 



COMMENT TBI iS A TEMPORARY BOOLfAN VARIABLE* 
INTEGER JUMPCTRI 
PRT(163) m JUMPCTR 

COMMENT JUMPcTR IS A VARIABLE USED FOR COMMUNICATION BETWEEN BLOCK 
AND GEN60. iT gIVES HIGHEST LEVEL To WHICH A JUMP HAS 

been made from within a the presently being compiled 
Segment, the block compiles code to increment and decre- 
ment THE BLOCKCTB ON THE BASIS OF jUMPCTR AT COMPLETION 
OF COMPILATION OF A SEGMENT - I.E. THE BLOCKCTR IS TALLIED 
IF LEVEL s JUMPcTr; 



DEFINE BUMPL ■ L*L+2II 

COMMENT BUMPL iS USED MOSTLY TO PREPARE A FORWARD JUMP; 
DEFINE IDMAX a LABELlO#l 

COMMENT IDMAX iS THE MAXIMUM CLASS NUMBER FOR lOENTlFlERSJ 
INTEGER OEFINECTR.DEFINEINDEX; 
PRT(164) • DEFINECTR 
PRT(165) 8 OEFINEINOEX 

REAL JOINFO* COMMENT POINTS TO PSEUOO LABEL FOR JUMP OUTSI 
PRT(1665 * JOINFO 

LPRT, COMMENT SHOWS uOCATiqN OF THE LAST LABEL IN THE PRT J 
PRT(167) » LPRT 

NfSTLEVEL» COMMENT COUNTS NESTING FOR CO TO AND JUMP OUTS; 
PRTd^O) > NESTLEVEL 

JUMPLFVELI COMMENT NUMBER OF LEVELS TO BE JUMPED OUT; 
PRT(171) » JUMPLFVEL 

COMMENT THE REALS ABOVe ARE FOR STREAM STATEMENT! 
ARRaY MACR0r0t35]; 
PRT(172) « MACRO 

COMMENT MACRO tS FILLED WyTn SYLLABLES FOR STREAM STATEMENT; 
REAL P. COMMENT CONTAINS NUMBER OF FORmAlS FOR STREAM PROCSI 
PRT£173) B P 

ZJ COMMENT CONTAINS iST WORD OF INFO FOR STREAM FUNCTIONS; 
PRT(174) » I 



01416000 
01*17000 

01418000 
0H19000 
0H200O0 
01421000 
01472000 
01423000 
01424000 
01425000 
01426000 
01427000 
01428000 



01460000 
01461000 
01462000 
01463000 
01464000 
01465000 
01466000 
01467000 
01468000 
01469000 
01470000 
01477000 
01478000 
01479000 
01480000 
01481000 



01429000 T 
01430000 T 
01452000 T 
01457000 T 

01458000 T 
01459000 T 



01482000 T 

01483000 T 

01484000 T 

01485000 T 

01486000 T 
01487000 T 

01488000 T 
01489000 T 



00031003410 
00031003410 

00031003410 
0003>0034l0 
0003«0034)0 
00031003410 
0003«0034)0 
00031003410 
00031003410 
0003t0034t0 
00031003410 
00031003410 
00031003410 

00031003410 
00031003410 
00031003410 
00031003410 

00031003410 
00031003410 

00031003410 
OOO31OO341O 
00031003410 
00031003410 
00031003410 
00031003410 
00031003410 
00031003410 
OOO31OO34IO 
00031003410 
OOO3IOO34IO 
0003(003410 
00031003410 
00031003410 
OOO3IOO341O 
OOO31OO34IO 



OOO3IOO341O 

00031003410 

00031003410 

OOO3IOO341O 

00031003410 
00031003410 

OOO31OO36II 
00031003611 



01490000 T 00031003611 



array newtapbuftoj 
prt(175) « newtapbuf 

Save array dffinearrayc 

PRT{176) « nFFINEARRAY 

COMMENT ThFSf VaRi 

dffinectr 
The crossh 

To DETERMI 

The next a 
array hold 
The previo 
integer reginctrj 

« aEGINCTR 

COMMENT BEfilNCTR G 
FOR ERROR 
INTEGER DIAUA»DIAUBJ 
• niALA 
" niALB 

COMMENT These vaRiab 
Dialed, t 

WoRRjfS AB 
BY SETTING 
BOOLEAN RRBIJ COMMENT R 
PRTC202) » RRBl 

Same funct 
comment at 
boolean rrr?!j 

PRTC203) « RRB2 

DEFINE aRRAYMONfILF « [2 



9]> 

0I34]| 



%\ 16' 



0H90510 T 
01491000 P 



0003(0036 
000310039 



ABLES ARE USED TO CONTROL ACTION OF THE DEFINE. 
COUNTS DEPTH OF NESTING OF DEFINE-* PAIRS. 
ATCH PART OF THE TABLE ROUTINE USES DEFINECTR 
NE The MEANING OF A CROSSHATCH. OEFINElNOEX IS 
VAILABLE CCl.L IN THE DEFlfgEARRAY, THE OEFlNE- 
S THE ALPHA OF THE DEFINE BEING RECREATED AND 
US VALUES OF LASTUSED» LCR» AND NCR; 



PRTC1773 



PRT(200) 
PRT(201) 



iVf-S THE NUMBER 
CONTROL ONLY! 



OF UNMATCHED BEGINS, IT IS USED 



LES GIVE The LAST VALUE TO WHICH A AND B WERE 

HIS GfVcs Some local optimization, emitd 

OUT This. oTher routines cause a loss of memory 

DIALA AND DIALB TO ZERO; 
RB1---RRIN ARE BOOLEAN VARIABLES THAT SERVE THE 

ION AS RR1---RRN FOR REAL VARIABLES. SEE 

RRi; 
comment see COMMENT AT RRBl DECLARATION; 



7»ll] 
DEFINE SVARMONFiLE k t37»U]» 

DEFINE nODIMPART * r40i8]#; 

F 
I 

DEFINE LABLMONFlLE » [13*11]* 



#; 



DEFINE SWiTMONFiLE » [13«ltJ*; 



DEFINE FUnCMONFILE e [275113*; 



DEFINE nUMPEE ■ [21111*$ COM 

ADDI 
The 
EACH 
APPE 

DEFINE dUmPOR a [241111*; CO 

ADDI 

The 



COMMENT 

THE ADDR 
THE FIRS 
; COMMENT 
THE ADDRE 
INFO FOR 
COMMENT THE 
OR ARRAYS C 
N NODIMPART 
; COMMENT 
POSITION 

iKFO That 

ADDRfSS f 

COMMENT 
POSITION 
INFO THAT 
ADDRESS F 

COMMENT 
POSITION 
INFO THAT 
ADDRESS F 
MENT The DU 

tional word 
address of 
Time the l 

ARS IN A OU 

mmenT the d 

TlONAL WORD 
ADDRESS OF 



aRraymonfile is the define 

ESS Of the FILE DESCRIPTOR 
T WORD OF ADDITIONAL INfO; 
MONiTORFlLE iS THE DEFINE F 
SS OF THE FILE DESCRIPTOR I 
MONITORED SIMPLE VARIABLES; 
FIRST ADDITIONAL WORD OF I 
ONTaINS THE NUMBER OF DIMEN 

; 

LABLMONFlLE DESIGNATES THE 
IN THE FIRST WORD OF ADDITI 
CONTAINS THE MONITOR FILE 

OR labels; 

SWITMONFILE designates ThE 
IN THE FIRST WORD OF ADDlTl 

CONTAINS THE MONITOR FILE 
OR LABELS; 

FUNCMONFILE DESIGNATES THE 
IN THE FIRST WORD OF ADDITI 

CONTAINS THE MONITOR FILE 
OR LABELS; 
MPEE FIELD IN THE FIRST 

OF INFO FOR LABELS CONTAIN 
The COUNTER THAT IS iNCRFMf 
ABEL IS PASSED IF THAT LABE 

MP declaration; 
umpor field in the first 
of info for labels contain 
the routine that is generat 



FOR 
IN 

OR 

N 

NFO 
SIONS 

BIT 
ONAL 



BIT 
ONAL 



BIT 
ONAL 



S 

nted 

L 



01492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 



01503000 
01504000 
01505000 
01506000 
01522000 



S 

ED 



01526000 
01527000 
01526000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
01536000 
01537000 
01538000 
01539000 
01540000 
01541000 
01542000 
01543000 
01544000 
01545000 
01546000 
01547000 
01548000 
01549000 
01550000 
01551000 
01552000 
01553000 
01554000 



01500000 T 
01501000 T 
01502000 T 



01523000 T 
01524000 T 
01525000 T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00031 
0003* 
00031 
00031 
0003* 
00031 
00031 
00031 



0041 
0041 
0041 

0041 
0041 
0041 
0041 
0041 



000310041 
000310041 
000310041 



000310041 
0003»0041 
000310041 
0003«004l 
000310041 

000310041 
000310041 
000310041 



00031 
00031 
00031 
00031 

0003; 
0003; 
0003« 
0003* 
0003t 
00031 
00031 
00031 
00031 
0003« 
00031 
OOO31 
00031 
00031 
00031 
0003? 
00031 
00031 
00031 
OOO3I 

0003; 
0003I 
0003; 
0003; 

0003* 



0041 
0041 
OO4I 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
00ft 1 
0041 
0041 
OOftl 
0041 
0041 
0041 
0041 
OO4I 
0041 
0041 
0041 
OO4I 
0041 
0041 



PRTC204 

PRT(205 

PRT(206 
PRTC207 
PRT(2iO 

PRT<2il 

PRT(2l2 

PRTC213 

PRT(2i4 

PRT{2i5 
PRTC216 

PRT(2l7 

PRT(2?0 

PRT(221 

PRT(2?2 



coor 

CARD 
LINF 



FROM The dump OECIARATION THAT IN TURM CALLS 
THF PRINTI ROUTINE! 
DEFINE SUB0P«48f| 
FILE OUT CODE DISK S^Rl ALf 1 » U ( 1 » 1023) ; 

FILE IN CARDfRRl.lO,RR2); 

FILE OUT LINE DiSK SFR I AL[ 20 I 2400] (RR3» 15. RR4 , SAVE 10)> 



PRT(223) a 

PRT<2?43 « 

PRT(2?5) « 

PRT(2?6) « 

PRT(2?7) « 

PRT(230) s 

PRT(231) p 



FILE ATTRBUTS 

ARRAY LlNtO»20]> cOMMpNT PRINT OUTPUT BUiLT IN LiNJ 
LIN 

INTEGER DAI 
DA 

SAVE FILE OUT NfWTAPE DISK SERI AL[ 20 « 2400 ]( RR5,RR6,RR7, SAVE DJ 
NEWTAPE 

FILE IN Tape •'0cRDIMG'»{2.RR8.rR9)I 
TAPE 

SAVE ARRAY CBUFF* TBUFFfO « 9] ; % tNPUT BUFFERS, 
C8UFF 
TBUFF 

FILE DSki DISK SERIAL t ?0« 8i 6] ( 2» lO. 30) I Xt08- 

DSKl 

FILE DSK2 DISK SERIAL t 20 I 450] ( 2» 30. 30) I «108' 

nSK2 

FILE OUT CODISK DISK SERIAL [201600] (2»30i300)J 
CODISK 

FILE OUT DISK DtSK [112100] "MCP^^'Dl SK" ( 3. 30. 300, SAVE 99)1 
DISK 

DEFINE MCPTYPE s 63#. 

DCINTyPE « 621. 

TSSINTYPE B 6l#l 

COMMENT ESPOL CODE FILES ARE UNIQUfLY TYPED IN THEIR FILE 

HEADERS, HEADERr4]:C36l63 fS THE FIELD USfQ TO CONTAIN 

The typei 

FILE OUT DECK (2.l0)l 
DECK 

FILE STUFF DISK SERT ALt 20 M 50 ] ( 2, 10, 30, SAVE 15)J 
STUFF 

ARRAY TwXAr0tl6]> 
TWXA 

Real c» 
c 

COMMENT C CONTAINS ACTUAL VALUE OF LAST CONSTANT SCANNED! 
REAL T| 
T 

COMMENT T iS A TEMPORARY CFLL» 
INTEGER TcOUNTi 
TCOUNT 

f*EAL STACKCTI 
STACKCT 

COMMENT TCoUnT TS A VARIABLE WHICH HOLDS A PREVIOUS VALUE OF COUNT 
For THE USE OF converti 
DEFINE LASTSEQUENCE • 149#» «115- 

LASTSEQROW m 2*1 



01555000 T 0003I0041I3 

01556000 T 0003I004H3 

01556500 T 0003«0041«3 

01556900 T 0003J0041U 

01557000 T 0003t00«5»3 

01558000 T 00031005010 



01559010 T 0003I0057«2 

01559020 T 00031005913 

01560000 T 0003I0059I3 

01561000 T 00031006611 

01561056 T 0003»00r0ll 



01561085 C 

01561087 C 

01561300 T 

01561400 T 

01561410 T 
01561420 T 
01561430 T 
01561440 T 
01561450 T 
01561460 T 
01561500 T 

01561600 T 

01561700 T 

01562000 T 

01563000 T 
01564000 T 

01565000 T 
01566000 T 



00031007410 

00031007811 

00031006211 

00031006712 

00031009410 
00031009410 
0003)009410 
0003(009410 
00031009410 
00031009410 
00031009410 

0003i0098i0 

00031010512 

00031010713 

00031010713 
00031010713 

00031010713 
00031010713 



01566010 T 00031010713 



01567000 T 
01568000 T 
01569000 P 
01570000 T 
01571000 T 



0003»0l07l3 
0003t0l07l3 
0003l0i07»3 
00031010713 
00031010713 



PRT{232) • fOULeH 



REAL FOULFDI 



BOOLEAN 

FUNCTOG* 



P?. 
P3. 

\iOHr, 
formalf. 

PTOfi* 



COMMENT TELLS WHfTHER PROCEDURE BEING DECLARED TS A 

function; 
COMMENT GENERALY TELLS WHETHER OWN WAS SEENI 

comment Tells whfThek save was seeni 
comment value or own field of elbat wordj 
comment formal field of elbat wordi 

COMMENT TELLS THAT FORMAL PARAPART IS BEING PROCfSSDJ 



PRTC233) s FUNCTOG 

PRTf234) B P2 

PRT(235) M P3 

PRT(236) s VONF 

PRT(237) = fORMaLF 

PRT(2«0) u PTOg 

spectog, 

PRT(241) » SPECTOG 

ST0PENTRY» comment THtS makes the entry PROCEDURE ENTER ONLY 
PRT(2(»2) = STOPENTRY 

PRTC2ft3) • aJUMP 

BOOLEAN STOPDEFiNEI 
PRT(2«*) s STOPdeFINF 

INTEGER MaXSAVE; 
PRT{245) m MAXSAVE 

COMMENT THIS CONTAfNS Thf SjZE Of ThE MAXIMUM SAVE ARRAY 
DECLARED. IT iS USpD TO HELP DETERMINE STORAGE REOUireMENTS 
FOR THE PROGRAM PARAMETER BLOCK FOR THE OBJECT PROGRAMI 
REAL 

COMMENT CLASS IN LOW ORDER 7 BITS* 



AJUMPJ 



ONE ID AND THEN EIXTI 
COMMENT TELLS WhfThER A JUMP IS HANGING! 



PRTC246) » KLASSF 

PRT(247) » ADDRSF 

PRTt250) P LEVfLf 

PRTC251) *» LINKF 

PRT(252) « tNCRf 

PRT(253) ■ PROINFO 



KL.ASSF. 

ADDRSF. COMMENT ADdReSS jN LOW ORDER 11 BlTSl 

LfVELF. COMMENT LVL IN LOW ORDER 5 BITSI 

LtNKF. COMMENT LINK iN LOW ORDER 13 BITS; 

INCRF» COMMENT iNcR CN LOW ORDER 8 BITSJ 

PR0INF0» COMMENT CONTAINS ELBAT WORD FOR PROCEDURE BEING 

DECLARED; 



01572000 
01573000 
01574000 
01575000 
01576000 
01577000 
01578000 
01579000 
01580000 
01581000 
01582000 
01583000 
01583100 



01584000 T 
01585000 T 
01586000 T 

01587000 T 
01588000 T 

01589000 T 

01590000 T 

01591000 T 

01592000 T 

01593000 T 

01594000 T 

01595000 T 
01596000 T 



000310107 
000310107 
0003»0107 
000310107 
000310107 
000310107 
000310107 
000310107 
0003«0l07 
000310107 
000310107 

000310107 
0003t0l07 

000310107 
000310107 
0003f0l07 

0003»0107 
0003«0107 

000310107 

000310107 

000310107 

000310107 

000310107 

0003»0i07 

000310107 
000310107 



01597000 T 0003J0107 

01598000 T 0003«0l07 

01599000 T 000310107 

01600000 T 0003»0i07 

01601000 T 000310107 

01602000 T 0003«0i07 

01603000 T 000310107 

01604000 T 000310107 

01605000 T 000310107 

01606000 T 0003J0107 

01607000 T 0003»0l07 

01608000 T 0003(0107 

01609000 T 0003J0107 



PRT 
PRT 

PRT 

PRT 

PRT 
PRT 
PRT 
PRT 
PRT 

PRT 
PRT 

PRT 
PRT 



254) 
255) 

256) 

257) 

260) 
261) 
262) 
263) 
264) 

265) 
266) 

267) 
270) 



» TYPfV 

» PROAOO 

B MARK 

« PJ 

» J 

m UASTlNFO 

« KJEXTiNFO 

» FIRSTX 



tyPfv. 
proado, 

MARK P 

Pj. 
J« 

LaSttNfo. 

NrXTTNFO. 
FtRSTX» 

savflj 



SAVEL 



interer ncitj 



» NCII 



PROCEDURE 
« UNHOOK 

PROCEDURE 
« MAKEUPACCUM 

DEFINE PU 

COMMENT 

NUMBE 

FULL 

DEFINE , 

ADD » 

BBC B 

RBW 8 

BFC « 

BFW a 

CDC « 

CHS ; 

COC s 
COM B 

DEL i 
OUP a 

eol « 

LBC * 
LBU ■ 
GEO 
LFC 
LFU 

gtr 

IDV 
INX 
ISD 



COMMENT GLOBAL TEMPORARY FOR BLOCKI 

COMMENT USfD TO CARRY CLASS OF IDENTIFIER 

BElNfi DECLAREDI 
COMMENT CONTAINS ADDRESS OF PROCEDURE BEING 

DFCLAREDl 
COMMENT CONTAINS INDEX INTO INFO WHERE FIRST WORD 

OF ADDITIONAL INFO FOR A PROCEDURE ENTRYl 
COMMENT FORMAL PARAMETER COUNTERS 

COMMENT ARRAY COUNTER! 

COMMENT iNnEX TO LAST eNTRY IN iNpOl 

COMMENT INDEX FOR NEXT ENTRYIN INFOI 

COMMENT RELATIVE ADD OF FIRST EXECUTABLE CODE 

IN BLOCK, INITIALIZED TO 4095 EACH TlMEl 
COMMENT SAVE LOCATION FOR FIXUPS IN BLOCK! 

COMMENT THtS CONTAINS THE COUNT OF CONSTANTS 

ENTERED iN iNFO AT ANY GIVEN TiMEl 



UNHOOK?FORWARD> 
MAKEUPACCUMJFORWARDI 



RPTs[4: 
THFSE D 
RS REFE 
NAME IS 



16# 

??# 
5341 

38i 
550# 
168# 
134# 

40# 
130# 

10# 
26l# 
561# 
278# 

790# 

?1# 
?94t 

806 
37# 

384# 
24* 

532* 



8]*,SECRETa2*» 

FFINES GIVE ThE NAMeS OF THE 
R TO THE APPROPRIATE SECTION 
ALSO GlVENJ 



WORD MODE OPERATORS, THE 
OF THE PRODUCT SPECS. THE 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



(0101 
(0131 
(4131 
(0231 
(4231 
(1241 
(1031 
(0241 
(lOll 
(0045 
(2025 
(4425 
(2131) 
(6131) 
(0125 
(2231) 
(6231) 
(0225 
(3001 
(0141 
(4121 



) 7,4 
) 7,4 
) 7.4 
) 7.4 
) 7,4 
) 7.4 
) 7,4 
) 7,4 
) 7.4 
) 7,4 
) 7,4 
) 7,4 

7,4. 

7.4. 
) 7,4 

7.4. 

7.4. 
) 7.4 
) 7,4 

) 7.4 
) 7,4 



,2.1 

.5.4 

.5.3 

.5.1 

,10,4 

,7,11 

.10.3 

,10.5 

.9.3 

.9,2 

.4.3 

5.9 

5.7 

,4,2 

5,8 

5,6 

.4,1 

.2,5 

,10,2 

,6,3 



ADDI 

BRANCH BAC 
BRANCH BAC 
BRANCH FOR 
BRANCH FOR 
CONSTRUCT 
CHANGE SIG 
CONSTRUCT 
COMMUNICAT 
DELETE! 
DUPLICATE! 
EQUALi 
GO BACKWAR 
GO BACKWAR 
GREATER Th 
GO FORWARD 
GO FORWARD 
GREATER TH 
INTEGER DI 
INDEX! 
INTEGER ST 



KWARD CONDITIONAL! 

KWARD! 

WARD CONDITIONAL* 

WARD} 

DESCRIPTOR CALL! 

N! 

OPERAND CALL! 

ION OPERATOR! 



D CONDITIONAL! 

D (WORD)! 

AN OR EOUaL TO! 

CONDITIONAL! 
(WORD)I 

AN! 
VIDEi 

ORE DESTRUCTIVE! 



01610000 T 

01611000 T 

01612000 T 
01613000 T 

01614000 T 
01615000 T 

01616000 T 
01617000 T 

01618000 T 

01619000 T 

01620000 T 

01621000 T 

01622000 T 
01623000 T 



01625000 T 
01626000 T 



01628000 
01629000 
01630000 
01631000 
01632000 
01633000 
01634000 
01635000 
01636000 
01637000 
01638000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
01645000 
01646000 
01647000 
01648000 
01649000 
01650000 
01651000 
01652000 
01653000 



000310 

000310 

000310 
0003(0 

000310 
000310 

000310 
000310 

0003(0 

0003(0 

0003(0 

0003(0 

0003(0 
0003(0 



01624000 T 0003(0 



0003(0 
0003(0 



01627000 T 0003(0 



0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
000310 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
0003(0 
000310 
0003(0 
0003(0 



071 

071 

071 
07 

071 
07 

071 
07 

071 

071 

071 

071 

071 
071 

07! 

071 
071 

I2i 

121 
121 

121 
121 
12' 
121 

121 
12' 

121 
121 

12' 
12' 
12' 

12' 

121 

121 

121 

12' 

121 

12' 

121 

12' 

121 

12 

12' 

121 



3 

3 

3 
3 

3 
3 

3 

3 

3 
3 
3 

3 

3 
3 



ISN 

LFQ 
UNO 
LNg 
LOO 
LOR 
LQV 
LSS 
MKS 
MUL 
NEQ 
NOP 
PRL 

PRTe 

RDV 

RTN 

RTS 

SND 

SSP 

STD 

SUB 

XCH 

XIT 

ZPl 

SCI 

SAN 

scs 

COMMON 
DEFINE 
DIA 
DIB 
TRB 
REAL MA 
PRT(2n) » MAXSTACK 
PRT(272) • STACKCTR 

INTEGER 
PRT(273) » MAXROW 



533#i 
67#, 
)9* 
260f, 
35#, 
1311, 
5«9#, 
72#, 
641, 
69#, 
111. 
18#i 
I2li 
896* 
39#i 
167$, 
132#. 
582li 
B 68#i 
n 48#; 
« 133#i 
■ 71#, 
« 3??#i 
fflOOSI, 
sl004#, 
«l0t9#> 
T THESE 

; 45#, 

B «9«| 

* 53#; 
xstack»st 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
DEFINES AR 

COMMENT 
COMMENT 
COMMENT 
ACKCTRJ 



4221 
4125 
04i5 
0115 

2021 
02i5 

I0i6 
4225 
0441 
0401 
0425 
0055 
0111 
0061 
7001 
0235 
1235 
1021 
4431 
0421 
0301 
1025 
0435 
2411 
7655 
7661 
7755 
USED 

XX5S 
XX61 
XX65 



7.4, 
7.4. 
7,4, 
7.4. 
7.4, 
7,4, 
7,4. 
7.4, 
7.4. 
7,4. 
7.4. 
7,4, 
7,4, 
7,4, 
7,4, 
7,4* 
7,4, 
7,4, 
7.4. 
7,4, 
7,4, 
7,4. 
7.4. 
7.4, 



6,4 

4,4 

3,1 

3,4 

10,1 

3,2 

3,3 

4.5 

8.1 

2.3 

4,6 

7.1 

10.6 

10,9 

2,6 

8.3 

8,4 

6,2 

7.10 

6,1 

2,2 

9,1 

8,2 

10,8 



BY EMITDI 

7.4.7,1 
7,4.7.2 
7.4.7.3 



INTEGER STORE NON^OeSTRUCTI 

LESS THAN OR EQUAL TOI 

LOGICAL ANdI 

LOGICAL NEGATCI 

LOAD OPERATORI 

LOGICAL ORl 

LOGICAL EOIVALENCEI 

LESS Than; 

MARK STACK? 
MULTIPLY! 
NOT EQUAL TOI 
NO OPERATION! 
PROGRAM RELEASEI 
EXTEND PRTI 
REMAINDER DIVIDE; 
RETURN NORMAL! 
RETURN SPECIAL! 

STORE NON-DESTRUCTIVE! 
SET SIGN PLUS! 

STORE DESTRUCTIVE! 

SUBTRACT! 

EXCHANGE! 

EXIT! 

CONDITIONAL HALT! 

SCAN OUT INITIALIZE! 

SYSTEM ATTENTION NEEDED! 

SCAN OUT STOP! 



DIAL A! 
DIAL B! 
TRANSFER BITS! 



PRT(274) 

PRT(275) 

PRT(276) 
PRT(277) 
PRTC300) 

PRTC301) 



• SE 

m E 

« NL 
■ NH 

• TL 
» TH 



INTEGER 

gsizemax 

INTEGER 



MAXROW! 

COMMe 
ARRAY 

segSizem 



NT THIS CONTAINS 
S DECLARED. ITS U 
AXl COMMENT CONTA 



Thf MAXIMUM ROW SjZE OF ALL NON-SAVE 
SE IS LIKE THAT OF MAXSAVE! 
INS MAX SEGMENT SiZEI 



F! 



REAL NLO»NHI,TLO»THl! 



PRT(302) 8 nPTOG 



BOOLEAN DPTOG! 



CO 
D0LLAR2T 



BOOLEAN 
PRT(303) m 00LLAR2T0G 

DEFINE FZER08896 

REAL Tl,T2»N»KtA 



MMENT THE ABOVE 
OG! 

«t 
KKUM! 



THINGS ARE TEMP STORAGE FOR DOUBLE NOS! 



01654000 
01655000 
01656000 
01657000 
01658000 
01659000 
01660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01677050 
01677100 
01677150 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



01685000 T 
01686000 T 
01687000 T 

01688000 T 

01689000 T 



000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
0003t0 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 



01684000 T 000310 



000310 
000310 
000310 

000310 

000310 



2t0 
210 
210 
210 
2(0 
210 
210 
210 
210 
2t0 
210 
210 
210 
2t0 
210 
210 
210 
210 
210 
2t0 
2>0 
210 
210 
210 
210 
210 
210 
2t0 
210 
2«0 
210 
210 
210 



210 

210 
210 
210 

2»0 

210 



01690000 T 00031011210 



PRT(304) 
PRTC305) 



01691000 
01691500 

01692000 
01693000 



• Tl 
« T2 



T 0OO3I0U2I0 

T 0003»0li2l0 

T 0003»0li2l0 

T 00031011210 



PRTC306) ■ N 
PRT(307) ■ K 
PRTOlO) s aKKUM 

BOOLEAN STOPfiSPl 

PRTOin » stopgsp 

INTEGER BUP> 
PRT(3l2) » BUP 

BOOLEAN INI.INETOGI 
PRT(3l3) s fNLlNFTOG 

COMMENT UNIQUE GLOBAL TEMP FOR BLOCK* 

ARRAY GTAirouoj; 

PRT(3l4) » flTAl 

BOOLEAN ARRAY SPRTtOlSlJl 
PRT(3l5) ■ SPRT 

COMMENT SPRT iS TO BE COnStDERfD TO BE AN ARRAY OF 32 32 B|T 

FIELDS, THE 32 BiTS aRE IN THE LOW ORDER PART OF EACH 

Word, the bit is on tf and only if the corresponding 

PRT cell has A PERMANENT ASSIGNMENTI 

integer prti.prtimax; 

PRT(316) * PRTI 
PRT(3l7) » PRTIMAX 

comment PRTIMAX GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN- 
MENT. PRTI GIVES NEXT PRT CELL POSSIBLY AVAILABLE FOR 

Temporary assignment! 

DEFINE aIPhASIZE » rl2»6]#l COMMENT ALPHASIZE IS THE DEFINE FOR THE BIT 

POStTlON IN The SECOND WORD OF INFO WHICH 
CONTAINS THE LENGTH OF ALPHAI 
DEFINE EDOCTNDEX « L. I 36 « 31 ^I t 3' » 7] #1 COMMENT EDOCINOEX IS THE WORD 

PORTION OF L SPLIT INTO A ROW AND 
COLUMN INDEX FOR EDOCI 
DEFINE CPLUSl ■ 769#; COMMENT SEE COMMENT AT CPLUS2 DEFlNEl 
DEFINE CPLUS2 « 770*i COMMENT CPLUSl AND CPLUS2 ARE EXPLICIT CONSTANTS 

USED IN The GENERATION OF C-RELATIVE CODEI 
PROCEDURE FLAGfERRNUM)? VALUF ERRNUMJ INTEGER ERRNUMI FORWARDI 
PRT(320) m fLAG 

alpha PROCEDURE B2n(B)l VALUE Bl RfAL B; FORWARD; 
PRT(321) » R2D 

REAL PROCEDURE TAKECW)! VALUf WJ INTEGER W| FORWARDI 
PRT(3?2) « TAKE 

BOOLEAN MACR0ID» 
PRTC323) s MACROID 

REAL PROCEDURE F I XDEF I nE I NFO( T ) I VALUE Tl REAL T» FORWARDI 
PRT(3?4) « FIXDEFINEINFO 

PROCEDURE ERR fERRNUM); ValUE ERRNUMI INTEGER ERRnUm* FORWARDI 
PRT(325) • fRR 

INTEGER PROCEDURE GITCDI VALUe U| ReAL LI FORWARD* 
PRT (326) » GIT 

ARRAY rALLACOI31.0i2551J 
PRT(327) m rALLA 

DEFINE CALLCCALLn«CALLA[fGT3*CALLl ).LINKR,GT3.LINKC]*I 

REAL callx,callinfo.nestctr.nestcur; 

PRT(330) s CALLX 
PRT(331) s CALLINFO 
PRT<332> • NESTCTR 
PRT(333) » NESTCUR 

ARRAY NESTPRT[PRTBASEIPRTOP]l 
PRT(33*) « NESTPRT 

ARRAY SORTPRTrOiPRTOP-PRTBASE]) 



01694000 T 
01695000 T 



01696000 T 
01697000 T 



01699000 
01700000 
OlTOlOOO 
01702000 
01703000 



01704000 
01705000 
01706000 
01707000 
01708000 
01709000 
0l7l0000 
01711000 
01712000 
01713000 
01714000 
01715000 
01716000 



01717000 T 

01717700 T 

01717600 T 

01717900 T 

01718000 T 

01719000 T 

01720000 T 

01721000 T 
01722000 T 



000310 
0001 10 



01695500 T 000310 



000310 
000310 



01698000 T 000310 



000310 
OOOltO 
0003<0 
000310 
000310 



000310 
000310 
000310 
000310 
0003>0 
000310 
000310 
000310 
000310 
000310 
000310 
000310 
000310 

000310 

000310 

0003>0 

000310 

000310 

000310 

000310 

000310 
000310 



2«0 

210 

210 

210 
2«0 

411 

712 
712 
712 
712 
712 

712 
712 
712 
712 
712 
712 
712 
712 
712 
712 
712 
712 
712 

712 
712 

712 
712 
712 
712 
712 

913 

913 



01724000 T 0003l0ll9»3 
01725000 T 00031012210 



PRT(335) m SORTPRT 

COMMFNT ♦'BL.ANKirT'' rUANKS OUT N + 1 WQRdS IN ♦♦ThfRF'*! 
STREAM PROCEDURF BLANKETC N, THfRF ) ^ VALUE Nl 
PRTn36) » BLANKET 

BEGIN 

DII.ThEREI DSl.8 LIT" •♦ > SltaTHERE* DSl»N WDS; 

END BLANKET! 



01726000 
01737300 
01737350 

01737400 
01737450 
01737500 



T 00031012610 

T 0003t0l26t0 

T 0003t0l26l0 

T 00031012610 

T 00031012712 

T 0003»0l29l2 



STREAM PROCEDURE CHANGESEQ( VAL»0LDSEe) ) VALUE OLDSeQ» 
PRT(337) s CHANgeSeQ 

BEGIN DUbOLDSEQI St«.VAL» DS««6 DEC END CHANGESEQI 



01741200 T 0003(012913 
01741300 T 0003«0i29l3 



STREAM PROCEDURE SFOUENCEERRORf L? » 
PRT(3405 m SEOUENCEFRROR 

BEGIN DIlaLl DSI«16 L 1 T^SEflUENCE ERROR "J END SEQUENCEERRORI 



01742100 T 0003t0l3l«2 
01742110 T 00031013112 



STREAM PROCEDURE GfTVOI D ( VP» NcR » LCR » SEO ) I VALUE NCR#LCR> 
PRT(34n » GETVOID 

BEGIN 

labfl l»exiti 

LOCAL N| 

SH.NCRJ DII»VPJ DSt*8 LIT •♦O"! 

?(3«nF sc«« •• Then sit«Si + i else jump out 2 to l))» 

GO TO EXIT? % NO VOID RANGE GIVEN» RETURN ZERO. 

L« 

IF sc*"*" Then go to exitj % still no range. 
IF sc*""" Then 

BEGIN 

Sit»SUl> DI«*LCR; DS««1 LiT"""! Z STOPPER FOR SCAN 

NCRlsSiI X TEMP, STORAGE* SINCE NCR IS "LOCAL" TO GETVOID. 

8(IF SC«""" THEN JUMP OUT fLSE 

BEGIN TALLY«»TaLLY+1» Sll«Sl+l lHo)t 

END 
ELSf BEGIN 

NCR«»SiJ J! TEMP, STORAGE* SINCE NCR IS "LOCAL" TO GETVOID. 

DIIsLCRJ DS«Bi LIT" »t % STOPPER FOR SCAN 

8(IF SC«" " THEN jUHp OUT ELSE 

BEGIN TALLYj.TALLY+n Sll«Sl*l END)) 

END) 
Sll.NCR) 0II«VPI DU*Dl + 6) % RESTORE POINTERS, 
Nl«TALLY» DI«»DI-NI DS»»N ChR) 
FXIT« 

END OF GETVOID) 



01756000 T 0003«0l33«3 



01757000 
01758000 
01759000 
01761000 
01762000 
01763000 
01764000 
01764500 
01765000 
01766000 
01767000 
01768000 
01769000 
01770000 
01771000 
01772000 
01773000 
01774000 
01775000 
01776000 
01777000 
01780000 
01781000 
01782000 
01764000 



T 0003I0133«3 

T 0003)0134)0 

T 0003)0134)0 

T 0003)0134)0 

T 0003«0i35»3 

T 0003)013811 

T 0003)0136(1 

T 0003)0138)1 

T 0003)0139)3 

T 0003(0140)0 

T 0003(0140(0 

T 0003(0141(3 

T 0003(0142(0 

T 0003)0143(3 

T 0003(0145)2 

T 0003)0145(2 

T 0003(0145(2 

T 0003l0u5(3 

T 0003(0146(0 

T 0003(0147(3 

T 0003(014912 

T 0003(0149(2 

T 0003(0149(3 

T 0003(015112 

T 0003(0151(2 



REAL VOTDC.R»V01DPLACE,VOIDTCR.VOIDTPLACEI 



01785000 T 0003(0151(2 



PRT(3fl2) » VOIDCR 
PRT(3fl3) « VOIDPLACE 
PRT(344) » VOIOTCR 
PRT(345) • VOlOTPtACE 

FORMAT 



BUG()f?4»4fA4fX2))l 



PRTC346) » RUG 
PRT(347) 



PROCEDURE DATiMfl 
DATIME 

BEGIN 

INTfGER H»M1N»QI ALPHA N1»N?J 



STACKfF*2) « H 

STACKfF+3) s MIN 

STACK(F+4) M Q 

STACKfF+5) m Nl 

STACKcF + 6) 31 N2 

PRT(350) u dATeR 



ALPhA STREAM PROCEDURE DATER(DATE)» VALUE DATEI 

BEGIN 

DIt«LOC DATFRI SUbLoC OATe» SIUSi^2I 
?(DSt*2 CHR> DSisLlT**/"); DSI»2 chr; 
END OF DATERJ 



01800000 T 00031015112 
01802000 T 0003I0151«2 
START OF SEGMENT **«***•♦*« 4 

ft IS 8 L0NG» NEXT SEG 3 
01820000 T 00031015112 

01821000 T 0003t0l5ll2 
01822000 T 00031015112 
START OF SEGMENT ♦♦***♦♦*•♦ b 



01823000 T 00051000010 



01824000 T 

01825000 T 

01826000 T 

01827000 T 



0005>0000I0 
0005(000010 
00051000011 
0005t0002i0 



H»«TIME1 DIV 216000; MlNla(TIMFl DiV 3600) MOD 60; 

NllsDlSK.MFlDJ N2l»0lSK,FtD; 

WRITE(LINE, 

<X22t"BURR0UGHS B-ST-QO ESpOL COMPILER MARK ", 
PRT(35n * *F0RMAT DESCRIPTOR* 

-XVI, 0. lid" 

»" ••fA6»"DAYr »»0»*'» ♦♦, 1 2. " I •»» A2i Xl # A3. 
////X45.Al»A6.''/"»AltA6»/X45»l5C''*")//>» 

TlME(6),DATERf TlMEf5))«12>'REAL(QtiiH MOD 12«0) + Q» 
PRTC352) • *LIST, LABEL, OR SEGMENT DESCRIPTOR* 

Ot«MiN MOD 10+(MIN DiV 10)k64. 
IF H?!12 THEN "PM,** ELSE "AM.". 
Nl.t6«6],Nl»N2.r6l6],N2); 
PRT(3535 » OUTPUT(W) 

IF MFRGETOfi THEN % INDICATE NAMp OF SOURCE EILE» 

WRITF(LINE.<X40, "SOURCE FlLE« •• » A 1 » A6,«/w. A 1 , A6. //>. 
PRT(354) « *F0RMAT DESCRIPTOR* 

(Nl tBTApE,MFID),t6l63,Nii(N2l«TAPE,FID),(6«6]»N2)l 
PRT(355) « *LIST, LABEL, OR SEGMENT DESCRIPTOR* 

NOHEADINGIoFALSEI 
END OF DATIMEJ 



!!117' 



flll- 
XIU- 



Xtll' 



01828000 T 
01828500 T 
01829000 T 
01830000 T 



0005l0003«2 
00051000712 
0005I0013J3 
0005«00l5»2 



01831000 P 0006l00l5»2 

01832000 T 0006100l5«2 

01832500 T 00061001512 

IS 40 LONG. NEXT SE6 5 

01833000 T 0005«00l6l0 



01834000 T 
01835000 T 
01835500 T 



00051003210 
0005100361 1 
00051004312 



01835600 C 0005»0053»2 
01835700 C 00051005410 

7 IS 14 LONG. NEXT SEG 5 
01835800 C 0005«0057I2 

01836000 T 00051007712 
01837000 T 0005*0078*0 

5 IS 82 LONG. NEXT SEG 3 



COMMENT This section contains all code PERTaiNeNT to READING CARDS 



02000000 T 000310151(2 



AND SCANNING THFMI 

%******tt:**i>i***.**t ******************** *****:t^***llt*******i^***itlt**tikl^:^i^^ 

« % 

% MlSCFLlANEOUS CROSS RfFfRENcE PROCEDURES % 

X % 

%**************************** **********************************^**it:^ 

% % 

PROCEDURE rROSSREFlT(lNDEX,SEONO»REFTYPE)» j; 
PRT(356) » cROSSRfFlT 

VALUE INDEX, Sf.QNO,REFTYPfI % 

REAL INDEX, SeQNO»REFTYPEJ X 

BEGIN % 

IF XREFlNFOriMOEXl.IDNOr »» THEN % SAVE % 

BEGIN % 

IF XREFpT > 79 Then I NO SloTS left IN ARRAY, WRITE IT qUT, % 

BEGIN % 

WrITE(DSK2»30»XREFAY?(*]); I 

XrEFPT t« 01 X 

ENDl % 

XREFAYPtXREFPT] Is SEQNO f, REFTYPp TYPeREF » XReF INFO 1 1 NDEX] % 

REFIONOFJ % 
XREFPT »* XREFPT + 1» X EVEN THOUGH THE ARRAY MAY BE FUlU NOW WE % 

% CAMT WRITE IT OUT BECAUSE SOME ROUTINES % 

X WILL LOOK BACK AT THE ENTRY WE JUST PUT % 

X IN AND FIX IT UP. X 

END! % 

END OF CROSSREFITJ % 



*** 
10- 
10- 
10- 
*** 
10- 
10" 

lO- 
10- 
lO- 
10- 
10- 
10" 
10* 
10- 
10- 
10- 
10- 
10- 
10- 
10- 
lO» 
lO- 
lO- 
10- 



0?00l000 
02001605 
02001610 
02001615 
02001620 
02001630 
02001635 
02001640 



02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 



645 
650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
7l0 
715 
720 
725 
730 



0003>0i5l 
0003»0l5l 
0003i0l51 
000310151 
000310151 
000310151 
000310151 
000310151 



00031 
00031 
0003< 
00031 

0003< 
0003t 

00031 
0003> 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
0003* 



0151 
0151 
0151 
0151 
0155 
0156 
0157 
0157 
0161 
0162 
0162 
0166 
0168 
0i69 
0169 
0i69 
0169 
0169 



PROCEDURE CROSSREFDUMP(lNDFX)| 
PRT(357) « CROSSREFDUMP 

VALUf index> 

REAL iNDFXI 
BEGIN 

STREAM PROCEDURE MOVEXREF I NfO{ S ,D. N) J 

PRTt360) * MOVEXREFINFO 

VALUE Nl 
BEGIN 

Si »« Dl DI «» Dl 05 U 8 Lit •• 
Sl Ik Sj ST l« ST + 31 DI «« Dl 

END Of movfxRffinfo; 



"I 

OS 



DS 
Is 



Is 7 WDSl X BLANK RECORD 
N CHRI % MOVE IDENTIFIER 



XllO- 02001735 C 

XUO- 02001740 C 

XllO- 02001745 C 

XllO- 02001750 C 

XllO- 02001755 C 

XllO- 02001760 C 
START OF SEGMENT 

XllO- 02001765 C 

XllO- 02001770 C 

XllO- 02001775 C 

XUO- 02001780 C 

XllO- 02001785 C 



00031016913 
00031016913 

0003t0i69l3 
00031016913 
00031016913 
00031016913 



********** 



6 



00081000010 
00081000010 
00081000010 
0008(000210 
00081000312 



X 
IF XREFlNFOr!NDEX].IDNOF # ThEN X DUMP IT 
BEGIN 

MOVEXREFINFO(INFOtlNDEX,LINKR,INDEX,UlNKC+n,XREFAYir«li 

TaKECINOEX+1), [12163)1 

XREFAYira] ts XRFFINF0IINDEX3I 

XREFAYH9] ls TAKE(INDEX)J X ELBAT WORD 

WRITE?DSK1»10,XREFAY1I*])| 



XllO- 
XllO- 
XllO- 
XUO- 
XllO- 
XllO- 
XUO- 
XllO- 



02001790 
02001795 
02001600 
02001805 
02001810 
02001815 
02001820 
02001821 



0008 
0008 
0008 
0008 
0008 
0008 
0008 
0008 



1000313 
1000313 
1000713 
lOOOBIO 
1001113 
1001313 
1001713 
1001912 



XHfFINFOr INDEX] »• 0> 

end; 

FNd of cROSSREFDUMP) 



XllO- 
XllO- 



02001822 C 

02001825 C 

02001830 C 

IS ?8 LONG. 



00081002313 
00081002712 
00081002712 

NEXT SE6 3 



COMMENT OCTIZE REFORMATS ACCUM FOR OCTAL CONSTANTS) 
BOOLEAN STREAM PROCEDURE OCT I ZEf S.D# SKP#CNT) I VALUE SKPtCNT* 
PRT(361) « OCTtZE 

BEGiN 

SIUSI Sfl»SI+ft» DT««DI SkP(DSI»3 RESeT)» % RIGHT JUSTIFY. 

cnTmf sci^B" Then tally»«i else if sc<«o»» Then tally««i» skip 

,3nF SB Then dsi»set else dsi-reseti skip s8))i 
Si t«D) IF SB Then 

BEGIN TALLYI*1» DI«»0| DSi.RESET END) 
OCTiZEt.TALLY) % «♦!•♦ ■ NON OCTAl CHARACTER OR 
END OCTIZEI 



3 SB) 



X PREVENT 
FLAG BIT. 



FLAG BIT. 



02001836 T 
02001838 T 



02001840 
02001842 
02001844 
02001846 
02001848 
02001850 
02001852 
02001654 



00031016913 
0003l0i69l3 



0003101 
0003101 
OOO31O1 
0003tOl 
0003)0l 
0003»0l 
0003)01 
0003)01 



69)3 

70)0 
72«0 
7512 
77)3 
78)0 
79)3 
79)3 



PRT(362) 



C 

B 

HEXIZE 



OMMENT HEXIZE REFORMATS ACCUM FOR HEXADECIMAL CONSTANTS) 
OOLEAN STREAM PROCEDURE HEX I ZEcSi 0. SKP» CNT) I VALUE SKP.CNT) 



02001856 
02001858 



BEG 
:OMMENT 

01) 
Si) 

cnt 



CASE A CHAR>A*B>C«D>OR F. 
MAY OVERFLOW inTq TEMP?, 
SCS^F" THEN % WORK HARD. 



iGlNl 

)) 

Sll 

CNT 

4 

SP 

HEX 
END 



tN LOCAL Tl .T2.TEMP2, TEMPI) LABEL AGIN) 

LOCAL VARIABLES ARE LOcATeo IN ReVeRSE ORDER FROM THE 

WAY THEY ARE DECLARED IN STREAM PROCEDURES) 
iLOC TEMPI) CNTCOSJ.LIT"!")! X IN 
«Sl Sn».Sl+3) DI)»L0C TEMPI) % WE 
fIF SCk-'O" THEN IF SC>"A" THEN IF 

BEGIN 

TDrSI) T2H«0I) Dl)sTl) SHST2) X FLIP* MAN, 

DSlif3 RESET; Sl)«Tl) Dl)«T?) X FLIP BACK. 

DS)»1 ADD) DII«Dl-i; SKIP ? DB) DSl»l SET) SKIP 3 DB) 

GO AGIN) 

END) 

IF SC<«0" THEN TALLYi»l) DS)»CHR) X < » NON-HEX CHARACTER. 

bLOC TEMPI) DI«»«D) SKPfDS)«4 RESET)) X RIGhT ADJUST CONSTANT. 

fSKiP 2 SB) 

riF SB Then 05)«SET else DS)*ReSET) skip SB)))X FINAL CONVERT. 

iD) IF SB Then 

BEGIN TALLY'wU DH«D) DS|«ReSeT END! X PREVENT FLAG BIT, 
TZE)ibTALLY) X "l" IF PROGRAMMER GOOFED, 
HEXIZE) 



02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 
02001 



860 
862 
864 
866 
668 
870 
872 
874 
876 
878 
880 
882 
884 
086 
688 
890 
892 
894 
895 
896 
897 
898 



0003)0180)1 
0003)0160)1 



0003) 
00031 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
0003) 
00031 



0180)1 
0l8l)2 
0l8l)2 
0161)2 
0i63)2 
018313 
0187)2 
0167)2 
0166)1 
0189)3 
0190)1 
0191)2 
0191)2 
0l92)0 
0l92)0 
0192)0 
019410 
0l95)3 
0l97)3 
0l96)l 
0199)3 
0200)0 



PRTC363) « 



COMMENT PUTSEQNO PUTS THE SEQUENCE NUMBER OF THE CARD'IMAGE 
CURRENTLY BEING SCANNED INTO THE INFO TABLE IN CASE 
IT IS NEEDED FOR FUTURE REFERENCE! 
PROCEDURE PUTSEQNOnNFo»LCR)) VALUE lCR) 



STREAM 
PUTSEQNO 



02002000 
02003000 
02004000 
02005000 



T 0003)0201)2 

T 0003)0201)2 

T 0003)0201)2 

T 0003)0201)2 



BEGfN DTlslNFOI Sll«L.CR> OSIbWdS; END PUTSEQNOi 



02006000 T 00031020112 



COMMfNT TURNONSTOPLIGHT TURNS THE LIGHT "RED* ON THE "CORNER". 
I.E.* THE PURPOSE OF ThIS ROUTINE IS TO INSERT A PER- 
CENT Sign in column 73 as an end of caRo sentinel for 

The SCANNER! 
stream procedure TURNONST0PLir,HTCREn#CORNER)l VALUE RED. CORNER) 
PRT(36A) V TURNONSTOPLIGHT 

BEGIN DMwCORnER) S1«»lOC CORNER! SHnSI-il DSlwCHR END; 



02007000 
02008000 
02009000 
O2O1OOOO 
02011000 



T 00031020210 

T 00031020210 

T 0003«0202IO 

T 00031020210 

T 0003t0202t0 



O2O12OOO T 0003i0202t0 



COMMENT WRITNEW TRANSFERS THE CARD IMAGE TO THE NEWTAPE BUFFER 
AND REPORTS IF THE CARD MIGHT BE CONTROL CARD; 
BOOLEAN STREAM PROCEDURE WR 1 TNfW CNFW.FCR) I VALUE FCR* 
PRT(365) m wRiTNEW 

BEGIN SI ♦ FCRl IF Sc # "$•♦ THEN TALLY * U 
DT*NEWlDS*lO WDS; 

WRlTNEW ♦ TALLY END WRlTNEWI 



02014000 T 
02015000 T 
02016000 T 

02017000 T 
O2O18OOO T 
020?0000 T 



00031020312 
0003(020312 
0003>0203t2 

00031020312 
0003>0205f 2 
0003*020513 



PRT(366) • MKABS 



COMMENT MKABS CONVERTS A DESCRIPTOR TO AN ABSOLUTE ADORESSi 
REAL STREAM PROCEDURE MKABS(A); 

BEGIN DI •• Al MKABS * DI END MKabSI 



02021000 T 
02022000 T 



0003(020611 
00031020611 



02023000 T 0003(020611 



PRTC367) B cONV 



Real stream procedure conv(accum»skp»n)ivalue skp,n( 



BEGIN 



FNDl 



Si* ACCUM? Si*$uSKP(Si*Sl+|JDl*LOC CONVJDS..N OCT 



02041000 T 0003(020811 



02042000 T 
02043000 T 
02044000 T 



0003(020811 
0003(0209(2 
0003(0210(1 



STREAM PROCEDURE MOVeCHARACTERS( N, SORCE. SSK IP t DEST, DSK IP ) I 
PRTt370) m MOVECHARACTERS 

VALUE N.SSKlP.DSKlP( 

BEGIN 

SUSORCE ( Dl»DESTl 

Sl*Si*SSKlP) 01* Dl+OSKIP ) 

DS •• N chR ( 

END t 



02045000 T 0003(0211(3 



02046000 
02047000 
02048000 
02049000 
02050000 
02051000 



T 0003(0211(3 

T 0003(0211(3 

T 000340212(0 

T 0003(0212(1 

T 0003(0213(3 

T 0003(0214(0 



COMMENT MOVECHARACTERS MOVES N CHARACTERS FROM THE SSKIP-TH CHAR IN 



02052000 T 0003(021410 



PRT(371) s MOVE 



"SORCE" TO THE OSKiP-Th CHAR IN "DEST*. 
STREAM PROCEDURE MOVE( W )''WORdS FROM^f A)"T0''( B) I VALUE w; 

BEGIN Si * AI Dt ♦ Bl OS ♦ W WDS END* 



02053000 T 0003l021ftlO 
02054000 T 0003»02iat0 

02055000 T 000310214(0 



PRTf372) > RESIZE 



STREAM PROCEDURE RESI ZE( F I EL) ) 

BEGIN LOCAL T> 

SUFIFLI DULOC TI DS«.WDS; 
Sl*TlDi«.FlELlDi«.Di + ll SKIP 2 DBI DS*lO SET 

ENDI 



02056000 T 00031021610 



02057000 
02058000 
02059000 
02060000 



T 0003t02i6<0 

T 00031021712 

T 00031021/13 

T 0003l02l9«2 



PRT(373) « EQUAL 



COMMENT eOUaL COMPaReS COUNT CHARACTERS LOCATED AT A AND B FOR 
EOUALfTY, This ROUTtNe is USED IN The LOOK-UP OF ALPHA 
QUANTITIES IN THE DIRECTORY* 

BOOLEAN STREAM PROCEDURE EQUALt COUNT* A» B ) ; VALUE COUNT; 

BEGIN 

tallYi«i» Siiba; di«»bi 

if count sc»dc then eouall'tally 

end equal* 



02061000 T 
02061500 T 
02062000 T 
02062500 T 

02063000 T 
02063500 T 
02064000 T 
02064500 T 



00031021912 
00031021912 
00031021912 
0003<02l9l2 

00031021912 
00031022010 
OOO31O22O1I 
0003«0221»3 



PROCEDURE READACARDI FORWARD? 
PRTC374) • READACARd 

PROCEDURE DOLLARCARDI FORWARDJ 
PRT(375) « nOLLARCARD 

BOOLEAN PROCEDURE BOOLEXPJ FORWARD! 
PRT(376) « BOOLEXP 

PROCEDURE SCANNER* 
PRT(377) • SCANNER 

BEGIN 
COMMENT ••SCAN" IS THE STREAM PROCEDURE WhICH DOES THE ACTUAL SCANNING, 
IT IS DRIVEN BY A SMALL WORD MODE PROCEDURE CALLED ••SCANNER". 
WHICH CHECKS FOR A QUANTITY BEING BROKEN ACROSS A CAROi ••SCAN*' 
TS CONTROLLED BY A VaRiABLF CALLED ••RESULT". "SCAN" ALSO 
INFORMS The WORLD OF ITS ACTION BY MEANS OF THE SAME VARIABLE. 
HENCE THE VARIABLE "RESULT** IS PASSED BY BOTH NAME AND VALUE. 

The meaning of "ResulTw as input isi 

VALUE MEANING 

INITIAL CODE - DEBLANK AND START TO FETCH THE 
NEXT QUANTITY. 

1 CONTINUE BUILDING AN IDENTIFIER (INTERRUPTED BY 
ENO-OF-CaRD BREAK), 

2 LAST QUANTITY BUILT WAS SPECIAL CHARACTER. HENCE* 
EXIT (INTERRUPTION BY END-OF-CARD BREAK IS NOT 
IMPORTANT). 

3 CONTINUE BUILDING A NUMBER (INTERRUPTED BY END-OF- 



02065000 T 00031022211 

02065500 T 000310222*1 

02065600 T 0003*0222*1 

02066000 T 0003*0222*1 

02066500 T 0003*0222*1 



02067000 
02067500 
02066000 
02068500 
02069000 
02069500 
02070000 
O2O7O5OO 
02071000 
02071500 
02072000 
02072500 
02073000 
02073500 
02074000 
02074500 
02075000 



T 0003*0222*1 

T 0003(0222*1 

T 0003(022211 

T 0003*0222*1 

T 0003*0222*1 

T 000310222(1 

T 0003*0222*1 

T 0003*0222*1 

T 0003*0222(1 

T 0003*0222*1 

T 0003*0222*1 

T 0003(0222*1 

T 0003(0222*1 

T 0003*0222*1 

T 0003(0222(1 

T 0003*0222*1 

T 0003*0222*1 



5 
6 
7 

The meaMnr 

VALUf 



1 
? 

3 

••SCAN'' PUTS 
DISCARDED BL 

FOR THF Rest 

"COUnT^^ is t 
•♦scan'* has p 
The vauue so 
ulator** and 

••COUNTh is P 
CONVENIENT T 
"NCR" fNEXT 
NAME ASiD VAl. 
•»STl»« AND "S 
PASSED TO "S 
ARRANGEMENT. 
I 
STRrAM PROCFDURE 



CARD B 
LAST T 
EXIT f 
IMPORT 
GET NE 
SCAN A 
DEBLAN 

OF "Re 

meanin 

AN IDE 
A SPEC 
A NUMB 
ALU ST 
ANKS) 

OF Th 
HE Var 
UT INT 

That 

NEEDS 
ASSED 
HAVE 
CHARAC 
UE SO 
T?** AR 
CAN** I 



REAK), 

H1N6 WAS A 

INTERRUPTI 

ANT). 

XT ChARACT 

COMMENT. 
K ONLY, 

sult« as 

G 

NTyFlER WA 
lAL CHARAC 
ER (iNTEfiE 
UFF SCANNE 
INTO "ACCU 
IS Discuss 

lABLE That 

THF •'ACC 
IT CAN PUT 
TO UPDATE 
BY BOTH NA 
(63-COUnT 
TtR T8 BE 
THAT IT MA 
E TEMPORaR 
N ORDER TO 



N ERROR (COUNT EXCEEDED 63), 
ON BY END-OF-CARO BREAK NOT 

ER AND EXIT, 



UTPUT iSl 



SKSKBSSKSKKSISSSKSaXSSmvS 



hfnce* 



S BUILT 

teR was 

R) WAS 
D (EXCE 
M" (CAL 
ION), 

GIVES 
UMULATO 

MORE C 
"COUNT" 
ME AND 

). This 

SCANNED 

Y BE UP 

Y STORA 
OBTAIN 



OBTAINE 
BUILT. 
PT FOR C 
LED "ACC 

The numb 

R". SIN 

haracteR 
FOR The 

VALUE. 
IS CALL 

) IS als 

DATED, 
GES WHIC 
the MOS 



D. 

omments and 

UMULATOR" 

ER OF characters 
CE "SCAN" NEEDS 
S INTO THE "ACCUM- 

OUTSIDE WORLD* 
IT IS ALSO 
ED "COMCOUNT". 
PASSED BY 

H ARE EXPLICITLY 
T USEFULL STACK 



SC AN ( NCR, COUNTV f ACC UMi COMCOUNT » RESULT iRESULTV, 



PRT(«00) * SCAN 



START 



BEGIN 
LABEL 



COUNT, ST2,NCRV.ST1)> 
VALUE COuNTVt cOMCOUNT, RESULTV» ST2» NCRV. STU 



COMMENT 



dfblank.numbers,iobldR»gnc,k.exit,finis,l#eRRor. 

COMMENTS, COMMAnTSI 

diibresult; di«*di+7> si»«ncrv; 

seuip "dl" for a change in "result" and "si" for a look 

THE BUFFERf 
CIJccI+RESULTVj 



AT 



60 
GO 
GO 
GO 
GO 
GO 
GO 

IF 

GO 



% 
X IS 
% 1 IS 
X 2 IS 
* 3 IS 
X '^ IS 
X 5 IS 
X 6 IS 

% r is 

SC«" " THEN 

BEGIN Sli«Si+i; 
FINISI 



deblank; 

IDBLDRJ 
FlNiSl 

numbers; 

FiNiSi 
GNC; 

commantsi 



SWITCH ON VALUE OF RESUlTi 
INITIAL CODE, 
|0 CODE, 

special character code, 
number code, 
fRror code, 

GET NEXT CHARACTER CODE, 
COMMENT CODE, 
DEBLANK ONLY CODE, 

IF SCb" " THEN GO K ENDI 



DEBLANKi 

L« 
COMMENT 



IF SC«" " THEN 

BEGIN Sll»Si+l| IF Sc** " 
IF WE ARRIVE HERE WE HAVE A NON« 
NCRVl«Si; 
IF Sc i "0" THEN GO NUMBERS* 



THEN GO L ENDI 
BLANK CHARACTERI 



02075500 T 00031 

02076000 T 0003« 

02076500 T 00031 

02077000 T 00031 

02077500 T 0003« 

02078000 T 0003» 

02078500 T 00031 

02079000 T 00031 

02079500 T 00031 

02080000 T 00031 

02080500 T 0003« 

02081000 T 00031 

02081500 T 0003J 

02082000 T 00031 

02082500 T 0003 t 

02083000 T OOOJI 

02083500 T 0003« 

02084000 T 00031 

02084500 T 00031 

02085000 T 00031 

02085500 T 00031 

02086000 T OOOJI 

02086500 T OOO3I 

02087000 T 0003» 

02087500 T OOO3I 

02068000 T 00031 

02088500 T OOO3I 

02089000 T 00031 

02089500 T 00031 
OF SEGMENT ♦»•**»♦♦ 

02090000 T 00091 

02090500 T 00091 

02091000 T 00091 

02091500 T 00091 

02092000 T 00091 

02092500 T 00091 

02093000 T 00091 

02093500 T 00091 

02094000 T 00091 

02094500 T 00091 

02095000 T 00091 

02095500 T 00091 

02096000 T 00091 

02096500 T 00091 

02097000 T 00091 

02097500 T 00091 

02098000 T 0009« 

02098500 T 00091 

02099000 T 0009> 

02099500 T 00091 

02100000 T 00091 

02100500 T 00091 

02101000 T 00091 

02101500 T 00091 

02102000 T 0009« 

02102500 T 00091 



0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
O222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 
0222 

0222 
0222 
0222 
0222 
0222 
0222 
♦ ♦ 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0001 
0001 
0002 
0002 
0002 
0002 

0003 
0003 

0003 
0005 
0005 
0005 
0006 
0008 
0006 
0008 



IF sc«alpha Then go idbldrj 

COMMrNT IF WE ARRIVE HERE WE HAVE A SPECIAL CHARACTER (OR GNOl 
GNC« 

DSJaUlT*?"; TALUYl.n SI«sSI + lJ GO EXiTi 
COMMANTSI 

IF SC^";" THEN 
BEGIN 

COMMENTS' 

Si tsSl + l J 

IF SC > "X" THEN GO COMMENTS* 

IF SC < "J" Then no commentsi 
comment characters between x and sfmicouon arf handteo by word* 
mode part of comment routine; 

endj 
go f ini si 



IDBLDRI 



FRRORi 

COMMENT 
NUMBERSj 



TALLYI.63I DSJbLiT "l"! 
C0MC0UnT(TAUI.Y«»TaLLY+1 I 

IF SCeALPHA ThEN SI««SUl ELSE JUMP OUT TO EXIT)! 
TAL.LYI.TALLY + 11 

IF sc«alpha Then 

BEGIN 

oiJsoi-n DSisLiT "H'^i GO exit; 

END 
ELSE GO EXlT» 

IF WE ARRIVE AT ERROR WE HAVE MORE THAN 63 CHARACTERS 
IN AN IDENTIFIER OR NUMBERJ 



TAULY»«63> DSIkLIT •♦S"! 
PRT(401) K ♦LIST, LABEL, OR SEGMENT DESCRIPTOR* 

comc ounT(t ALLY » -Tally* i> 

IF SC <"0''ThEN JUMP OUT TO EXIT? Sll.Sl + 1)) 

60 error; 
eXiti 

ST1!*TALLYI % ♦♦STi" contains NUMBER OF CHARACTERS WE ARE 

% going to MOVE INTO THE "ACCUMULATOR", 
TALLYUTALLY + COUNTVJ ST2««iTALLY; 
Dn«COUNT> Sll*LOC ST2I DS|»WDS; 
COMMENT THIS CODE UPDATED "COUNT"; 

OltwACCUMl Sll«Sl-3J DS««3 ChR; 
COMMENT THIS CODE PLACES "COyNT" IN "ACCUM" AS WELL; 

DIlaDI+COUNTVJ % POSfTjON "Ol" PaST CHARACTERS ALREADY 
% IN THE "ACCUMULATOR", IF ANY. 

sn»NCRv; DSisSTi chr; 

COMMENT MOVE CHARACTERS INTO "ACCUm"; 
FINlSl 

dii»ncr; stu«si; sii«loc sTi; dsi.wds; 
prtc402) » ♦list, label, or segment descriptor* 

comment reset "ncr" to location of next character to be scanned; 

END OF scan; 



02 
02 

02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 

02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 

02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 

02 
02 



03000 

03500 

04000 

04500 

05000 

05500 

06000 

06500 

07000 

07500 

06000 

00500 

09000 

09500 

0000 

0500 

1000 

1500 

2000 

2500 

3000 

3500 

4000 

4500 

5000 

5500 

6000 

6500 

7000 

7500 

8000 
8500 
9000 
9500 
20000 
20500 
21000 
21500 
22000 
22500 
23000 
23500 
24000 
24500 
25000 
25500 
26000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 

0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 



10009 
J 0009 

;ooo9 

10009 

toon 

lOOll 
t00l2 
>00l2 
10013 
tOOlJ 
t00l4 
tOOl* 
t00l4 
10014 
I00i4 
(0015 
10015 
1 0015 
10017 
iOOiS 
«00l9 
10019 
10019 
10020 
10021 
»0021 
10021 

looai 

10021 
10021 

10022 
10024 

>0025 
10025 
t0025 
)0026 
f0026 
»0027 
10027 
10027 
10028 
10028 
10029 
10029 
10029 
10029 
10029 



26500 T 
27000 T 



0009(003 
00091003 



2 
3 
3 
3 
2 
2 
I 
1 
2 
2 

1 
1 
1 
1 
2 
2 
3 
2 
1 
2 
3 
3 

2 
2 
3 
3 
3 
3 

I 



3 
3 
3 


2 
3 
3 
1 
1 
2 
2 
3 
3 
3 

2. 
2 



labfL in 



L< 



02127500 
02128000 



T 00091003112 
T 000910031>2 



SCAN (NCR. COUNT, AC CUMM],63»cOUNt.RFSULT. 

RFSULT, COUNT, 0, NCR. 0); 
IF NCR«tCR THEN 

BEGIN 

READACARDJ 

GO TO It % GO DIRECTLY TO L. DO NOT PASS GO, 
J! DO NOT COULrCT S200, 

FNDI 
END SCANNeRi 



02128500 
02129000 
02129500 
02130000 
02130500 
02135500 
02136000 
02136500 
02137000 



0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 
0009 



1003210 
1003411 
1003610 
1003712 

1003713 
1003610 
100381 1 
1003811 
1003611 



9 IS 39 LONG. NEXT SEG 



PRTC4035 « 



STRF. 
FDITLINE 



DEFINE WRITELINe: m IF SiNqlTOr THEN WRI TE( Ll NF» 1 5, LI N[ ♦ ]) 

ELSE WRlTEfLINECDBLJ.l5.LlN[*])#, 
pRiNTCARD ■ BEGIN 

EDITlINECLIN.FCR.L DIV a. L.r46l2JiMEDlUM. OMITTING)! 
IF NOHEADING THEN DATIMEJ WRITELINE* 
FND #> 
AM PROCEDURE ED I TlI NE ( LI Nf .NCR .R .L.SYMBOL.OM I T ) ; 



VALUE NCR. R.L. SYMBOL. OMITI 
BEGIN 

DI i» LINEI DS l» 16 Lit •• "I 
Si is NCRJ dS Ik 9 WDS} 
DS ic 8 LlT •• "> 
DS 19 WDS; X SEQUENCE NUMBER, 
DSULlT" ••I Sp.LOC SYMBOL* Sll.Sr + 6; 
DS«;2 CHRJ DSLLIT** "i 
Sl*LOC R* DS*4 DEO DS*LIT •*»''I 

Si*LOc L> ds»i dec; 

DS*6 LTl •• "I 

0MiT(Dl«»DI-12J DSI«8 LlT" OMIT**)* 

END EDiTLiNf I 



02181000 
02181250 
02182500 
02182750 
02183000 
02183250 
02183500 



02183 
02184 
02184 
02184 
02184 
02185 
02185 
02185 
02185 
02186 
02186 
02186 
02187 



750 
000 
250 
500 
750 
000 
250 
500 
750 
000 
250 
750 
000 



00031022211 
00031022211 
00031022211 
0003»0222ll 
0003I0222«1 
0003I0222«1 
0003I0222M 



00031 
0003J 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



022211 
022211 
022312 
022513 
022610 
022712 
022713 
022611 
022912 
023010 
O23OI 1 
023113 
023411 



COMMENT cOMP/kRE COMPaReS SEQUENCE NUMBERS OF TaPE AND CARD. IF 
TAPE IS SMALLER ThEN RfSUlT « elSE IF CARD iS SMALLER 
RESULT m 1 ELSE ReSUlT « 21 
REAL STREAM PROCEDURE COMPAREf T aPE.CARD ) I VALUE TAPE. CARD! 
PRT(404) « COMPARE 

BEGIN 

Si ?• TAPti DI I* card; 
IF fl sc i DC Then 

BEGIN 

Si I» Sl-8; 01 »• OI-81 TalUY «« II 

IF 8 sc « DC Then tally »• 2 

END! 
COMPARE Is TALLY 
END COMPARE* 



02187250 T 

02187500 T 

02187750 T 

.02188000 T 



02188250 
02188500 
02188750 
02189000 
02169250 
02189500 
02189750 
02190000 
02190250 



00031023411 
000310234*1 

0003*0234*1 
0003*0234*1 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



*0234ll 
10235*2 
(023513 
10236*0 
1023610 
*0237*2 
*0237*3 
10238(0 
*0236*0 



PROCEDURE OUTPUTSOURCE* 



02190500 T 000310239*2 



PRTt«05l « OUTPUTSOURCf 

BFGtN 

LABfL LCARO,LTAPEf AWAYI 



SWITCH SWI«UCARD»LCARD.nAPr»AWAY,LCARD.LTAPr> 
TF SFOTOG ThFN % RFSFQUFNC I NG. 

BFGIN 

IF ToTaLNO s -lO OR nEWBASf THtN 

p P /^ t ILI 

NEWBASE Is FALSEI GThi. TOTALNO I *BASENUM 

END 
ELSE GT1H« TOTALNOi. TOTALNO + AODVALUEI 
CMANGESFQfGTn»l-CR)l 

FNDI 

IF nfwtOg Then 

IF WRiTNEWfLlNiFCR) THEN WR I Tf(NeWTAPf» 10# L fNC » 1 ) I 
IF OMiTTiMG THEN IF NOT LiSTATOfi THEN GO AWAYI 
GO SWrLASTUSEDlJ 
LCARDI 

IF I.ISTER OH LlSTpToG THEN PRINTCARD; 

GO away; 

LTAPF* 

IF LISTER Then printcaroj 

% GO AWAYI 
AWAYI 

END OUTPUTSOllRCF> 



02190750 
02191000 
START OF SEGMENT 
02191250 
02191500 
02191750 
02192000 
02192250 
02192500 
02192750 
02193000 
02193250 
02193500 
02193750 
02194000 
02194250 
02194500 
02194750 
02195000 
02195250 
02195500 
02195750 
02196000 
02196250 
02196500 



T 00031023912 

T 00031023912 

1 OOlOtOOOOlO 

T OO1OIOOO6IO 

T OO1OIOOO7I3 

T OOlOlOOOBIO 

T 00101000913 

T OOlOiOOlOlO 

T 00101001112 

T 00l0|00j2l0 

T 00l0l00l4ll 

T 00l0l00l5l3 

T 00101001513 

T OO1OIOO16IO 

T 00l0l0023»2 

T 00101002513 

T OO1OIOO2713 

T 00101002810 

T 00101004512 

T OO1OIOO4513 

T 00101004610 

T 00101006210 

T 00l0l0062t0 

T 00101006210 

10 IS 63 LONGf NEXT SEG 3 



PROCEDURE BeGINPRiNTI 
PRT(406) M REGINPRiNT 

BEGIN 

STRFAM PROCEDURE STUfFcN»L)J VALUE Nl 



PRT(4073 B STUFF 



BEGIN 



ENDI 



Dll«Ll DS:=e LIT " "1 Sn*Ll DSf«l3 WDSl 
SilaLOC N; DSisS DEC) 



X106- 

XIO8" 
1106" 



START 



«108- 
«108- 
X108. 
«108' 



02196510 C 00031023912 



02196520 
02196530 

Of Segment 

02196540 
02196550 
02196560 
02196570 



C 0003)023912 

C 0003l0239t2 

i^4>***4i*4(** 11 

C OOllfOOOOlO 

C OOlllOOOOlO 

C 00111000210 

C 0011(000211 



STUFFfBEGlNSTACKCBSPOlNTJtLlNj; 
IF NOHEADING ThEN OATIMEI WRiTELlNEI 
END BEGINPRINTI 



X108« 02196580 C 

fl08- 02196590 C 

XlOB- 02196610 C 

11 IS 17 LONG. 



00111000211 

00111000411 

OOIIIOO16IO 

NEXT SEG 3 



PROCEDURE READACARDI 

COMMENT RFADACARD READS CARDS FROM EITHER THE CARD READER OR THE 
TAPE MEf»6lNG AS ReQUfSTED AND CREATING A NEW TaPE AND 
LISTING IF REQUESTED. READACARD AlSQ INSERTS A PERCENT 



02196750 
02197000 
02197250 
02197500 



T 00031023912 

T 00031023912 

T 00031023912 

T 00031023912 



Sign as an fnd of card sentinel in column 73 and sets 
fcr»ncr.l.cr»tlcr» and clcr; 

BEGIN 

PROCEDURE READTAPEI 



PRTC410) n READTAPE 

BEGIN 
LABEL ENDRFADTAPF» fOfTJ 

READ (Tape. lo. TsuFFr + DtEOFn; 

PRT(4ll) a fOFT 
PRT(4i2) 8 GO TO SOLVER 

LCRI<«MKABS(TBUFF[93)> 

GO TO ENDREADTAPEJ 

EOFTJ 

DEriNEARRAYt25]l»"NDlEND,"«; "F'* r I « ^3 « 5 J 1 
DEFlNEARRAYr341ia''9999" & ••9999" [ H 25 I 23] | 

TtCRU MKABS(DEFINFARRAY[34])| 

PUTSEQNO CDEFlNEARRAYtaSliTLCR-a)! 

turnonstoplighTCX"* tlcR-8); 
endReadtapfi 

end readtaPei 



02197750 
02198000 
02198250 
02198500 
START OF SEGMENT 



X105- 
!!105- 



START 



X1Q5- 
KlOS" 
j;t05- 
«105- 
Xl05» 
I!105» 
X105- 
XIOS- 
1S105- 



02201500 

02201510 

OF SEGMENT 

02201750 



T 0003«0239«2 

T 0003I0239«2 

T 00031023912 

T 00031023912 

T 00121000010 

C 00121000010 
*«*««**»*« 13 

P 00131000010 



13 IS 



02202000 P 001 

02202010 C 001 

02202020 C 001 

02202030 C 001 

02202040 C 001 

02202050 C 001 

02202060 C 001 

02202070 C 001 

022020B0 C 001 

02202250 T 001 

24 LONG. NEXT 



31000512 
31000712 
31000713 

3)oooeto 

3IOO1OIO 
31001211 
3<00l4t 1 
31001610 
31001713 
31OO18IO 
SEG 12 



PROCEDURE SfQCOMPARECTLCR.CLCR. LlB)> VALUE Ll8» BOOLEAN U I B ; 
PRT(4i3) « SEQCOMPARE 

Real tlcr. clcr i 

BEGIN 

MEDIUM»s''C •♦> % CARD READER, 

IF gtiibcomparectlcr,clcr)«o Then % tape has low sequence numb 
Begin 

lcRi.tlcr; lastuSediw^j 
medium«»''T ♦•; X Tape input, 

END 

ELSE BEGIN 

IF GTi # 1 Then % tape and card have same seq 
begin 

meoiuml.-'p "j x card patches tape, 
readtapei 

ENDI 
LCR«»CLCR; 
LASTUSE0«»»2i 

end; 

END OF SEOCOMPaREJ 



02202500 T 00121000010 



02202750 
02203000 
02203250 
02203500 
02203750 
02204000 
02204250 
02204500 
02204750 
02205000 
02205250 
02205500 
02208500 
02208750 
02209000 
02209250 
02209500 
02209750 



OO12I 
00121 
0012» 
00121 
00121 
00121 
0012? 
00121 
00121 
0012» 
00121 
00121 
00121 
00121 
00121 
00121 
00121 
00121 



000010 
000010 
OOOOIO 
OOOOtl 
000312 
000313 
000512 
000610 
000610 
000912 
000913 

ooioto 

OO1II2 

ooina 
ooins 

00l2t0 
001312 
001312 



LABfL CARDONLY. CARDIAST* TaPELaSTi EXIT. FIRSTTIME. 

FOF. USETHESWiTCHf 
COMPAR, TeSTVOID. XyTj 

SWITCH USESWlTCHlnCARDONLYiCARDLAST.TAPELAST.FlRSTTlMEl 
IF pRRORCOUNTipRRMAX ThEN ERR(6il); % FRR LiMiT EXCEEDED - STOp; 
USETHESwiTCHt 



02210000 T 00l2l00l5l2 



O221O25O 
O221O5OO 
02210750 
0221 1500 
02211750 



T 00121001512 

T 00121001512 

T 00121001512 

T 00121002010 

T 00121002312 



PRTC414) B fOF 



D0LLAR?T0r.«.FALSFI 

GO TO USESWiTCnrUASTUSEDll 

MOVF(l»INF0rLASTUSED,LINKR»LASTUSF:D,LlNKC]» 
DCFINEARRAY[DEFINEINDEX-2m 

LASTUSED Is LASTUSEO + {i 

NCR Is LCR«1 I 

GO TO XlTl 
FIRSTTIMEJ 

REAn(CARDtlO.CBUFFt*ni 

FCR|»NCRt«(UCR»«MKA8S(cBUFFt9J))''9J 

MeD?UM|»"C "J 

IF FXAMlNCFcR)#''t'' AND LlSTpR ThEN PRINTCARDI 

PUTSEQN0(!NFO[LASTSEflR0W»LASTSFQUENCEJ»UCR)l 

CARnNUMBER«»CONVnNF0tLASTSrOROW.LASTSEQUENCE-l]»5.8)| 

TURNONSTOPLK.HTC»i;«,tCR)> 

GO XITJ 
COMMENT WF HAVE JUST INlTfALfZED CARD INPUTI 
CARDONLY' 

REAn(CARD.10»C8UFF[*3)l 

LOR »» MKA8S(CBUFF[9]); GO E^lTj 
CARDLAST! 

REAn?CAR0»10tCBUFFr*l)rE0F3{ 



XlOfl" 



EOFJ 



CUCR »« MKABS(CBUFFC9])| 
GO COMPARJ 

DEF T NEARR A Yr 25 ]fa«ND> END, ••&••£•♦ tl ;43J53> 
DEFlNEARRAYr34] J»''9999»»&««9999"[i I 25 « 231 1 
CLCRtaMKA8S(DEriNEARRAYt3«l)J 
PUTSEONOf DEFINE ARRAY! 33 ]»CLcR-8)] 
TURNONSTOPLlGHTC^ffCLcR-a)! 
% 

60 rOMPAR; 

COMMENT This Releases the pRfVtous caRd fRom card Reader and 

SfTS up CLCRl 

tapelastj 

REAnTAPE* 

comment This Releases the prfVious card from tape and sets up tlcri 

COMPARt 

SEQCOMPAREf TI.CR.CLCR.FALSe)I 

exiti 

ncr «« fcr»« lcr - 9j 
comment sfts up ncr and fcrt 

IF FXAMlNCFCR)t»"S" THEN X $-CARnS DON^T COUNT, 

IF COMPARF(MKABS(lNFO[LASTSEOROWaASTSEOUENCEJ)»LCR)«l THEN 

R PT T N 

rLAG(6iO)l % SEQUENCE ERROR. 
SeOUENCEERROR(LiN)| 
ENOI 
IF LASTUSED.3 THEN 
BEGIN 

IF voiotape Then go usetheswitchi 
IF voidtcr#o Then 
IF compare(Lc«»voidTcRJ»o Then go usetheswitch* 

END) 

IF fxamin(fcR)-''S« then 

BEGIN 



02211800 T 


00 


12 


10023 


12 


02?i2000 T 


00 


12 


J0023 


13 


02212250 T 


00 


12 


10025 


13 


02212500 T 


00 


12 


10028 


11 


02212750 T 


00 


12 


10029 


13 


02213000 T 


00 


12 


10031 


12 


02213250 T 


00 


12 


10032 


10 


02213500 T 


00 


12 


10032 


11 


02213750 T 


00 


12 


10033 


12 


02214000 T 


00 


12 


1003 7 


12 


02214100 T 


00 


12 


10040 


11 


02214200 T 


00 


12 


100411 


13 


02214250 T 


00 


12 


10061 


12 


02214260 c 


00 


12 


10063 


2 


02214500 T 


00 


12 


r0067l 


2 


02214750 T 


00 


12 


100684 


10 


02215000 T 


00 


12 


100681 


•1 


02215250 T 


00 


12 


10068 


11 


02215500 T 


00 


12 


100691 


12 


02215750 T 


00] 


121 


00731 


2 


02216000 T 


00 


12 


100751 


3 


02216250 T 


00 


12 


100761 





02216500 T 


00] 


12 


100811 


2 


02216750 T 


00] 


12 


100831 


2 


02217000 T 


00] 


12 


100831 


3 


02217250 T 


00] 


12 


100841 





02217500 T 


00] 


121 


100861 





02217750 T 


00] 


121 


00S8I 


1 


02218000 T 


00] 


12 


100901 


I 


02218250 T 


00] 


121 


00921 





02218400 T 


OOj 


21 


00931 


3 


02218500 T 


00] 


L2I 


00931 


3 


02218750 T 


00] 


121 


00971 


2 


02219000 T 


00] 


121 


00971 


2 


02219250 T 


00] 


121 


00971 


2 


02219500 T 


00] 


121 


100971 


2 


02219750 T 


00] 


2) 


00971 


3 


02224250 T 


00] 


2< 


00971 


3 


02224500 T 


00] 


121 


00981 





02225000 T 


00] 


2) 


00991 


2 


02225250 T 


00] 


121 


OlOOi 





02225500 T 


00] 


[21 


loion 


3 


02225750 T 


00] 


21 


oion 


3 


02226000 T 


00] 


121 


01031 


3 


02226250 T 


00] 


121 


01081 





02226500 T 


00] 


21 


0i08l 


I 


02226750 T 


00] 


21 


01091 


2 


02227000 T 


00] 


12« 


OllOl 





02228050 T 


001 


21 


OliOl 





02228075 T 


001 


2« 


Ollll 


2 


02228100 T 


00] 


21 


oiin 


3 


02228125 T 


001 


21 


01131 


2 


02228150 T 


00] 


21 


01131 


3 


02228175 T 


00] 


21 


01161 


1 


02228250 T 


001 


21 


01161 


1 


02228500 T 


00] 


21 


0118I 


I 



COMMENT 



IF 



IF LIS 
NCR'bN 
DONT F 
GO USE 

end; 

FXAMIN(F 
IF DOLLAR 
BEGIN 
OUTPUT 
NCR»«N 
DOLLAR 
END J 
VOIDING 
VOlDCRitO 
IF COM 

ELSE 
VOIOTAPE 
VOfDTCRi* 
IF COM 

TESTVOIDI IF L 

CARnCOUNTl» 

IF D0LLAR2T 

PUTSEQNOf IN 

CARDNU 



TPTOG OR PRiNTdOLLARtOG THEN PRlNTCARpi 

CR+32768; DOLLaRCAROI 

ORgeT THAT NCR IS NOT WORD MOOE» BUT CHAR, MODE POINTER* 

THESWiTCH' 

CR)*" " THEN 
?T0gIbEXAMIN(FCR*32768)«»'$" THEN 

SOURCEI 

cr + 655361 % scan past •• s" (character mode), 
cardi 



IF 

IF 



IF 

IF 



OUTpUTSOURC 
IF OMITTING 



THEN GO USeThESWtTCHJ 

Then 

PARECLCR»VOlDCR)>0 ThEN VO I DCRt *V0 I DPLACE » «0 

GO usetheswitchi 

Then go testvqidj 
Then 

pare(Lcr.voidtcR)>o then voidtcr«»voidtplace«»o else 
astused«3 Then go usetheswitchi 
caRdcount+i; 

og then go usethcsw i tchj 
fotla5tseqr0w,lastsequence)»lcr)» 

MBER«alF SeqTOG THEN TOTALNO+ADDV ALUE ELSE ft08. 

CONVf INF0[LASTSEQR0WiLASTSEQUENCE-l].5*a)J «l08' 
E» 

Then go useTheSwitchi 



% 

XITI 



TURnONSTOPLIGHT("X*.LCR)» 
END READACARDI 



12 IS 



02228750 T 
022?9000 T 
02229250 T 
02229500 T 
02229750 T 

02230000 T 
02230100 T 
02230250 T 
02230500 T 
02230750 T 
02231000 T 
02231250 T 
02231500 T 
02231750 T 
02232000 T 
02232250 T 
02232500 T 
02233000 T 
02233500 T 
02234000 T 
02234500 T 
02234600 T 
02234750 T 
02234800 C 
02234900 C 
02235000 T 
02235250 T 
02235500 T 
02235750 T 
02237750 T 
02238000 T 
183 LONG. 



001210 
001210 
001210 
001210 
00l2«0 

001210 
001210 
001210 
00l2«0 
001210 
001210 
001210 
001210 
001210 
001210 
001210 
001210 
001210 
001210 
001210 
001210 
00l2i0 
00l2t0 
001210 
001210 
001210 
001210 
001210 
00l2t0 
001210 
001210 
NEXT SE6 



U9I2 
13611 
13610 
13610 
14010 

14010 
14113 
U5I2 
14513 
14610 
14712 
14713 
14713 
14912 

isoto 

15312 
15410 
15513 
15611 
16011 
16512 
166U 
16713 
I69i3 
17210 
17513 
17610 
17713 
17713 
17811 
17912 



REAL PROCEDURE CONVERT; 
PRTt4i5) a CONVERT 



STACKfF+3) a T 
STACKfF+4) a N 



BEGIN REAL T; INTEGER Nl 



TlO*Qt THI* 

T* CONV(ACCUM[U.TCOUNT»N*(COUNT-TCOUNT)MOD 8)1 
FOR N* TCOUNT+N STEP 8 UNTIL COUNT- I DO 

IF DPTOG THEN 

D p p I |U 

d6uBLE(THI»TL0»i0OO0O00O,0,O.x.CONV(ACCUM[1],N,8),O.+»*» 
TH!»TL0)| 

t*thm 

END ELSE 

T* TX100000000+ C0NVCACCUMrn»N»8)| 

conveRt*t; 

end; 



02248000 T 0003»0239I2 

02249000 T 0003«0239|2 
START Of SEGMENT ***♦♦•**•♦ 14 



14 IS 



02250000 T 0014 

02251000 T 0014 

02252000 T 0014 

02253000 T 0014 

02254000 T 0014 

02255000 T 00l4 

02256000 T OOlA 

02257000 T 0014 

02258000 T 00i4 

02259000 T 0014 

02260000 T 0014 

02261000 T 0014 

28 LONG. NEXT 



lOOOOlO 
lOOOOtl 
1000512 
lOOiOlO 
lOOiOtO 
lOOlOtl 
1001512 
1001610 
1001611 
1001611 
1002410 
1002411 
SCO 3 



PRTM16) B rfTTCH 



RPAL STREAM PROCEDURE FeTCh(F)I VALUE Fl 

BEGtN SiI.FJ SllsSl-8) DfJ.LOC FETCH* OSl.WDS END FETCH; 



02?62000 T 00031023912 
02263000 T 00031023912 



PROCEDURE DUWPINFOI 
PRT(4l7) « nUMPINFO 

BEGIN 

ARRAY ATOIMH INTEGER JFOENtDWAJ 

STACK(F*2) a A 
STACKfF+3) « JEDFN 
STACKfF+4) « OWA 

STRfAM PROCEDURE OC TAUWORoSf S ,D, N) » VALUE N> 
PRTf420) • OCTALWOROS 

BEGIN 

siibS; Dn.ni 

N(?(8fDSl«3 RESET! 3flF SB THEN DSiaii SET ELSE 

0SI»1 RESeTi skip 1 Sb))J DSlal LIT •♦ ••)I0S««2 LIT" •♦ ) ; 
END OF OCTALWOROSj 



02264000 T 00031024210 

02264050 T 00O3»0242»0 
02264100 T 00031024210 
START OF SEGMENT ♦♦♦♦»*•♦♦♦ 15 



02264400 T O0l5«O00l<3 

02264450 T 00l5«000ll3 

02264500 T 00l5l0003«2 

02264550 T 0015J0003I3 

02264600 T 00l5«0006ll 

02264650 T 00lSt0009l2 



STRfAM procedure ALPHAWORdS( S »D ,N ) ; VALUE Kl 



PRT(42n B alphawords 



BEGIN 

Sl»«S» DitwDI 

NC2C4CDSUt LIT" ♦•; DSmi CHR)* DSl*i LIT" "); DSI«? LIT" »• ) I 

END OF ALPHAWORDS; 



02264700 T 00151000912 



02264750 
02264800 
02264850 
02264900 



T 0015)000912 

T 00l5«00l0«0 

T OOiSlOOlOll 

T 00l5«00l4ll 



IF nohfading Then daTime»wRite(linecdbl].<//"elbat">); 

PRT(422) » ♦FORMAT DESCRIPTOR* 

FOR JFDENlaO STEP 6 UNTIL 7l DO 

BEGIN 

BLANKETf 14,A)> OCTALWORDS( fLBAT[ JEDEN] . A » 6) I 

WRlTECLlNEfDBLJ»15.Ar*])J 

ENDI 
BLAKiKET(14tA)> 0CTALW0RDS( ELBATf 72] t At 4) J 
WRlTE(LlNEfDBL)»l5»AC*J)l 
FOR JEDENI-O STEP I UNTIL NeXTinFO DIV 256 DO 

BEGIN 

WRlTEfLINEtDBLl.<//"|NFOt". I 2» "• * J">. JEDEN ) I 
PRT(4?3) » *F0RMAT descriptor* 

PRT(424) e *LlST. LABEL, OR SEGMENT DESCRIPTOR* 

FOR DWA««0 STEP 6 UNjlL 25l DO 

R P C T Kl 

BLANKET (14# A) { ALPHAWoRDSC I NFOC JEDENt DWA] . A, 6 ) I 

WRlTE(LlNE»15.Ar*])* 

BlANKET(14»A); oCTALWoROS(INFO[JEDEN.OWAJiA,6)» 



16 IS 



02264950 T 00l5«00l4ll 
6 LONG» NEXT SEG 15 



02265000 
02265050 
02265100 
02265150 
02265200 
02265250 
02265300 
02265350 
02265400 
02265450 



T 00l5«00l9t2 

T 00151002010 

T 00151002010 

T 00151002312 

T 0015«0027I2 

T 00l5t0029f3 

T 0015(003211 

T 00151003611 

T 0015(004112 

T 0015(004112 



17 IS 



8 LONG. NEXT SEG 15 



02265500 
02265550 
02265600 
02265650 
02265700 



T 00l5l0048t0 

T 0015(004912 

T 001510049(2 

T 00l5(0052«l 

T 0015(005712 



PND 



write:(UINE[Dbl].15»A[*i); 

ZKDi 
BLANKE:T(14»A)I ALPHAW0RDS(TNF0[JEDEN,?52]»A»a)l 
WRlTEaiNE,l5.AC*])l 

BLANKET(lft»A)l Oc TALwOrdS( I NFOt JE0EN,252 ] , A .4 ) J 
WRlTEaiNErnBL]»15»Ar»])l 

ENn« 
Of dumPtnfoj 



02265750 
02265600 
02265850 
02265900 
02265950 
02266000 
02266050 
02266100 



0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 



1006011 
1006512 
1006712 
1007112 
1007612 
1007912 
1006312 

1006313 



15 IS 88 LONG. NEXT SEG 



DEFINE SKAN * BEGIN 

rOUNTl*RESULTI»ACcUM[i]l»0) 

scanneRi 

Ql»ACCUM[ll; 
END #) 

COMMENT OOLLARcARd HANDLES ThF COMPILER CONTROL CARDS. 
ALL COMPILER- AND USfR-DEFiNeD OPTIONS ARE KEPT 
IN The ARRAY "OPTIONS". 
EACH OPTION HAS A TWO-WORD ENTRY! 



WORD 



CONTAINS 

ENTRY FROM ACCUMtm OOXZZZZ* WHERE 

X IS THE SIZE OF THE ID AND 

ZZZZZ IS THE FIRST FIVE CHARS OF THE 10. 

PUSh-DOWN, 47-BlT STACK CONTAINING THE 

HISTORY Of The settings of This option. 



I 



in "findoption". all compileR-defi 

LOCATED BASED UPON A UnIQUf NUMBER 
FOR ALL USER-DEFINED OPTIONS. A SE 
INITIATED USING "USEROPINXh aS ThE 
"OPTIONS" ARRAY. IF THE NUmBER OF 
IS CHANGED. THEN "USeRqPINX" MUST 
THE NUMBER OF USER DEFINED OPTIONS 
CHANGED BY CHANGING THE DEFINE "OP 
THE VARIABLE "OPTiONwORD" CONTAINS 
SETTING OF ALL OF THF COMPtLER-DEF 
OPTION. 



NED OPTIONS aRE USUALLY 

ASSIGNED TO EACH. 
QUENTIAL TABLE SEARCH IS 

INITIAL INDEX INTO THE 
COMPILER-DEFINED OPTIONS 
BE ACCORDINGLY CHANGED, 

ALLOWED CAN BE 
ARSIZE", 

THE CURRENT TRUE OR FALSE 
TNED OPTIONS. ONE BIT PER 



BOOLEAN PROCEDURE F I NDOPT 1 0N( B I T ) > VALUE BITI INTEGER BiTl 
PRT(4?5) a FINDOPTlON 

BEGIN 

LABEL FOUNDl 



STACKrF+3) 



ID 



REAL id; 

0PINXI.2XB1T-4I 

WHILE IOl»0PTl0NS[OPlNXJisOPlNX*23#O DO 

TF o»io Then go found* 
opttOns[Opinx]i«oi I New user-dffined 
found I 

IF OPTNX +1>0PARSIZE THEN FLAGf602) ELSE 
FlNn0PTlONt.B0OLEAN(0PTlONSr0PlNX+l3)l 



START 



OPTION, 

% TOO MANY USER 



XI 

OPTIONS 



03* 



02277000 T 000310242*0 

02278000 T 00031024210 

02279000 T 000310242*0 

02280000 T 00031024210 

02261000 T 0003*0242*0 

02282000 T 0003*0242*0 

02283000 T 000310242*0 

02284000 T 0003*0242*0 

02285000 T 0003*0242*0 

02286000 T 000310242*0 

02287000 T 0003*0242*0 

02288000 T 0003*0242*0 

02289000 T 0003*0242*0 

02290000 T 0003*0242*0 

02291000 T 0003*0242*0 

02292000 T 0003*0242*0 

02293000 T 0003*0242*0 

02294000 T 0003*0242*0 

02295000 T 0003*0242*0 

02296000 T 0003*0242*0 

02297000 T 0003*0242*0 

02298000 T 0003*0242*0 

02299000 T 0003*0242*0 

02300000 T 0003*0242*0 

02301000 T 0003*0242*0 

02302000 T 0003*0242*0 

02303000 T 0003*0242*0 

02304000 T 0003*0242*0 

02305000 T 0003*0242*0 

02306000 T 000310242*0 

02307000 T 0003*0242*0 



02308000 

02309000 

OF SEGMENT 

02310000 



T 0003*0242*0 
T 0003*0242*0 

««4i*4t**«** 18 

T 0018*0000*0 



02311000 T 
02312000 T 
02313000 T 
02314000 T 
02315000 P 
02316000 P 
02317000 T 



0016*0000*0 
0016*000113 
0016*0005*2 
0016*0006*1 
0016*0006*0 
001810008*0 
0018*0010*1 



END FlNDOPTjON) 



02318000 T 00181001211 
18 IS 15 LONG* NEXT SEG 3 



procedure dollarcard? 
begtn 

STRf-AM PROCEDURE ReSTOReSfQNUMc LCR. I NpO ) ; VALUE LCR> 



PRTM?6) « RESTORESEONUM 



02319000 T 00031024210 

02320000 T 0003l0242«0 

02320200 T 00031024210 

START OF SEGMENT **♦•♦•♦*•♦ 19 



BEGIN 

DpetCRJ SpmlNlFOl DSUWDSj 

ENDI 



02320400 T 
02320600 T 
02320800 T 



0019I0Q00I0 
00191000010 
00191000011 



PRT(427) 8 SWITCHIT 



PROCEDURE SWITCHIT(XBIT)I VALUE XBlTI INTEGER XBITI 



02321000 T 0019I000H2 



STACK(F+2) m B 
STACKfr+3) « T 

STACKrE+ft) » SAVEINX 



XMODEOl 



XMODEl I 



PRT(430) » DYNAMIC DIALS 

XM0nE2t 



XM0DE3» 



XM0DE4J 



ALONG! 



BEGIN 
BOOLEAN 



B,TI 



START 



INTEGER SaVEINXJ 

LABEL XM0DE0»XM0DEl»XM0DEp.XM0DE3»XM0DE4»AL0NG> 

SWITCH SWl»XM0DE0.XM0DEl«XM0DE2tXM0DE3»XM0DE4l 

SETTlNG»«EINDOPTlON(XBlT)* SKANI 

GO SWtXMODE + n» 

% FIRST OPTION ON CARD. BUT NOT SET. RESET. OR POP, 

OPTlONWORDl«sBOOLEANfO)l 

FOR SAVElNXlal STfP ? UNTjL OPARSiZE 00 OPT lONS[ SAVE INX ] I «0J 

XMODE»«LASTUSED»*ll % CARD INPUT ONLY. 

% NOT FIRST OPTION AND NOT BEING SET, RESET, OR POPPED. 

OPT IONS [OP I NX*i]t .REAL (TRUE); 

IF XBIT<USEROPINX THEN OPT I ONWORD I "OPT I ONWORD i TRUEtXBlTli]! 

GO ALONG! 

% RESET, 

OPTIONSCOPINX + IJI.REALCFALSE & SETT I NG 1 1 « 2 » 46] ) I 

IF XBIT<USE''OPlNX THpN OPT f ONWORd » "OPT lONWORO & FALSE t XB I T » 11 I 

GO along; 

X SET, 

SaVEINXI«OPINX; % REMEMBER OPTION WE ARE SETTING, 

bibif Ob^uoooo" then boolfxp else true; 

OPTlONSrSAVEINX + l3l«REALCB & SETT I NG[ 1 1 46] ) ; 

IF XBIT<USER0PINX ThfN OPT y ONWORD « -OPT I ONWORO S B fXBlTtl]; 

GO along; 

% POP, 

OPTlONS[OPlNX+i3l«REALCB««SETTlNG,rH46]); 

IF XBIT<USEROPlNX THFN OPTi ONWORD l»OPT I ONWORO i B tXBlTll3; 

END SWjTCHlT; 



02322000 

02323000 

OF SEGMENT 



T 0019;0001»2 
T 00191000112 

4i«i«iic***««4> 20 



02324000 T 0020t0000<0 



02325000 
02326000 
02327000 
02328000 
02329000 
02330000 
02331000 
02332000 
02333000 
02334000 
02335000 



20 IS 



02336000 T 
02337000 T 
02338000 T 
02339000 T 
02340000 T 
02341000 T 
02342000 T 
02343000 T 
02352000 T 
02353000 T 
02354000 T 
02355000 T 
02356000 T 
02357000 T 
02358000 T 
02359000 T 
59 LONG. 



00201000010 
00201000010 
00201000513 
00201001112 
00201001313 
0020t00l4i0 
00201001411 
00201001913 
00201002011 
00201002112 
00201002211 

00201002611 
00201002712 
00201002810 
00201003011 

00201003411 
00201003512 
00201003610 
00201003611 
00201003913 
00201004211 
00201004611 
00201004810 
00201004810 
0020«0051 12 
00201005512 
00201005610 
NEXT SEG 19 



LABfL FXlT.AGAlN.SKANAGAIN.LENGTHl»LENGTH?tLENGTH3.LE:NGTH4. 

LENGTH5.LENGTH6.LENfjH7»LFNGTH8,LENGTH9, 

WHATISIT, 

CAROOPTIO^»MERGEOPTIO^|; 
SWITCH 0PTlONL.E:NGTH»»LEN6THl»WHATlSlT,LENGTH3»LENGTH4fUENGTH5. 

LENGTH6»LENGTh7»WHATiSIT,l,ENGTh9»WhATISIT| 

INTfGER sresuut.scountj 

STACKfF*2) a SRESUUT 
STACKfF+3) a SCOUNT 

ALPhA voidRangei 

STACKfF*4) s VO?dRANGE 

dollartog»«true; 

MOVF( lO.ACCUMtOj.DEFlNEARRAYtO])! X SAVE INFORMATION FOR 

SCOUNTI.COUNTJ SRESUUT » .RpSULT » % "TABLE'' TO RESUME SCAN, 

XMODE«»0» 

PUTsEQN0(INFO[LASTSEQROW»LASTSE0UENCE]»L.CR)1 

TURNONSrOPLlGHT(''l!''.LCR)J 

skanaqatni 
skan; 

AGAIN* 

GO OPTlONLENGTHrMlN(COUNT»10)]J 

lengthu 

IF « "ixoooo" Then go exit? 
IF w "isoooo" Then 

BEGIN SWITCHITcPRiNTdOLUARBIT)) GO AGAIN ENDJ 

IF Q » «i,oooo" Then go Skanagatn; 

GO WHATlSlTl 
LENGTH2I % NO OPTIONS Of ThiS LeNGTh ARE CURRENTLY IMPLEMENTED. 
LENGTH3I 

IF » "SSETOO" Then 

BEGIN XM0de««3? GO SkANAGAtN Z^Dl 

IF Q » "SPOPOO" Then 

RFGIN XM0DE««4» GO SkANAGAtN END> 

IF Q ■ "SNEWOO** Then 

BEGIN 

SWf TCHITCNEWBIT); 

IF Q a "atapeO" Then go skanagaini 

GO AGAINI 
END» 

IF » "SSEQOO" Then 

BEGIN SWITCHIT(SEOBIT); go again END! 

IF » "SPRTOO" Then 

BEGIN SWlTCHlT(PRT8IT)l GO AGAIN END* 

IF Q ■ ••3MCP00'' Then 

Begin switchiT(Mcpbit)» go again enoi 

60 WHATiSiTi 

length* I 

IF Q « "4LIST0" Then 

BEGIN 
SWITCHIT(LISTBIT)| 

GO AGAINI 
END I 
IF « ••4V0ID0" THEN 
BEGIN 

IF xmode»o Then 

BEGIN 
6ETV0lD(V0lDRANGE»NCR.LCR»lNF0[LASTSEQR0WfLASTSE0UENCFni 



02360000 
02361000 
02362000 
02363000 
02364000 
02365000 
02365100 



00 
00 
00 
00 
00 
00 
00 



02365200 T 00 



02366000 
02366100 
02366200 
02367000 
0236B000 
02369000 
02370000 
02371000 
02372000 
02373000 
02374000 
02375000 
02376000 
02377000 
02378000 
02379000 
02380000 
02381000 
02382000 
02383000 
02384000 
02385000 
02386000 
02387000 
02388000 
02389000 
02390000 
02391000 
02392000 
02393000 
02394000 
02395000 
02396000 
02397000 
02398000 
02399000 
02400000 
02401000 
02402000 
02404000 
02405000 
02406000 
02407000 
02408000 
02409000 
02410000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



910001 >2 
9»0001«2 
9I0001>2 
91000112 
91000112 
91000313 
91000912 



91000912 



91 
91 
9< 
9t 
9t 
91 
9t 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
9t 
91 
91 
9t 
91 
91 
91 
91 
91 
91 
91 
91 
91 
91 
9} 
91 
91 
91 
9i 
91 
91 
9t 
9t 
91 



000912 
OOiOll 
00l2»l 
001410 
001411 
001611 
001713 
OOlBtO 
002113 
002210 
002610 
002712 
002810 
002912 
003312 
003410 
003610 
003610 
003610 
003611 
004010 
00401 1 
004410 
00441 1 
0045»2 
004610 
004712 

oosoto 

005010 
005011 
005410 
005411 
005810 
00581 1 
006210 
006211 
006312 
006313 
0064<0 
0065«2 
006712 
006712 
006713 
006810 
006912 
006913 



ir Q 



IF 
IF 



IF 



IF voiDCR-0 Then voidcr««mkabs{Voidplace) else 

IF COMPAREf MKABS(V0IDRANGE)»V0IDCR)#1 THEN GO To EXfTI 

M0VEC1»V0I0RANGE»V0IDPLACE)I 

GO EXlTj 

ENDI 
SWlTCHlT(VOIDBlT); 
GO AGAlNI 
ENDI 

» "^XRfFOh Then begin SWITcHIT(XREFBIT)I if BOOLEANfXMOOE) THEN 
DEFINING l» BOOlEAN(REAL(DFFINING)iin «a7li])» XlOB- 

GO AGAtN EN0> Xi08* 

« •'abenoo'* Then begin swiTchit(bendbit)i go again enoi xiob- 
m "aomitO" Then 

Then begin printcardi flag(605)i endi 

go again End; 



BEGIN IF not D0LLAR2T0G 
SWITCHIT(0MITBIT)I 
M ^ACARDO" THEN 
BEGIN 

OI.'«ATaPE0"» % FAKE oUT 
SWITCHIT(MERGEBIT)| 

IF xMOoE^? Then meRgftog»«not 

0PTl0NS[2xMERGEBlT-l3l« 

REALfSETTiNG i f MERGeTOG ) t 47 » l] ) ; 

meRqetog Them go mfrgeoptioni 



SWiTCHlT. 

meRgetogj 
% 
% 



CARD IS 
INVERSE 



OF MERGE. 



IF 
CARDOPTiONt 

LASTUSEDJ.li 
GO AGAINI 

FNDJ 

IF Q » "ATAPEO" Then 

BEGIN 

SWITCHIT{MeRGEBIT)J 
IF NOT MeRgETOg ThEN 

meRgeoptioni 

LASTUSeOI«?» % NEXT 

IF MAXTLCR»o Then 
Begin 
Integer stream procedure fejcfiT)! value n 

PRTC431) ■ *SEGMENT DESCRIPTOR* 



GO CARDOPTIONI 
CARD IS READ FROM READER. 



02A10500 
02411000 
02412000 
02413000 
02414000 
02415000 
02418000 
02419000 
02419100 
02419110 
02419120 
02419200 
02420000 
02421000 
02421100 
02422000 
02423000 
02424000 
02425000 
02425500 
02426000 
02427000 
02428000 
02429000 
02430000 
02431000 
02432000 
02433000 
02434000 
02435000 
02436000 
02437000 
02438000 
02439000 
02440000 
02441000 



T 00191007210 

T 00191007512 

T 00191008011 

T 0019I00B1I3 

T 00191008210 

T 00l9>00e2>0 

T 0Ol9l00B3>2 

T 00l9t00B3t3 

C 00191008313 

C 00191008513 

C 00191006610 

C 00191009010 

T 00191009410 

T 00191009411 

T 00191011410 

T 00191011512 

T O019I0U6I0 

T 00191011611 

T 00191011712 

T 00l9»0ll8l0 

T 00191012113 

T 00191012312 

T 00191012513 

T 00191012712 

T 00191012712 

T 00191012713 

T 00191013112 

T 00j9l0l31»2 

T 00191013113 

T 00191013210 

T 00191013312 

T 00191013410 

T 00191013512 

T 00191013513 

T 00191013611 

T 00191013712 



PRT(43?) » FEJ 



START OF SEGMENT *♦♦♦*****♦ 21 



BEGIN 

SIlsFI DI«»LOC T; 

SII«T1 Sll.Si-161 

END FEJ; 



DSi»WDSi 
DH*LOC FEJJ 



OSt«»WDSl 



02442000 
02443000 
02444000 
02445000 



T 00211000010 

T 00211000010 

T 00211000011 

T 00211000113 



PRT(433) « FIX 



STREAM PROCEDURE FiXCFtT)? VALUE Tl 



BEGIN 

SII«F* Sll»Si-24l 
DPaTl 0I««Dl*47| 
2<DII«DI*48)J DSl< 
END FIXI 



Dli»LOC T} DSivWOS) 
SKIP 4 DBI DSi»2 RESET; 
■8 LIT^OOIOI + O*"! 



02446000 T 00211000211 



02447000 
02448000 
02449000 
02450000 
02451000 



T 00211000211 

T 0021I0003»2 

T 00211000410 

T 00211000512 

T 002H0007I2 



IF GTllaFEJ(TAPF»0)«lO THEN 

BFGIN 

RFWlND(TAPr)l FIX(TAPE»0)| 

END» 
MAXTLCRl"GTUTLcRl»9 + MKABS(TBUFFrO]); 
READrTAPE.10,TBUFFC*])» % INITIALIZE TAPE INPUT, 
LASTUSE0I«2I 
END) 
PRTC434) • ♦SEGMFNT DESCRIPTOR* 

CO AGAlNI 
END? 

IF Q « "flPAGEO" Then 

BEGIN 

IF LISTER THEN WR I TEf L I NE t PAGE] ) I 

GO skanagaini 

ENOI 
IF » "AINFOO" THEN 

BEGIN DUMPINFOJ GO SkANAGAjN END> 

IF » ♦♦4SEGS0" Then 

BEGIN SWITCH1T(SEGSBtT)» 60 AGAIN ENDI 

IF • "^NESTO" Then 

BEGIN SWlTCHlT(NESTBtT)l GO AGAIN FNDJ 

IF • "ADECKO" Then 

BEGIN SWlTCHlT(DECKBTT)i 60 AGAIN ENDJ 
GO WHATlSlTl 

lemgThsi 

if « "sreset'^ then 

BE6IN XH0DEt«2f GO SkAnAGAIN END} 

IF » "SLisTP" Then 

BEGIN SWITCHIT(LISTPBIT)I GO AGAIN? END) 
IF Q s "BVOIDT" THEN 
BEGIN 

IF xmodewo Then 

BEGIN 

GETV0lD(V0lDRAN6E»NCR,LcR»INF0tLASTSE0R0W,UASTSEQUENCF3)» 
IF V0l0TCR*0 ThfN VOI dTcRUMKABS( VOl DTPLACE > ELSE 

IF COMPAREf MKABS(VOiDRANGE)»VOI0TCR)#i THEN GO TO EXIT; 

MOVEf i»voidrange»voidtplace)i 

GO EXiTi 

ENDI 
SWITCHIT(V0IDTBIT)J 
GO AGAIN? 

ENDI 

IF « "SCHFCK" Then 

BEGIN $WITCH1T(CHECKbIT)I GO AGAIN ENQI 

IF a . "SLiMiT" Then 

BEGIN 
SKANI 

IF result#3 Then % shoulo be number, 

BEGIN rLAG(600)l GO AGAIN ENDI 
ERRMAXl»CONV(ACCUMin»Of ACCUMtl].tl2l6])l 
60 SKANAGAINI 

END! 

IF » "spunch" Then 

BEGIN SWITCHIT(PUNCH8IT)I gO AGAINJ END? 

IF ■ "SPURGE" Then 



21 IS 



02452000 T 


0021 


t0007t 


02453000 T 


0021 


lOOlOl 


02454000 T 


0021 


lOOllI 


02455000 T 


0021 


100141 


02456000 T 


0021 


100141 


0245^000 T 


0021 


100171 


02458000 T 


0021 


100221 


02459000 T 


0021 


100221 


24 LONG. 


NEXT 


SE6 


02460000 T 


0019 


101391 


02461000 T 


0019 


J0139I 


02462000 T 


0019 


101391 


02463000 T 


0019 


101401 


02464000 T 


0019 


101401 


02465000 T 


0019 


101451 


02466000 T 


0019 


J0u7t 


02467000 T 


0019 


101471 


02468000 T 


0019 


101471 


02469000 T 


0019 


101511 


02470000 T 


0019 


!015H 


02471000 T 


0019 


101551 


02472000 T 


0019 


101551 


02473000 T 


0019 


101591 


02474000 T 


0019 


101591 


02475000 T 


0019 


101631 


02476000 T 


0019 


101631 


02477000 T 


0019 


101641 


02478000 T 


0019 


101641 


02479000 T 


0019 


101681 


02480000 T 


0019 


101681 


02481000 T 


0019 


101721 


02482000 T 


0019 


(01721 


02483000 T 


0019 


101731 


02484000 T 


0019 


101741 


02485000 T 


00191 


101741 


02485500 T 


00191 


01771 


02486000 T 


00191 


tOiSOl 


02487000 T 


0019 


101851 


02488000 T 


00l9 


101861 


02489000 T 


0019 


(01871 


02490000 T 


0019 


01871 


02A93000 T 


00191 


01881 


02494000 T 


0019 


(01881 


02495000 T 


00191 


toisei 


02496000 T 


00191 


Ql89f 


02497000 T 


00191 


0i92l 


02498000 T 


00191 


0l92« 


02499000 T 


0019 


(01931 


02500000 T 


00191 


0l97» 


02501000 T 


00191 


01971 


02502000 T 


00191 


02011 


02503000 T 


00191 


02041 


02504000 T 


00191 


02041 


02505000 T 


00194 


02041 


02506000 T 


00191 


02051 


02507000 T 


00191 


02091 



2 
1 
2 



3 

I 

19 
2 
3 
3 

1 
3 
2 
2 
3 
2 
3 
2 
3 
2 
3 
2 
3 
10 

I 

I 


1 

2 

1 

■2 

3 

I 
2 

2 



1 

1 

2 



1 
>2 

2 

3 
12 



1 

1 

3 

2 



BFGIN SWITCHIT{PURGEBIT)> fiO AGAlNj ENDI 

IF * "SLiSTA" Then 

BFGIN 

SWITCHIT(LISTABIT)> 
GO AGAIN] 

IF » "ssTuFF" Then 

BEGIN SWITCHIT(STUFFBIT)» GO AGAIN; ENOJ 
GO WHATlSlTl 
LENgTh6| 

IF © « ••6SE0ER'' Then 

BEGIN SWITCHIT(SEOERRBiT)I GO AGAIN END» 

IF « "esiNGU** Then 

BEGIN 5WITCHIT(SINGLBIT)> GO AGAIN EnOI 
IF « ••6SE0XE" THEN 
BEGIN 

SE0XE0T0GIbXM00E#2 AnO XMODEM 4 OR SEQXEQTOGIXNEVER RESET, 
IF BUILDLINE, [45113 THEN BUILDLI NE I »TRUE » 

GO skanagain; 

ENDJ 
IF « '♦6DEBU6'' THEN 
BEGIN 

SWITCHIT(DFBUGBIT); 
IF OEBUGTOG THEN 

IF W0PtO]«O THEN 

BEGIN 

FILL WOP[*] WITH 
•♦LlTCf" "» 



"OPOC^^OESC. 



n* 

21. 
39, 
69» 
132. 
261^ 
533» 
5B2# 



•♦NOP 

"gfQ 

"RTN 
"NfQ 
"SND 
"DUP 
"LEO 
"SSP 
l003»**ScI 
1023»ln23# 



12» 

22. 

40. 

71, 
133, 
278, 
534. 
790» 



"PRT 
"BBC 
"COC 
•♦XlT 
"XCH 
"LBC 
"BBW 
"LBU 



1004»''SAN 



13« 

24, 
46, 
72. 

134« 



"DEL •• 

•♦INX •• 

"SUB " 

"MKS •♦ 

•♦CHS •♦ 



548. •♦ISN •♦ 
B06» •♦LFU ♦• 
1019»^^SCS •• 



023,1023»1023»1023»1023 



16. 
35. 

64» 
128» 



•♦ADD ♦♦ 
♦♦LOR ♦♦ 

•♦MUL ♦♦ 



18» 
37. 
67» 



"PRL 
"GTR 

•♦LNO 



19, ♦♦LNG 
38. •♦BFC 
68. '♦STD 



"DIV •♦.130» •♦COM ♦♦.131, '♦LQV 



167» '♦RTS ♦♦.168. •♦CDC ".260. "LOO 



294»"LFC "»322»"ZP1 "i384. "lOV ".532. "ISO "» 



549» •♦LSS ♦♦.550* 
896» "RDV ". 



"BFW -.581, ♦♦EOL 



1 023. 1023, 1023. 1 023* 1023 » 1023, 1023 » 



1023»ln 23, 1023* 1023»1023» 10 23*1023. 1023* 1023* 1023»1023, 10231 



0." 



O.Oi 



FILL C0Pt*3 WITH % CHARACTER MODE MNEMONICS 




•♦. 4,^^R0A "» 5, "TRW ",6,»^SE0 ", 7.'«T0A 

•♦.l5."SR0 "«18,"SES ",20,'^TEO ♦♦,21. •♦TN 

•♦.25."SFS ".ze.^-TEL ",29,'^TLS ♦♦,30, •♦TAN 

•♦,34, "SEC ".35,^^CRF •♦,36,^»JNC 

".ftlt^^ENS ",42."BNS •♦.43»"RSA 

"»48»"CEQ "»49»"CNE 



"#50.«^CEG 



•♦,37,^^JFC " 
♦♦»44."SCA " 
"•51,"CGR " 



•,55»"ICV •♦.56.'^CEL ".57."CLS ",58,'^FSU "» 
•♦#62»'*TRZ "»63«"TRS ". 64» 0« 64»0# 64. 0« 64* 0» 



ENDI 



GO AGAINI 
ENDI 



02508000 
02509000 
02510000 
02511000 
02513000 
02514000 
02515000 
02516000 
02517000 
02518000 
02519000 
02520000 
02521000 
02522000 
02523000 
02524000 
02525000 
02526000 
02527000 
02528000 
02529000 
02530000 
02531000 
02533000 
02534000 
02535000 
02536000 
02537000 
START OF SEGMENT 
02538000 
02539000 
02540000 
02541000 
02542000 
02543000 
02544000 
02545000 
02546000 
02547000 
02548000 
02549000 

22 IS 128 LONG 

02550000 
02551000 
START Of SEGMENT 
02552000 
02553000 
02554000 
02555000 
02556000 
02557000 
02558000 
02559000 
02560000 

23 IS 128 LONG 

02563000 
02564000 
02565000 



001910209 
001910213 
001910213 
001910214 
001910215 
00l9l02i7 
00l9|02l7 
00l9l02i7 

001910221 
001910221 
001910222 
001910222 
001910226 
001910226 
001910230 
001910230 
001910231 
0019t0234 
001910236 
001910238 
001910238 
001910238 
001910239 
001910240 
001910240 
001910242 
001910242 
001910243 
********* 

00l9t0244 
001910244 
001910244 
001910244 
001910244 
001910244 
00l9>0244 
001910244 
001910244 
001910244 
001910244 
001910244 

NEXT SEG 
001910244 

001910245 

001910246 
001910246 
001910246 
0019(0246 
001910246 
001910246 
001910246 
001910246 
001910246 
NEXT SEG 
001910246 
001910246 
001910246 



3 
2 

3 

2 
2 
2 
3 
2 
3 

1 


1 



1 

2 









I 

2 



1 



1 

2 

22 

1 

1 

1 

1 

I 

I 

1 

1 

1 

1 

I 

1 

19 

I 

2 

23 



















19 









ir Q « ♦♦6P0RMA'' THEN 

BFGIN SWITCHlT(FORMATBlT)> GO AGAINI END? 
GO WHATISIT» 

LENgTh7| 

% IF «• ''7INCUU'' Then 

X BFGIN DOLLARCAROi.STaRTINCLUDINGI GO EXIT? END) 

% IF Q » ♦♦7iNcLN« Then 

% BFGIN SWiTCHlTfNEWiNC 

LENGTH81 % NO OPTIONS Of This 

UENgTh9| 
IF Q 



LBiT}{ GO again; end; 

Length are currently implemented, 



Then 



•♦9INTRI" 
BFGIN 
INT0G»«XM0DE#2 

GO skanagaini 

ENO) 
WHATlSiTt 

IF RESULTa3 THEN 
BEGIN 

BASENUMl«CONV(AC 
TOTALNO|«»lO» 
NEWBASElsTRUEl 

GO skanagain; 

ENDI 

IF RESULT.? Then 

BEGIN 

IF Q a "l+OOOOw 

Begin 
skani 

IF Result, 
adovalue* 

ELSE FLAG(600) 

FNOJ 

qO skanagainj 

END* 
COMMENT DID NOT RECOGNI 
IF RE5ULT#l Then % N 

BEGIN FLAGf60i) 
SWITCHIT(USER0PINX)J 

GO again; 

EXITI 

LlSTERt»OE8UGT06 OR 
MOVr(lO»DEFlNEARRAY[ 
COUNTtaSCOUNTI RESUL 

RestorfSeQnum(lcR» in 

DOLLARTOG»aFALSE> 
END DOLLARCARDJ 



AND XmOoEJ* n OR INTOGI % NEVER RESET, 



CUM[1]»0.ACCUM[1], [12163); 



Then 



3 THEN 
•CONVf 

; X Nu 



ACCUMrl]»0,ACCUMrn,tl2«63) 

mbeR fxpected. 



ZE option; 

OT AN IDENTIFIER, 
; GO SKANAGAIN END; 
% USeROPINX means a USER-UEFINEO OPTION. 



LiSTOfi OR LiSTATOg; 

03»ACcUMC0]); % RESTORE INFORMATION FOR 
TI.SRfSULT; % "TABLE" TO RESUME SCAN, 
FOrLASTSEQROW,LASTSEQUENCEJ); % FOR VOlD TpSTS 



02566000 
02567000 
02566000 
02569000 
02570000 
02571000 
02572000 
02573000 
02574000 
02575000 
02576000 
02576500 
02577000 
02577250 
02577500 
02578000 
02579000 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
02590000 
02591000 
02592000 
02593000 
02594000 
02595000 
02596000 
02597000 
02598000 
02599000 
02600000 
02601000 
02602000 
02602500 
02602600 
02602700 
02602800 
02603000 
02604000 
19 IS 296 LONG* 



00191024810 
00191024811 
0019}0252t0 
00191025211 
00191025312 
00191025312 
00191025312 
00l9t0253t2 
00191025312 
00191025312 
0019»0253»2 
00191025313 
00191025410 
00191025811 
00191026010 
00l9t0260l0 
00191026010 
00191026011 
0019;0261I2 
00l9»0264ll 
0019)026513 
OO19IO266J0 
00191026611 
00i9l0266ll 
00191026713 
00191026810 
00i9t0268t 1 
00191026912 
00l9;02r3l2 
00191027313 
00191027610 
00191027913 
0019»0279I3 
00191028010 
0019(028010 
00191026010 
00191028112 
00l9i0282t 1 
001910283(3 
00191028410 
00191028410 
00191028712 
00191028912 
00191029011 

00l9l0292»l 

00191029312 

NEXT SEG 3 



COMMENT TABLE IS THE RoUTlNE ThAT MOST CODE IN THE COMPILER 

USES When it is desireo to scan another logical quantity. 

THE RESULT RETURNED IS ThE CLASS OF THE ITEM DESIRED. 
table MAINTAINS THE VARIABLES I AND NXTELBT AND THE ARRAY 
FLBAT. ELBaT and I ARf PRINCIPAL VARIABLES USED FOR 
COMUNICATION BETWEEN TaBlE AND THE OUTSIDE WORLD, NXTELBT 



02605000 
02606000 
02607000 
02606000 
02609000 
02610000 



T 0003;0242i0 

T 0003(024210 

T 0003(0242(0 

T 0003(024210 

T 0003(024210 

T 0003(0242(0 



tS alm 

AL OTh 
SCAMNE 
fiKNFRA 

THE 

DESIRE 

THE 

I) 

II) 

A 

B 



C 



F 

TTI) 

rURTHE 



OST EXCUUSl 
ER USE IS M 
D. (SEE, F 
L DISCUSSIO 
PARAMETER P 
(USUALLY 
GENERAL PLA 
IF P < NXT 
PROCESS ON 
) SCAN, 
) TEST FOR 
1) IDENTIFI 

IN SPe 
?) NUMBER - 

AND EX 
3) TEST IF 

PROCES 

SPECIA 
LOAD ELBA 



VElY USfD By TABLE* 
ADE IN ORDER TO FoR 
OR EXAMPLE. COMPOUN 

N SEE The declarati 

IS The ACTUAL INDE 

i»i#i» OR i + n. 

N OF TABLE iS THIS! 
ELBAT GO ON TO III) 
E QUANTITY, 



ALTHOUGH AN OCCASION- 
GET THAT SOMETHING WAS 
DTAlLJi FOR FURTHER 

ON OF These variables. 
X OF the quantity 



) 

) TF ELBAT 
) GO BACK T 

Return wit 
r details a 



IOENTtFiE 
ER - LOOK 
ClAL MANN 

PROCESS 
PONENT PA 
SPECIAL C 
SING - OT 
L. 

T AND INC 
IS FULL A 
I). 
H CLASS 
RE GIVEN 



R* NUMBERf 
UP IN DIRE 
ER IF COMM 
INTEGER PA 
RT, 

HARACTER R 
HERWISE GE 

REMENT NXT 
DJUST ELBA 

F fLBAT[P], 
IN BODY OF 



OR SPECIAL CHARACTER. 
CTORY AND PROCESS 
ENT OR DEFINED ID. 
RT, FRACTIONAL PART, 

EQUIRES SPECIAL 
T ELBAT WORD FROM 



PRT(ft35) M TABLE 



INTEGER PROCEDURE TABLE(P)I VALUE P> INTEGER PI 



ELBT, 

T, NXTELBT, 



TABLE, 



I, AND P. 



BEGIN 
LABEL 



PERCENT, SPEC I ALCH AR,C0MPLETE»C0L0Ni DOT. ATS I GN» QUOTE, 



SWtT 
SWIT 

whil 

DO 
SCANAGAl 



ARGH« 
SPECIALc 

COMMENT 
COMMENT 

COMMENT 
COLON! 



STRN 
SCAN 
CROS 

ch spe 

CH RES 
E P ^ 

BEGIN 
Ni 
COUNT 
GO RE 



GXT,MOVeIT,ARGH,F!NIShNUMBER, 

a6ain,fpart,epart. i part, i dent , rose, compost .dollar, rtp 
shatch,numberfndi 

C T ALSW I TCH» "Percent. DOLLAR. DOT, ATS I GN, COLON, QUOTE, 

rtparen,crosshatchi 

UlT SWITCH! si DENT .SPEC TALC MAR, I part; 

nxtelbt 



aRfn 



i-RESULT»*AccUMrn»»oi scanner* 

SULTSWiTCHtRESULT]; 



QlBACCUMrUI FLAG(Hl)> GO SCANAGAINI 
HARI 
RTll«ACCUMtl3,[16|6] - 2t 
ENDTOGJsGTl » 57 AND ENOTOfi) 
OBTAIN ACTUAL CHARACTER FROM ACCUMI 
THi5PFCIALrGTli6Ti[42l41l33]» 

NOTICE COMPRESSION TECHNIQUE USED TO SHORTEN TABLE OF 
ELBAT WORDS FOR SPEC|AL CHARACTERS! 

IF gTiibT.incr « Then go complete; 
GO specialswiTchigtih 
incr field OF special character is non 
characters reouiRing special handling, 
ON TO obtain discrimination; 

RESULTl«7; SCANNER] COMMENT ELIMINATE BLANKS 

FOR 1« iN PLACE 
IF EXAMIN (NCR) • ♦•»« THEN 



'ZERO FOR 
INCR IS 



SPECIAL 
SWITCHED 



CHECKING 

OF * ; 



02611000 T 0003«02«2 

02612000 T 0003»0242 

02613000 T 0003t02ft2 

02614000 T 000310242 

02615000 T 0003J0242 

02616000 T 000310242 

02617000 T 0003*0242 

02618000 T 000310242 

02619000 T 000310242 

02620000 T 0003)0242 

02621000 T 000310242 

02622000 T 000310242 

02623000 T 000310242 

02624000 T 000310242 

02625000 T 000310242 

02626000 T 000310242 

02627000 T 000310242 

0262S000 T 000310242 

02629000 T 000310242 

02630000 T 000310242 

02631000 T 000310242 

02632000 T 000310242 

02633000 T 0003»0242 

02634000 T 000310242 

02635000 T 0003*0242 

02636000 T 0003»0242 

02637000 T 000310242 
START OF SEGMENT »♦♦»♦♦♦♦♦♦ 

02638000 T 0024*0000 

02639000 T 0024*0000 

02640000 T 0024*0000 

02641000 T 002410000 

02642000 T 0074*0002 

02643000 T 0024*0007 

02644000 T 0024*0012 

02645000 T 0024*00l3 

02646000 T 0024*0014 

02647000 T 0024l00l5 

02648000 T 0024*0017 

02649000 T 0024*0019 

02650000 T 0024*0020 

02651000 T 0024*0022 

02652000 T 0024*0023 

02653000 T 0024*0025 

026S4000 T 002440026 

02655000 T 0024*0026 

02656000 T 0024*0028 

02657000 T 0024*0028 

02656000 T 0024*0028 

02659000 T 0024*0031 

02660000 T 002410033 

02661000 T 002410033 

02662000 T 0024*0033 

02663000 T 0024*0033 

02664000 T 0024*0034 

02665000 T 0024(0034 

































24 









1 
2 
1 
2 

2 
3 
3 


2 
2 
I 
I 
1 
1 
I 
2 
2 
2 
2 
2 





DOTI 



ATSIGNI 



BEGIN RESULTl.Oj SCANNER? T I .SPEC I ALt 1 31 ENDI 
RpSULTl»2l 60 COMPUETEI 



IF EXAM1N(NCR)>9 
NHI IsNLOIbQ} 
C»*0» GO rPART; 



OR ENDTOG THEN GO COMPLETE} 



COMMENT 
QUoTE« 



EL-Sf 



RESUtTl«0| SCANNerj % SCAN PAST 
IF C0UNT>17 THEN fiO aRrHI % 16 CHARS. 
IF OCT tZE(ACCUM[1],C,17-C0uNT# COUNTS I) 

Begin Q»«AccUMri]i flagcspui go 
GO numbeRendi 

DOT AND ATSIGN ENTER NUMBER CONVERSION AT CORRECT SPOT) 



Then 
scanagain 



ENDI 



no 



counti.oj 

TtsIF STReAMTOG ThEN 63 

IF real{Streamtog)>i Then e elSe 7i 

«n BEGIN 

RpSULTUS; SCANNER* 

IF couNT>T Then 

BEGIN Q««ACCUM[1]I FLAG(520)> GO SCANAGAIN ENOl 
END UNTIL EXAMlNCNCR) » •""'I 



STRNGXTl 
MOVEITI 



END UNTIL EXAM1NCNC«) » """I 
Q«»ACCUM[nJ ReSUlTI«5| SCANNER! COUNTl. 

IF count<o Then counti.count*64i 
ACCUMtl]»«e» resultis«i 



COUNT-1) 



A 
T»sC««0» 

IF COUNT < 8 Then 



MOVECHARAC 

t.classi«s 

60 COMPLET 
COMMENT CROSSHATCH 

The cRossh 
The cRossh 
the two ca 
merel^ pla 
causes an 
for a full 
crosshatchi 

if definec 
putse0no(g 
turnonstop 

if definei 
lcR««cgth 
NrR«»r,Ti M 

GT2'*08i(T« 

lastusedi. 

FOR gTH*! 

Begin 
stack 



TERS(C0UNT,ACCUMrt].3fC.8-C0UNT)» 
TRNGCONi 

El 

HANDLES TWO SITUATIONS! 
ATCH AT END OF DEFINE DECLARATIONS AND 
ATCH at END OF AlPHA REPRESENTING DEFINED IDS. 
SES ARE PROCESSED DIFFERENTLY. THE FIRST CASE 
CES THE CROSSHATCH IN ELBAT, THE SECOND CASE 
EXIT FROM SCANNING THE ALPHA FOR THE DEFINED ID. 

DISCUSSION SEE OEFINEGEnI 

TR#o Then go completei 

Tl.LCR); 
LIGHT(0,LCR)» 

NDEX » Then go ARGHI 

■DEFlNEARRAYrOEFTNElNDEX-lJ) DIV 2621441 
OD 262144* 

i.DEFlNEARRAYr0EFiNElNDEX«»DrFINEINDEX-3 3)C33H8M5l? 
T,[33' 15]* 
STEP 1 UNTIL GT? DO 



DOLLARI 
PERCENT! 



LASTlNFOlM 
END* 

60 scanaqaini 
comment this co 
dollaRcardi 

IF NCR # FCR Th 



HEAD r (T I .Take (LAST iNF0*l)).t 12 1363 
TAKEfLASTlNFO.LlNKJ 
CNEXTfNFOl«LASTINFO)-T,PURPTl 



MOO 125]lai 



DE HANDLES CONTROL CARDSI 
EN READACARd* 



02666000 
02667000 
02668000 
02680000 
02681000 
02682000 
02683000 
02684000 
02685000 
02686000 
02686500 
02687000 
02689000 
02690000 
02691000 
02692000 
02692500 
02693000 
02694000 
02695000 
02696000 
02697000 
02698000 
02699000 
02700000 
02701000 
02703000 
02704000 
02705000 
02705100 
02705200 
02707000 
02708000 
02709000 
02710000 
02711000 
02712000 
02713000 
02714000 
02715000 
02716000 
02717000 
02718000 
02719000 
02720000 
02721000 
02722000 
02723000 
02723500 
02724000 
02725000 
02724000 
02727000 
02728000 
02729000 
02730000 
02731000 



00241 
0024t 
00241 
00241 
00241 
00241 
00241 
00241 
00241 
00241 
00241 
00241 
00241 
00241 
0024* 
0024* 
00241 
00241 
0024* 
00241 
00241 
0024* 
00241 
00241 
0024* 
0024* 
0024* 
0024* 
00241 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
00241 
00241 
0024* 
0024 f 
0024* 
0024* 
0024* 
0024* 
0024* 
0024* 
00241 
0024* 
00241 
0024* 
0024* 



0036 

0038 

0040 

0040 

0043 

0044 

0045 

0046 

0047 

00461 

0051 

OO54 

0055 

0055 

0055 

0055 

OO56 

0060 

0060 

0061 

00621 

0064 

0067 

0070 

0073 

0075 

0076 

00771 

0076 

0060 

0082 

0062 

0062 

0082 

0062 

0082 

0062 

0062 

0082^ 

0063 

0064 

0065 

0066 

0087 

0090 

0091 

0094 

0095 

0096 

00961 

OiOl 

0102 

0105 

0107 

010?' 

O1O6 

O1O61 






2 


3 

2 
1 
3 
I 
2 
2 
2 
3 



2 


1 
2 
I 
2 

2 

2 


I 

1 
I 
I 
1 
1 
I 
I 
1 
2 

2 

3 

2 

3 


2 
t 
2 
2 
3 

I 



THfN GO ARGHI 
Qt»ACCUMrl]| 



GO SCANAGAINJ 

COMMFNT most PERCfNT SjCNlS ACTiNG AS END OF CARD SENTlNEUS GET TO 
PFRCENT, PERCENT READS THE NE^T CARD AND STARTS OVER, A 
SIDE EFFECT IS THAT ALL CHARACTERS ON A CARD ARE IGNORED 
AFTER A FREE PERCENT SyGN rONE NOT IMBEDDED IN A STRiMq OR 
COMMENT)! 

COMMENT MIGHT BE FUNNY COMMA - HANnLE HEREI 

RTPaReNj ReSULT|b7> SCANNER) 

TF EXAMlNfNCR) « •••••• ThEN 

Begin 

Resul,t««o; Scanner? 

00 begin 

resulTi.51 Scanner 

end until, fkaminfncr) « ""••; 
resultj.oi scannfri 

ReSULTI*7| SCANNER* 
IF EXAMIN(NCR) # •♦(' 
RESULTI«0| SCANNER! 
TI8SPECIALC24] 
END! 
RfSULT|«2! go COMPLETE! 

iPaRTi tcountibO! ci«cOnveRt) 

% RESULTt»7! SCANNER! % DEBLANK, 

% IF definectRbO Then 

% TF fCs3 OR Cufl) AND EXAM IN ( NCR )«'"♦•' THEN IOCTAL OR HEX STRING, 

X BEGIN INTEGER SIZ! 

% RESULTI85! SCANNER! X SKIP QUOTE. 

% COUNTI-OI 

X 00 BEGIN 

% RESULTl.5! SCANNER! 

% IF COUNT > SiZI»48 DIV C TheN % > I 

X BEGIN FR«f5?0)! GO SCANAGAIN 

X END UNTIL fXaMJ Nf NCR )««»""♦; 

X QlsACCUMril! RESULTJeSi SCANNER! COUNT I »COUNT« 

X IF C.3 THEN X OcTAL STRING, 

X IF 0CTIZE(ACCUMrl]»ACCUM[4]»16-C0UNT, COUNT) THEN 

X FLAGC521) X NON OCTAL CHARACTER IN STRING. 

X FI.SE ELSE IF HEX I ZEf ACCUM[ 1 ] , ACCUMt 4 ] . 1 ?-COUNTf COUNT ) THEN 

X FLAG(52l)! X NON CHARACTER IN HEX STRING, 

X IF COUNT < SiZ THEN 

X BEGIN 

X C»«ACCUMt«3! GO F IN I SHNUMBER! 

X END! 

X T,lNcR»«COUNTl»fl! T, CLASS »»STR I NQ! 

X M0VECHARACTERS(8»ACCUM[a].0,ACCUMcn.3)! 

X GO COMPLETE! 

X END OCTAL OR HEX STRING! 

DPTOG Then 

BEGIN NHIIwThI! Nl0»«TL0! END! 
EXAMIN(NCR)»«*,» ThEN 
BEGIN 

ReSULT»»0j SCANNER! 
Cl-l.Ox C! 
FPaRTI TcOUNTI«COUNT! 

IF EXAMlN(NCR)<9 THEN 
BEGIN 
RFSUlTIsO! SCANNER! 



WORD LONs. 
END! 



1! 



TF 



IF 



02737000 

02738000 

02739000 

02740000 

02741000 

02742000 

02743000 

02744000 

02745000 

02746000 

02747000 

02748000 

02749000 

02750000 

02751000 

02752000 

02753000 

02754000 

02755000 

02756000 

02757000 

02758000 

02759000 

02760000 

02761000 

02762000 

02763000 

02764000 

02765000 

02766000 

02767000 

02768000 

02769000 

02770000 

02771000 

02772000 

02773000 

02774000 

02775000 

02776000 

02777000 

02778000 

02779000 

02780000 

02781000 

02782000 

02783000 

02784000 

02785000 

02786000 

02787000 

02788000 

02789000 

02790000 

02791000 

02792000 

02793000 



0024»0ii0ll 
0024»0iii»2 
00241011112 
0024(011112 
00241011112 
0024»0lil»2 
00241011112 

00241011112 
0024l0li3t2 

00241011512 
00241011513 
0024!0ii6ll 
00241011712 
0024t0li7l3 
0024«0l20tl 
0024(012113 
0024(012312 
0024(0125(2 
0024(0127(3 
0024(0127(3 
0024(0128(1 

002410129(3 

0024(0131(3 

0024(01310 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0l3l»3 

0024(0131(3 

0024(013113 

002410131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

0024(0131(3 

O024(0l31»3 

0024(0131(3 

0024(0132(0 

0024(0134(0 

0024(0135(3 

0024(0136(0 

0024(0137(3 

0024(0138(1 

0024(01)9(3 

0024(0141(3 

0024(0142(0 



IF DPTor, Then 

BEGIN 

DOUBLFf C0NVE'RT.TLO»TENr{COUNT-TC0UNT)Moo 123* 

0,/,I»,THI.TU0)I 
FOR T|«12 STEP 1? UNTIL COUNT - TCOUNT DO 
D0UBLF(THI»TU0fTENri2]t0,/,l«.THI»TU0)» 
D0UBLFtTHl»TUO.NHl.NLO.*« l8,NHT»NL0)J 
C!«NHI 
END 
FLSE ClBTFNtTC0UNT-C0UNT3xc0NVERT*CI 
END 

end; 

RFSULTI.71 SCANNER! 
TF EXAMTNfNCR)-"?" T^EN 
BEGIN 

R{:SULTI«0J SCANNER? 
ePaRti TcOUNT«»COUNTI 

ClasCxl.Ol 

result«»/i scanner; 

IF T«.EXAMIN(NCR)>9 ThEN 
BEGIN 

RESULT'sO; scannfRi 
tcounti.count; 
end; 
Resultjpo; Scanner; 

Ql*ACCUMf ii; 

TF GTl»«Tt»(IF T«''-"ThEN -CONVERT ELSE C0NVERT)<-ft6 OR 

T>69 THEN FLAr,C2695 
ELSE BF6IN 

T:«»TENtT3; 

IF ABS(0«;C[42>3i6J4C[H2«n+0&T[42i3i6]iTCll2n3 
+ 12) >63 THEN FLAGC269) 
ELSE IF DPT06 ThEN 

IF 6Ti<o Then 

BEGIN 

GTt ««>-GTi; 

0OUBLF(NHItNLO»TENC6Tl MOD 123 » 0» /t I «, Nh I . NLO ) ; 

FOR GT2t»12 STEP 12 UNTIL GTi DO 

OOU0LF(NHl»NLO»TENri2]»O»/t »«.NHI»NL0); 
END 

ELSE BEGIN 

D0UBLr(NHI»NL0,TENt6Tl MOO 1 23 » 0. x » »s»NhI » NLO ) I 
FOR GT2l»12 STEP 12 UNTIL qTI dO 

DOUBLfC NHl»NL0,TFN[l?3,0.x,»s,NHItNL0); 
END 
ELSE C»»CxT; 

end; 
end; 
numberenoi 

QlBACCuMtn; ReSULT»»3; 

finiShnumbfR' 

TJ«0] 

IF C.tl ;373«0 then 

BEGIN t,classi»litno ; t.addRfssibc end 

ELSE T.CLaSSI«NONLITNO J 

go complete; 

comment The code between IDENT and compost does a lookup in INFO. 



02794000 

02795000 

02796000 

02797000 

02798000 

02799000 

02800000 

02801000 

02802000 

02803000 

02804000 

02805000 

02806000 

02807000 

02808000 

02809000 

02810000 

02811000 

02812000 

02813000 

02815000 

02816000 

02817000 

02818000 

02820000 

02822000 

02623000 

028?40QO 

02825000 

02826000 

02827000 

02828000 

02829000 

02830000 

02831000 

02832000 

02833000 

02834000 

02835000 

02836000 

02837000 

02838000 

02839000 

02840000 

02841000 

02842000 

02843000 

02844000 

02845000 

02846000 

02847000 

02848000 

02849000 

02850000 

02851000 

02852000 

02853000 



T 0024t0i43t2 
T 00241014313 
T 00241014410 
T 0024t0l47t2 
T 00241014811 

T 00241015312 
T 00241015810 

T 0024t0l60t0 

T 00241016010 
T 0024t0l61t2 

T 0024t0l64ti 

T 0024t0i64ll 

T 00241016411 

T 0024t0i66t0 

T 00241016713 

T 00241016810 

T 00241016913 

T 00241017011 

T 00241017210 

T 0024l0l73«2 

T 0024»0i75l3 

T 0024;Ol76IO 

T 0024»0i77»2 

T O024J0i78t0 

T 00241017810 

T 0024l0l79l2 

T 002410180)0 

T 00241018512 

T 00241018611 

T 0024(018912 

T 00241019011 

T 0024»0i95l2 

T 00241019712 

T 0024;0l98«l 

T 00241019913 

T 00241020010 

T 00241020112 

T 00241020512 

T 00241020610 

T 0024;02iil3 

T 00241021113 

T 00241021210 

T 0024I0215J3 

T 00241021712 

T 0024I0222»1 

T 0024>0222ll 

T 00241022410 

T 00241022410 

T 00241022410 

T 00241022512 

T 00241022611 

T 00241022712 

T 00241022713 

T 00241022913 

T 00241023313 

T 00241023513 

T 00241023610 



ROSE IS ENTERED. 
IDENTIFIER WHICH 

OF The eibatword 

ALLOWS REFERENCE 



«tOl- 
«101- 



TF quantity is NOT FoUnD ThE ELBAT WORD EXPECTS TO BE 
ZFRO. THE SCRAMBLE FOR APPROPRIATE STACK IS FIRST THING 
TO BE DONE. THEN THE LOOP BETWEEN COMPOST AND 

THE LAST Thing done for any 

IS FOUND IS TO STUFF THE LOCATION 

IN tNfo INTO The link fieud. This 

BACK TO INFO FOR ADDITIONAL DATA. 

SHOULD This be required. ; 

TDENTj Tl*STACKHEAD[ScRAMI«rOl»ACcUM[l])MOD 12531 

rose« sti««t,linkri 

ifcgt?i«t.linkc)+gtu Then 

BEGIN Tl.OI 00 COMPLETE ENDl 
tF T a iNFOrGTl. GT?] THEN BEGIN 
TJb 01 GO TO COMPLETE ENDl 
T»«INF0CGT1.GT?]| 
IF INF0[GT!iGT2*l]40rmill] / Q THEN GO ROSEI 

IF COUNT < 5 Then go compost t 

IF not EQUAL(C0UNT-5,ACCUMr2J.INF0tGTl.GT2+2])THEN GO ROSFI 
COMPOSTi T»«T&GTir35J43l53gGT2t40UOI83l 

TF GTl /I AND NOT MAfiROlD THEN % NOT RESERVED WORo XtlO 
XREFiTCT.LINK.CaRDNUMBER.NORMALRFF)! % BUILD XREF ENTRY XllO 
COMMENT CHECK hERE FOR COMMENTS AND DEFINED lOSi 
fF NOT ENDTOg then 
BEGIN 

IF GTil.T, CLASS ■ COMmENTV THEN 
BEGIN 
WHILE EXAMfN(NCR) # ♦♦I'* DO 

BEGIN ReSULTI«6)I C0UNTl»Ol 

resulti.oiscannerigo scanagain 

END 

end; 
if stopdefine then go complete' 

IF GTl * DEFINEDID ThEN GO COMPLETE* 
COMMENT SETUP FOR DEFINED IDS - SEE DEFlNEGEN FOR MORE DETAlLSl 

IF T, ADDRESSED THEN T « .F I XoEF I NE I NFO(T ) I 

IF DEFinEINDEX « ?4 THEN 

BEGIN FLAG(139)JG0 ARgH ENDJ 

DEF I NEARRAYf DEFINE INDEX 3 ««lASTUSED&T. ADDRESS 

LASTUSeDI*GIT(T)I 

0EFlNEARRAYtDEFINElNDEX+2 3l»262HftxLCR*NCRI 

LCRl«(NCRli.MKABS(DEFlNEARRAY[DEFlNEINDEX + l3)) + l» 

PUTSEQN0(GT4,LCR)1 

TURN0NST0PLIGHT(«»X-.LCR)» DEFlNElNOEXl-DEFlNElNOEX + 31 

GO PeRCENTI 
COMPLETfI 

ELBATtNXTELBT3««T> 
IF NOT DEFINING ThEN 
IF T. CLASS m BEGINV THEN 

BFSINSTACKt8SPOINTl«B5POlNT*l3»»CARONUMBER ELSE 
IF T, CLASS « ENDV ThEN 
BEGIN 

IF LISTER THEN IF BEND THEN BEGINPRINTI 
BSPOfNTlwBSPOINT - ReAL(BSP0|NT > 0)1 X PREVENT INVALID 



SCANNER ENOI 



[I8»33tl53> 



ENDJ 



STOPDEFINEI'FALSEI COMMENT ALLOW DEFINES AGAIN! 
IF NXTeLBT«»NXTELBT+i > 74 THEN 
IF NOT MACROlD ThEN 



fl08. 
Xl08« 
1108. 
X108. 
f 108' 
«108« 
INDEX 
fl08- 



02854000 

02855000 

02859000 

02860000 

02861000 

02862000 

02863000 

02864000 

02865000 

02875000 

02876000 

02877000 

02877010 

02877020 

02878000 

02879000 

02880000 

02881000 

02882000 

02882100 

02882200 

02883000 

02884000 

02885000 

02886000 

02887000 

02888000 

02889000 

02890000 

02891000 

02892000 

02893000 

02894000 

02895000 

02896000 

02898000 

02899000 

02900000 

02901000 

02902000 

02903000 

02904000 

02905000 

02906000 

02909000 

02910000 

029i0l00 

02910200 

02910300 

02910400 

02910500 

02910600 

02910700 

02910800 

0291 1000 

02912000 

02913000 



T 0024t0236>0 

T 002410236110 

T 0024»0236IO 

T 0024l0236i0 

T 00241023610 

T 0024(023610 

T 0024l0236t0 

T 00241023610 

T 0024<0236I0 

T 00241023913 

T 00241024112 

T 0024I0243U 

C 00244024512 

C 00241024713 

T 0024»0248ll 

T 00241025011 

T 00241025410 

T 00241025513 

T 00241026010 

C 00241026211 

C 00241026410 

T 00241026713 

T 0024(026713 

T 0024(0268(0 

T 0024(0268(1 

T 0024(0270(1 

T 0024(0271(2 

T 0024(0273(2 

T 0024(0275(3 

T 0024(0277(3 

T 002410277(3 

T 002410277(3 

T 0024(0278(1 

T 0024(0279(3 

T 0024(0279(3 

T 0024(0262(1 

T 002410263(3 

T 0024(0285(2 

T 002410287(3 

T 002410286(1 

T 0024(0291(3 

T 0024(029512 

T 0024(029640 

T 0024(0296(0 

T 0024(0300(0 

T 0024(030040 

C 0024(0301(2 

C 0024(0301(3 

C 002440303(3 

C 002410306(0 

C 0024(0308(0 

C 00244030611 

C 0024(0311(2 

C 0024(031211 

T 0024(0312(1 

T 0024(0313(3 

T 0024(0315(2 



COMMENT 



BEGIN 
EI.BAT IS FULL' ADJUST ITJ 

MOVE(lO,ELBATt653#ELBAT)» 
M»I-65I Pl«P-65> NXTeLBT;siOj 
END 



tnij 
END* 
IF TABLri«ELBATrP].CL.ASS « COMMpNTV THEN 
BEGIN 
COMMENT SPECIAL HANDLING OF rONSTANTS FOR SAKf Of FOR STATEMENTS* 
C » «I NFOt 0, EL8 AT CP). ADDRESS] J 
FLBATtPl,CLASSl«TABLr»aNONLlTN0 
END* 

stopdefine'uFAlse; comment allow define* 



COMMENT ALLOW DEFINE* 



Z4 IS 



0?914000 T 
02915000 T 
02916000 T 
02917000 T 
02918000 T 
02919000 T 
02920000 T 
02921000 T 
02922000 T 
02923000 T 
02924000 T 
02925000 T 
02926000 T 
029?7000 T 
337 LONG. 



00241 
0024J 
00241 
00241 
00241 
0024t 
0024* 
00241 
0024* 
0024* 
0024* 
00241 
0024* 
00241 
NEXT S 



0316*0 
0316*1 
0316*1 
03l8*l 
0321*3 
0321*3 
0322*0 
0325*2 
0325*3 
0325*3 
0328*0 
0329*2 
0331*2 
0331*3 
EG 3 



PRT(436) • BOOLPRIM 
PRTf43''5 m BOOLCOMP 
PRTC440) « NEXT 



BOOLEAN PROCEDURE BOOLPRlM* 



FORWARD* 



PROCEDURE BOOLCOMP(B>* BOOLfAN b* FORWARD* 

INTEGER PROCEDURE NEXTi 

BEGIN 
LABEL EXIT* 



STACKfF*3) » T 



INTEGER T* 

DEFINE ERROR » BEGIN FLAG(603); GO EXIT ENDl* 
SKAN* 

IF ReSULT.3 IHE^ ERROR) % NUMBERS NOT ALLOWED. 
IF RESULT.? THEN % SPECIAL CHARACTER. 
BEGIN 
T*«IF O-tlfOOOO" OR Q."llOOOO»' THEN 20 % FAKE OUT BOOLEXP, 

ELSE ((T*«o,ri8*6]-2) & Tt42«41*3])* 
IF T»it OR T»i9 OR Ta?0 THEN BATMAN* »SPEC I AL [ T] X (»),0R * 
ELSE FLAG(603)> 
GO EXIT 

END SPECIAL CHARACTERS* 
COMMENT LOOK FOR BOOLEAN OPERATORS. THEN OPTIONS* 
T*« IF ©."SNOTOO" THEN NOTOP 
ELSE IF Q»"3ANoOO« THEN ANDOP 
ELSE IF 0«''20R000" THEN OROP 
ELSE IF 0»"3EQV00« THEN EOVOP 
ELSe 0| 

IF T#o Then batman, class*»t 

ELSf BATMANJwI & B00IDr2*73 & Re AL f F INDOPT lON ( 1 ) ) [ 1 * 1 ] * Z OPTION. 
EXIT* 

NEXT«wMYCLASS*«BATMAN,CLASSJ 
END NEXT* 



START 



02955000 T 0003*0242*0 
02955500 T 0003*0242*0 
02956000 T 0003*0242*0 



02956500 

02957000 

OF SEGMENT 

02957500 

02958000 
02958500 
02959000 
02959500 
02960000 
02960500 
02961000 
02961500 
02962000 
02962500 
02963000 
02963500 
02964000 
02964500 
02965000 
02965500 
02966000 
02966500 
02967000 
02967500 
02966000 
02968500 



T 0003*0242*0 
T 0003*0242*0 

«*4t«««**«* 25 
T 0025*0000*0 



25 IS 48 LONG. 



0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
NEXT 



(000010 
*0000t0 
*0003*3 
10006*0 
«0007«2 
»0007*3 
iOOiOlO 
«00l3*3 
«00i7»2 
10021*3 
I0022<0 

(0022*0 
i0022l0 
»0023(3 
(0025(3 
(0027(3 
(0029*3 
(0031(2 
(0032(1 

(0042*0 
(0043*2 
(0044(1 
SEG 3 



BOOLEAN PROCEDURE BOOLrXP( 



02969000 T 0003(0242*0 



STACKrr+3) m B 



BFGIN 
BOOLEAN 



b; 



B»»BOOLPRlMI 

WHILE MYCLASSiE«VOP 

BOOLEXPJ.B 

END BOOLEXPI 



AND MYCLASSSANDOP DO 800LC0MP(B)J 



02969500 
02970000 

START OF Segment 

02970500 
02971000 
02971500 
02972000 



T 00031024210 
T 0003i0242<0 



26 IS 



8 LONG. 



00261000010 
00261000112 
00261000411 
00261000411 
NEXT SEG 3 



STACKeF+3) 
STACKfF+4) 



a B 
s KNOT 



BOOLEAN PROCEDURE BOOLPRlMl 

BFGIN 

BOOLEAN B,KNOT; 



DEFINE SKIPIT * MYCLa5S« «NfXT *t 
IF KNOTI«fNEXT«NOTOP) THEN SKlPlTI 

IF myclass«leftparen Then 
Begin 
b«»boolexp» 

IF MYCLASSj«RTPAREN ThfN FLAG(604)J 

END 
ELSf if MYCLASSftBOOlD THEN FLAGf60l) 
ElSf B«»BATmAN<OI 

IF KNOT Then bjsnot b^ skipit; 

BOOLPRiMIbB 
END BOOLPRIMI 



02972500 

02973000 

02973500 

START OF SEGMENT 



02974000 
02974500 
02975000 
02975500 
02976000 
02976500 
02977000 
02977500 
02978000 
02978500 
02979000 
02979500 



T 00031024210 
T 00031024210 
T 0003I0242<0 



27 IS 



0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
0027 
NEXT 



tooooto 

lOOOOtO 
I0003<2 
}0003U 
1000410 
1000512 
1000712 
•000712 
1000912 
1001113 
1001410 
1001410 
SEG 3 



PROrEDURE 900LC0MP(B)> BOOLfAN bI 
BEGIN 

Real opclassi 



STACKfF+2) 
STACKfF+3) 



opclass 

T 



02950000 

02980500 

02981000 

START OF SEGMENT 



T 0003(024210 
T 00031024210 
T 00031024210 

«iK4i*4ii4i«4<4i» 26 



BOOLEAN T) 
OPCLASSI»MYCLASSl 

ti»boolprim; 

while opclass<myclass do 

Bi* IF OPcLASS»ANDOP 

ELSf IF OPCLASSbOROP 
FLSf 

FND BOOLCOMPI 



02981500 T 00281000010 



boolcompct); 

Then CB AND T) 

Then cb or t) 

CB EOV T)J 



02982000 
02982500 
02983000 
02983500 
02984000 
02984500 
02985000 



T 00281000010 

T 00281000011 

T 002810001(3 

T 00281000411 

T 00281000610 

T 00281000611 

T 00281001112 



28 IS 14 LONG. NEXT SE6 



COMMENT«i«l###f#*#l##ff#lt|«l#|#««#«fl#f»###fl«««f«f ####*##«»####««##«### 

FORWARD DECLARATIONS 



02985500 
02986006 
02986500 



T 0003<0242t0 
T 0003(024210 
T 0003(0242(0 



PRT 


C441 




PRT 


tft42. 




PRT 


:ft43' 




PRT 


C144 




PRT 


[445 




PRT 


[446 




PRT( 


[447: 




PRT( 


[450: 




PRT( 


:45r 




PRT( 


[452: 




PRT( 


'4533 




PRT( 


:454! 




PRT( 


:4553 




PRTi 


.456: 




PRT( 


'45^: 




PRT( 


'4603 




PRT( 


[4613 




PRT( 


'4623 




PRT( 


4633 




PRTI 


.4643 




PRT( 


•4653 




PRT( 


[466: 




PRT< 


.4673 




PRT( 


•4703 




PRTI 


:4n: 




PRTI 


:4723 





t 

PROcrDljRF AFXPi FOPWAROJ 
AFXP 

PROCEDURF ARITmSECI FORWARD? 

aRithscc 

PROCEDURF SIMPaRIThJ FORWaRDI 

simparith 

PROCEDURE ARiThCOMPI FORWaRDJ 

aRithcomp 

PROCEDURE PRiMaRYI FORWARD? 
PRIMARY 

DEFINE BFXP b aEXPU 

INTEGER PROCEDURE EXPRSSI FORWARD? 
FXPRSS 

PROCEDURE POLISHERfEXPECT)* VALUE EXPECT? REAL EXPECT? FORWARD? 
POLISHER 

PROCEDURE INLINE? FORWARD? 
INLINE 

PROCEDURE SUBHAND(FROH)? VALUE FROM? BOOLEAN FROM? FORWARD? 
SUBMAND 

PROCEDURE lOSTMT? FORWARD? 
tOSTMT 

INTEGER PROCEDURE IFEXP? FORWARD? 
TFEXP 

PROCEDURE PARSf? FORWARD? 
PARSE 

PROCEDURE DOT? FORWARD? 
DOT 

PROCEDURE IFClAUSE? FORWARD? 
IFCLAUSE 

INTEGER PROCFOURE GET ( SYLLABLE )? VALUE SYLLABLE? REAL SYLLABLE? FORWARD? 
GET 

INTEGER PROCEDURE GNAT(L)? VAlUe U? REAL L? FORWARD? 
GNAT 

PROCEDURE PANA? FORWARD? 
PANA 

PROCEDURE IFSTMT? FORWARD? 
T F STMT 

PROCEDURE GOGEN(LABELBAT,BRAnChTYPE)? 
GOGEN 

VALUE LABELBaT»BRANCHTYPE? 
REAL LABELBAT.BRANSHTyPE? FORWARD? 
BOOLEAN PROCEDURE SIMPgO? FORWARD? 
c I MPr Q 

PROCEDURE STMT? FORWARD? 
STMT 

PROCEDURE EMiTf SYLLABLE)? VAlUE SYLLABLE? REAL SYLLABLE? FORWARD? 

fmiT 

PROCEDURE PROCSTMTfFROM)? VAlUe ERoM? BOOLEAN EROM? FORWARD? 
PROCSTMT 

PROCEDURE STRMPROCSTMT? FORWARD? 
5TRMPR0CSTMT 

PROCEDURE CONSTANTCLEAN? FORWARD? 

constantclean 

procedure scatterelbati forward? 
scattfRelbat 



02987000 T 
02987500 T 
03001000 T 

03002000 T 

03003000 T 

03004000 T 

03005000 T 

03006000 T 
03007000 T 

03009000 T 

03010000 T 

03011000 T 

03012000 T 

03013000 T 

03014000 T 

03015000 T 

03018000 T 

03019000 T 

03020000 T 

03021000 T 

03022000 T 

03023000 T 

03024000 T 
03025000 T 
03026000 T 

03027000 T 

03028000 T 

03029000 T 

03030000 T 

03034000 T 

03035000 T 



00031024210 
00031024210 
0003t0242t0 

00031024210 

00031024210 

00031024210 

00031024210 

0003«0242«0 
0003»02«2IO 

00031024210 

0003t0242l0 

0003I0242?0 

0003? 0242 ?0 

0003?0242>0 

00031024210 

00031024210 

0003t0242>0 

0003I0242<0 

0003I02A2I0 

0003l02ft2»0 

00031024210 

0003?0242IO 

00031024210 
0003?0242<0 
00031024210 

00031024210 

00031024210 

OOO3I0242I0 

0003t0242l0 

00031024210 

0003I0242?0 



PROCEDURF EMiTb(BRaNch»FROM, TOWARDS)! VALUE BRANCH» FROM, TOW ARoS I 
PRTM73) p FMITB 

INTEGER BRANCH. FROM#TOk»ARDSl FORWARD! 
PROCEDURE VARIABLECFROM)! INTEGER FROM! FORWARD! 
PRTf474) » VARIABLE 

PROCEDURE IMPFUNJ FORWARD! 
PRT(475) m tMPFUN 

PROCEDURE RlGHTfl.)! VALUE L? INTEGER L! FORWARD! 
PRTf476) « RIGHT 

PROCEDURE STREAMSTMT! FORWARD! 
PRT(477) m STREAMSTMT 

PROCEDURE SEGMENTSTART(B)!VALUE B!B00LEAN B!F0RWARD! 
PRT(500) ■ SEGMeNTSTART 

PROCEDURE SEGMENTf STZEfFR)! VALUE SlZE»FR! INTEGER SiZEfFRI FORWARD! 
PRTfSOl) m SEGMENT 



INTEGER PROCEDURE BAE! FORWARD! 
PRT(502) « BAE 

PROCEDURE PROGnESCBLDR(A.B,C»Dj!VALUE A»B.C»D! 
PRT(503) B PROGDFSCBLDR 

INTEGER A, CD! BOOLEAN B! FORWARD! 
PROCEDURE SANA! FORWARD! 
PRT(504) ■ RANA 

PROCEDURE FMlTNUMcA)! VALUE A! REAL A! FORWARD! 
PRT(505) s fMiTNUH 

PROCEDURE EMIT0(A.B,T)! VALUE A.B,T! INTEGER A,B,T! FORWARD! 
PRT(506) « EMiTD 

INTEGER PROCEDURE GETSPACEf S» l.) ! VAlUE S.^! 
PRTC507) • GETSPACE 

INTEGER L! BOOLEAN S! FORWARD! 
PROCEDURE FORSTMT! FORWARD! 
PRT(5lO) m fORSTMT 

REAL PROCEDURE TAKfcINDE^)! VaLUE INDEX! INTEGER INDEX! FORWARD! 
PROCEDURE E! FORWARD! 
PRT(5il) s E 

PROCEDURE ENTRYfTYPE)! VALUE TYPE!REAL TYPE! FORWARD! 
PRTc5i2) ■ ENTRY 

PROCEDURE PUTnBUMP(PI)! VALUE Pi! REAL Pi! FORWARD! 
PRT(5l3) ■ PUTNBUMP 

PROCEDURE JUMPChKNX! FORWARDj 
PRT(5l4) « JUMPCHKNX 

PROCEDURE JUMPCHKXl FORWARD! 
PRT{5l5) * JUMPchKX 

PROCEDURE DBLSTMT! FORWARD! 
PRT(5l6) m nBLSTMT 

PROCEDURE BLOCK(S)! VALUE S! BOOLEAN S! FORWARD! 
PRTf5l7) « BLOCK 

PROCEDURE PURGEfSTOPPER)»VALUF STOPPER!REAL STOPPER! FORWARD! 
PRTf5?0) m PURGE 

PROCEDURE FNTERfTYPEV)! 
PRT(5?n m ENTER 

VALUE TYPEV! 

REAL TYPEVIFORWaRD! 



03036000 T 0003l0242»0 

03037000 T 0003I0242«0 

03038000 T 0003I024210 

03039000 T 0003I0242«0 

03039500 T 00031024210 

03040000 T 0003I0242>0 

03041000 T 0003«0242t0 

03042000 T 00031024210 

03043000 T 00031024210 

03044000 T 00031024210 

03045000 T 00031024210 

03046000 T 0003»0242!0 

03047000 T 0003»0242'0 

03047100 T 0003t0242»0 

03048000 T 0003t0242<0 

03049000 T 0003«0242I0 

03050000 T 0003t0242l0 

03051000 T 0003»0242«0 

03051001 T 0003!0242»0 
03052000 T 0003I0242«0 

03053000 T 0003I0242«0 

03054000 T 0003I0242«0 

03055000 T 0003l0242«0 

03057000 T 0003I0242«0 

03058000 T 00031024210 

03059000 T 0003!0242«0 

03060000 T 0003!0242i0 

03067000 T 0003(024210 

03068000 T 00031024210 

03069000 T 00031024210 

03070000 T 00031024210 

03071000 T 0003!0242>0 

03072000 T 00031024210 

03073000 T 00031024210 



PRT(5?2) ■ EMITl 



COMMfNt this SrCTTON CONTAINS THE FMTTTERS. THEY ARE THE AGENTS WHICH 

ACTUALLY PROdUCf CODE AND DEBUGING OUTPUT; 
COMMENT EMITl EMITS A LIT CALL; 
PROCEDURE EMITl(LITERAl); VAlUe LITERAL; INTEGER LITERAL; 

EMIT(0»LITERAL[36J38»10]); 



03074000 
03075000 
04000000 
04001000 
04002000 
04003000 



T 00031024210 

T 000310242*0 

T 00031024210 

T 000310242*0 

T 000310242*0 

T 0003»0242»0 



04004000 T 0003«0242«0 



PRT(523) » rMlTO 



COMMENT EMITO EMIT AN OPERATqR; 

PROCEDURE emito(opfRatoR); Value operator; integer operator; 

EMlT{l&0PERAT0Rr36l38il0]); 



04005000 
04006000 



T 00031024410 
T 00031024410 



04007000 T 00031024410 



PRT(524) « rMlTC 



COMMENT EMITC iS PRIMARILY FOR USE BY STRMSTmT TO EMjT CHARACTOR MODE 
OPERATORS, HOWEVER IT AL^O HANDLES OIAt DIBt AND TRB; 
PROCEDURE FMlTCfREPEAT»OPERAToR); VALUE REPEAT, OPERATOR; 

INTEGER REPEATiOPeRATOR; 

Begin 

IF REPEAT^64 THEN FLAG(268); 
EMiT(0PERAT0R4RFPEATt36;42l6]) END EMITCI 



04008000 
04009000 
04010000 

04011000 
04012000 
04013000 
04014000 



T 0003»0246I0 

T 00031024610 

T 0003)024610 

T 00031024610 

T 00031024610 

T OOO31O246IO 

T 00031024810 



PRT(5?5) s FMITV 



COMMENT EMITV EMITS AN OPERAND CALL. IF ThE ADDRESS iS FOR THE SfCOND 

HALF OF The PRT, THEN IT ALSO EMITS A PRTE; 
PROCEDURE EMITV(ADDRESS); VAlUe ADDRESSI INTEGER ADDRESS; 

BEGIN IF ADDRESS > 1023 THEN EMITO(PRTE); 

EMlT(2 & ADDRESS t36l38li0]) END EMiTV; 



04015000 
04016000 
04017000 

04018000 
040i9000 



T 0003»0250I0 

T 00031025010 

T 0003»0250t0 

T 00031025010 

T 0003«0252'0 



PRTf5?6) « EMITn 



COMMENT FMITN fMITS A DESCRIPTOR CALL. IF THE ADDReSS IS FOR THE 

SfCOND HALF OF THE PRT. THEN IT ALSO EMITS A PRTfi 
PROCEDURE EMiTNf ADDRESS); VAlUF ADDRESS; INTEGER ADDRESS; 

BEGIN IF ADDRESS > I0p3 THEN EMITO(PRTE); 

EMIT(3 R ADDRESS t36«38»10]) END EMITN; 



04020000 
04021000 
04022000 

04023000 
04024000 



T 0003t0254t0 

T 0003»0254l0 

T 00031025410 

T OOO31O254IO 

T 00031025610 



PRT(5?7) 



COMMENT EMITPAIR EMITS A LITC ADDRESS FOLLOWED BY OPERATOR. IF THE 
ADDRESS IS FOR THF SECOND HALF OF THE PRT» THEN IT ALSO 
EMITS prtf; 

PROCEDURE EM I TPA I Rf ADDRESS, OPERATOR); 
FMITPAIR 



04025000 
04026000 
040?7000 
04028000 



T 00031025810 

T 00031025810 

T 00031025810 

T 0003(025810 



valuf address, operator; 
integer address, operatori 

BEGIN 

EMITl(ADDReSS)» 

IF ADDRESS > IO23 THEN EMITO(PRTE); 

EMiTO{OPeRaTOR) END EMiTPAlRl 



040?9000 
04030000 
04031000 
04032000 
04033000 
04034000 



T 0003J025BIO 

T 0003l0?5e>0 

T 00031025610 

T 0003J0258t0 

T 0003<0256I1 

T 00031026011 



PRTf530) c ADJUST 



COMMfNT ADJUST ADJUST L 10 ThE BEGlNiNG OF A WORD AND FlUUS IN ThF 

INERVeNING SPACF WITh NOPS, IT CHECKS STREAMTOG TO DECIDE 

Which sort Of nop to use> 
procedure adjust? 

BEGIN 



WHILE L'.r46«?3««0 DO EMIT(45)» 
END ADJUSTI 



04080000 T 
04081000 T 
04082000 T 
04093000 T 

04084000 T 
04085000 T 
04086000 T 
04087000 T 



00031026113 
00031026113 
00031026113 
0003*026113 

00031026113 
0003I0261U 
00031026113 
00031026512 



PROCEDURE EMITUNG) 
PRT(531) » fMITLNG 

BEGIN LABEL H 



IF NOT LINkTOg THEN GO TO El 
COMMENT GO TO E IF LAST THING fS A LINKJ 

IF GET(L) »» Then go TO El 

EITHER LAST EXPRpSSlON WAS CONDITIONAL OR THERE IS NO 
LNG OR RELATIONAL OPERaTORI 

IF GTl ♦ GET(L-l) ■ 77 THEN L * L"! 

LAST Thing was an lng - so cancel iti 

GTl,tft2«6]«2t AND 6Tl,[37l2]»0 THEN % AHA 

thiNg was a relational; 

BEGIN L*L-ll EMIT0(REAL(B00LEAN(GT1. [36110]) 
BOOLFANflF GTi,t40l2] 
COMMENT NFGATE THE RELATIONAL; fND ELSE 
E« EMiTOcLNG) END fMtTLNg; 



COMMENT 



COMMENT 

ELSE IF 
COMMENT LAST 



EQV 

B Then su else 463))) 



04098000 T 00031026512 

04099000 T 00031026512 

START OF SEGMENT *♦*♦*♦♦♦♦♦ 29 

04100000 T 00291000010 

04101000 T 00291000011 

04102000 T 00291000011 

04103000 T 00291000211 

04104000 T 00291000211 

04105000 T 00291000211 

04106000 T 00291000513 

04107000 T 0029f0005U 

04108000 T 0029|0009»3 

04109000 T 00291000913 

04110000 T 00291001211 

04111000 T 00291001513 

04112000 T 0029J0015I3 

29 IS 18 LONG. NEXT SE6 3 



STACKfF+2) a TL 



COMMENT EMITS EMITS A BRANCH OPERATOR AND 
PROCEDURE EMI TB( BRANCH I FROM. TOWARDS) I 

VALUE BRANCHfFROM, TOWARDS! 
INTEGER BRANCHfFROM. TOWARDS) 
BEGIN 

INTEGER TLI 



TL * LI 

IF Towards > fouled Then fouled ♦ towards; 

L t, FROM-2; 

6T] •. towards«from; 

IF towards, t*6«2l • 



ITS ASSOCIATED NUMBERI 



04113000 T 

04114000 T 

04115000 T 

04116000 T 

04117000 T 

041)8000 T 
START OF SEGMENT 

04119000 T 

04119500 T 

04120000 T 

04120100 T 

04120200 T 



00031026512 
00031026512 
0003(026512 
00031026512 
00031026512 
00031026512 

4i***4i*««»* 30 

00301000010 
00301000011 
00301000211 
00301000410 
00301000512 



Then begin 

BRANCH • BRANCH«il[39l47»ni 

gTI «. TOWARDS DIV « • (FROM-l) DIV 4 END* 
EMiTNUM(ABS(GTn)J 
EM f TO ( BRANCH* fSfALCfiTli )♦!) [ 4? I 46 » 2 J > I 



L 

END 



* TL 
EMITBJ 



04120300 
04120400 
04120500 
04121000 
04122000 
04123000 
04124000 
04125000 



0030 
0030 
0030 

0030 
0030 

0030 
0030 
0030 



1000610 

t0007»2 
tOOOSll 

1001113 
1001211 

10015)2 
1001512 
«00i5»2 



30 IS 19 LONG. NEXT SEG 



PRT(5323 • 



STREAM 

debugword 



COMMENT DFBUfiWORD EORMATS TWO FIELDS FOR DEBUGGING OUTPUT IN 
OcTALf NAMELY « 

1, 4 chaRacTfRs for The l Register. 

?il6 CHARAcTfRS FOR ThE WORD BEING EMITTED, I 
PROCEDURE DEBUGWORDf SfQiCODE.FE IL) I VALUE SEQ.COOE f 

BEGIN 

DUFEILJ SI* LOC StO; SU Sl+4i DS ♦ 4 CHRI 
DS ♦ 2 LiT" "J 
SI •■ LOC CODE I 

16C DS .. 3 RESET; 3C IF SB ThEN DS»SET ELSE 
DS * RESET ; SKIP 1 SB))> 
29(DS ♦ 2 LlT** •• )| 
END i 



04126000 
04127000 
04126000 
04129000 
041 30000 

04131000 
04132000 
04133000 
04134000 
04135000 
04136000 
04137000 
04138000 



00031026512 
00031026512 
0003l0265t2 
0003I0265«2 
0003(026512 



0003» 
0003i 
00031 
00031 
00031 
0003t 
00031 
00031 



026512 
026610 
026712 
026713 
026713 
026913 
0270U 
027113 



PRT(533) • 



procedure 
fmitword 



COMMENT EMITWORD PLACES ThE PaRAMETeR . '♦WORD". I NTO EDOC. IF 
DFBUggING is REQUIRED. "L" ANd •♦WORd" ARE OUTPUT ON 

The printer file in octal format. i 
emitword (word); value word* real word? 



BEGIN 

adjust; 

IF L> 4088 Then begin ERR(200){ L*0; END 
else BEGIN 
MOVEd.WORD. CODEfL DIV 4*i)); 
IF DEBUgTOr then 
BEGIN DEBUgWQRD(B2D(L).W0RD*LIN}; 

writeline end; 
fouled ♦ l * l+4; end 
end emitword* 



04139000 T 
04140000 T 
04141000 T 
04142000 T 



04143000 
04144000 
04145000 
04146000 
04147000 
04148000 
04149000 
04150000 
04151000 
04152000 



00031027113 
0003»0271«3 
00031027113 
00031027113 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1027113 
»0271I3 
1027211 
(027512 
1027712 
1028210 
t0282ll 
1026512 
1029513 
;0297t2 



COMMENT CONSTANTClEAN IS CALLED AFTER AN UNCONDITIONAL BRANCH HAS 
BEEN EMITTED. IF ANY CONSTANTS HAVE BEEN ACCUMULATED BY 
EMITNUM IN INFOrO,*]. CONSTaNTCLEAN WILL FIX THE CHAIN 
OF C-RELATIVE OPDC S LEFT BY EMITNUM, IF C*RELATIVE 
ADDRESSING IS IMPOSSIBLE (I.E. THE ADDRESS 
IF GREATER ThAN 1?7 WqROS) THEN THE CONSTANT ALONG WITH 
The 1ST LINK OF THE OPDC CHAIN IS ENTERED IN INFO. 



04153000 

04154000 
04155000 
04156000 
04157000 
04158000 
04159000 



00031029713 

00031029713 
00031029713 
00031029713 
00031029713 
00031029713 
0003>0297t3 



AT PURGE TIME THE REMAINING OPOC S ARE EMITTED WITH 
P -RELATIVE ADDRESSING AND CODE EMITTED TO STORE THE 
CONSTANTS INTO THE PROPER E-RELATIVE CEL.LS, ; 
PROCEDURE CONSTANTCIEAN ; 

IF MRCLEAN ThEN 
BEGIN 

INTEGER J*TEMPl»n,LlNK| 
PRTC534) m *SEGMfNT DEScRiPTOR* 

STACKfF+2) > J 

STACKfF+3) « TEMPt 

STACKfF+4) m D 

STACKfF+5) n LINK 



04160000 
04161000 
0416?000 
04163000 
04164000 
04165000 
04166000 



T 0003«0?97I3 

T 0003I0297I3 

T 0003»0297t3 

T 0003»0297t3 

T 00031029713 

T 00031029610 

T 00031029611 



STACKfF+6) « CRFL 



BOOLEAN CRElI 
LABEL ALLThU I 

FOR J * 1 STEP 2 UNTIL LASTENTRy 00 
BEGIN 

ADJUSTI TEMPL*LJ L*I NFOI 0,255-J+n I 

CREL «• FALSE! 

DO Begin 

IF 0*(TEMPL-L+3)DIV 4>128 THEN 
IF MODE t THEN 
BEGIN FLAG(50)I 60 TO ALLTHU END? 



START Of SEGMENT ♦♦♦♦*♦*»♦« 31 



04167000 T OO31JO0O0I0 



allthui 



PRT(535) » *SEGMfNT DESrRlPTOR* 



LINK»GET(L)I 
CRfL * TRUEJ 

TF MOdf * THEN fMiTVCD*768) eLSe 

fMiTV(REALCTEMPLS204B)x1024*TEMPL 01 V 
END UNTIL L* LINK » 4095 » 



4)1 



L 
IF 
ENDJ 

lastentry 
END ; 



TEMPL; 
CREL THEN 



0; 



EMITWOROC INF0t0.255-J ])| 



04168000 
04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
04175500 
04176000 
04177000 
04178000 
04179000 
04180000 
04181000 
04182000 
04183000 
04184000 
04184500 
04185000 
04186000 
04187000 
04188000 
04189000 
04190000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00311 
00311 
00311 
00311 
00311 
00311 
00311 
00311 
00311 
0031* 
00311 
00311 
003lf 
00311 
00311 
00311 
00311 
003lt 
00311 
0031t 
00311 
0031) 
00311 
003P 

oo3n 



OOOOIO 
000010 

ooooto 

0001)2 

0001)2 

0005)2 

0005)3 

0006)0 

0006)1 

0010)0 

0011)3 

0011)3 

0011)3 

0011)3 

OOJIU 

001113 

0013)2 

0013)3 

001610 

0019)3 

0021)2 

0022)1 

0025)3 

0026)0 

002611 



31 IS 33 LONGi NEXT SE6 



COMMENT EMITNUM HANqleS ThE EMISSION OF 
EXPLICIT AND IMPLICIT, IN 
PRODUCE CODE TO GET THE DE 
THE STACK, IF The NUMBER I 
SYLLABLE IS PROOUCFD. HOWE 
IN THE ZERO-TH ROW OF INFO 
POSITION. L, THE FIRST eMiT 
CONSTANT CAUSES THE VALUES 
TO BE STORED IN iNFOtO.*] 
IN REVERSE STARTtNg WiTh I 
ITS THE JOB OF CONSTANTClE 



CODE FOR CONSTANTS. BOTH 
EVERY CASE. EMITNUM WILL 
SIRED CONSTANT ON TOP OF 
S A LITERAL A SIMPLE LlTC 
VER.NON'LITERALS ARE KEPT 

WITH THE SYLLABLE 
NUM ON A PARTICULAR 

OF L AND THE CONSTANT 
(NOTE) ITEMS ARC STORED 
NF0[0.255].ETC,), THEN 
AN TO EMIT THE ACTUAL 



04191000 
04192000 
04193000 
04194000 
04195000 
04196000 
04197000 
04198000 
04199000 
04200000 
04201000 



0003) 
0003) 
0003) 
00031 
0003) 

0003 1 
0003) 
0003) 
0003) 
0003) 
0003) 



0303)2 
0303)2 
0303)2 
0303)2 
0303)2 
030312 
0303)2 
0303)2 
0303)2 
0303)2 
0303)2 



OPDC (SEE CONSTANTCLtAN 
PROCEDURE EMiTNUMf C ); VALUe C« REAL C; 
BEGIN LABEL F I N rSHEO.rOUND I 



PROCEDURE FOR DETAILS) I 
REAL Nl 



STACK(F*2) * N 



START 



IF C 
ELSE 



IF 



FOUND? 



FINISHEOJEND 



,tii37i»o Then emitl(C) 

BEGIN 

FOULeO ♦ Lj 

FOR N * 1 STEP 2 UNTIL LASTENTRY DO 

!NfO[0,255-N] « c THEN qO TO FOUND » 

INfO[0,255 •LASTpNTRY] * L; 

lNF0r0»255 -LASTfNTRY-i]* c i 

EMITN(1023)) 

IF MODE«0 THEN EMITOCNOPX 

LINKTOg*FALSe* 

IF LASTENTRY ♦ LaSTENTRY*2 > 128 THEN 
BEGIN 

c ♦ bumpl; 
constaNtcLeaNi 

EMiTBfBFW.C»L)J 

endj 

GO TO FtMSHEDJ 
FMiT(lNF0t0»255 -N+l])! 

LlNKTOG*-FALSEi 

lNF0[0,255-N + n«. L-lJ 

IF MOOEbO then EMIT0(N0P)» 

ENDS 

fmitnum ; 



0420P000 

04203000 

04204000 

OF SEGMENT 



T 0003«0303I2 

T 0003J0303»2 
T 0003<0303I2 



32 IS 



04205000 T 
04206000 T 
04207000 T 
04207500 T 
04208000 T 
04209000 T 
04210000 T 
04211000 T 
04212000 T 
04212100 T 
04213000 T 
04214000 T 
04215000 T 
04216000 T 
04217000 T 
04218000 T 
04219000 T 
04220000 T 
04221000 T 
04222000 T 
04223000 T 
04223100 T 
04224000 T 
04225000 T 
38 LONGt 



00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
00321 
0032« 
00321 
00321 
00321 
00321 
00321 
NEXT S 



000010 
000211 
0003«2 
000313 
000410 
000512 
OOIOIO 
00l2»l 
001513 
001610 
OOiSIO 
001912 
002011 
002112 

002312 
002313 
002411 
002411 
002512 
002811 
002913 
003312 
003512 
0035t2 
EG 3 



PRT(536) * SEARCH 



$TACKfF43) a N 
STACK(F+4) ■ I 



COMMENT Search performs a BINaRY search on the cop AND WOP 

arrays, given The operator bits search YIELDS The BCD 
MNEUMONIC FOR ThAT OPfRATOR. IF THE OPERATOR CANNOT 
BE FOUND SEARCH YIELDS BLANKS. 

NOTE* DIA»DIB»TrB ARE RETURNED AS BLANKS, i 
ALPHA PROCEDURE SEARCH fQ,KEY)» VALUE kEy» ARRAY QtO]J REAL KEY I 

BEGIN LABEL It 

COMMENT GTl AND GT2 ARE INITIALIZED ASSUMMiNq THAT Q IS ORDERED 
BY PAIRS (ARGUMENT. FUNCTION. ARGUMENT»FUNCTI0N»ETC.) 
AND THAT THE FIRST ARGUMENT IS IN OC43, FURTHERMORE 

The lengTh of e is 125, 1 

Integer n»i i 



N ♦ 64 ? 

for I ♦ 66 STEP IF Qtn<KEY THEN N ELSE • N 

WHILE N*N DiV 2 ^ 1 DO 
IF Qt I 3« Key THEN GO TO L I 

I ♦•01 COMMENT ARGUMENT NOT FOUND. SEARCHwQC 1 3 
SEARCH«-Qf I ♦!] ) 
END SEARCH > 



04226000 T 

04227000 T 

04228000 T 

04229000 T 

04230000 T 

04231000 T 

04232000 
START OF SEGMENT 

04233000 T 

04234000 T 

04235000 T 

04236000 T 

04237000 T 



00031030312 
00031030312 
00031030312 

0003I0303«2 
00031030312 
00031030312 

T 0003I0303J2 
*«*««*«#*« 33 
00331000010 
0033>0000l0 
00331000010 
00331000010 
0033>0000l0 



04238000 T 

04239000 T 

04240000 T 

04241000 T 

04242000 T 

04243000 T 

04244000 T 



0033'OOOOIQ 
OO33t0OOOtl 
00331000512 
00331000912 
00331001112 
00331001113 
00331001313 



33 IS 16 LONGf NEXT SEG 



COMMENT B2D CONVERTS ThF FOUR LOW ORDER OCTAU DIGITS TO flCD 
CODE » 
ALPHA PROCEDURE B?DCB)J VALUE B> REAL Bl 

B2n*0&B[A5»45l3)iRr39U2»3]RBr33«39l3]&Br?7l36J3] I 



04?ft5000 
04?46000 
04347000 
04?48000 



T 0003J0303I2 

T 00031030312 

T 00031030312 

T 00031030312 



PRT(537) B PACK 



COMMENT Pack is A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 
INTO THE EDOC ARRAY. THE SPfCiFIC ELEMENT OF EOOC 
IS PRECISILY « EDOCrrL DIV 4) DiV 128, (< DiV 4)M0D 1?8] 
SYLLABLE POSlTiON«(L MOD 4 ). WHERE L IS THE SYLLABLE 
NUMBER RELATIVE To THE BEGINNING OF THE SEGMENTI 
STREAM PROCEDURE PACK ( WORDjPqS I T I ON»SYLLABlE ) ) 



VALUE posiTion»syllable; 

BEGIN 

DI<-W0RD J 01 ♦• OUPOSITION I DI 

Si»L0C SYLLABLE I Sl«-SI+6) 

DS'«-2 CHR ; 

END PACK ; 



» di-^position; 



04?65000 
04266000 
04267000 
04266000 
04?69000 
04270000 

04271000 
04272000 
04273000 
04274000 
04275000 
04276000 



T 0003»03lll2 

T 00031031112 

T 0003l03n«2 

T 00031031112 

T 0003J0311I2 

T 0003»0311«2 

T 00031031112 

T 00031031112 

T 0003I0312»0 

T 00031031312 

T 00031031313 

T 0003(031410 



PRT{540) K DEBUr, 



STACKfF*2) a Tl 



COMMENT DFBUG PRINTS OUT OflJECT CODE IF "OEBUGN'' IS SETJ 
PROCEDURE DEBUGrS)! VALUE SI REAL S] 

PEGtN REAL Tl» 



04277000 T 
04?77500 T 



04278000 

START OF Segment 



PRTf541) X *LIST. 



IF singltog Then 

WRlTF(LlNr»BU6f B2DCL)» 
LABEL, OR SEGMENT DESCRIPTOR* 
IF STRpAMTOG ThEN 

SEARCH(C0P»S,t42«6]) 
ELSE IF Ti l = S,t46t2].l THEN 
ELSE W0P[Tn . IF STrEAMTog 



SEARCHCW0P.S.t36M0]) 

THEN 



B2D(S, [36163) EL^E IF Tj-l THEN WoPfl] 
ELSE B2D(S,t36«l0n»B2D(S)) 
ELSE WRlTE(LINE»BUGfB2D(L)# 
PRTC542) » ♦LIST, LABEL, OR SEGMENT DESCRIPTOR* 

IF STREAMTOG THEN 

SEARCH(COP»S, 142163) 
FLSf if Tn*S.t46l23al THEN 
ELSE WOP[Tn » IF STREAMTOfi 



0003)031410 
00031031410 



T 0003«0314»0 



SEARCH(W0P»S,E36tl03) 
THEN 



B2n(S,r36l63) ELSE IF Tr 
ELSE B2D(5,r36U03),B2D(S))l 
END DEBUGI 



1 THEN WOPfl) 



04278500 T 
04279000 T 

04279900 T 
04280000 T 
04280500 T 
04281000 T 
04281500 T 
04282000 T 
04282500 T 



00341000010 
00341000011 

00341000810 
00341000912 
0034l00l0ll 
00341001512 
0034t00l9i2 

003410023(2 
0034(002712 



04283000 T 0034(0036(0 



04283500 
04284000 
04284500 
04285000 
04285500 
04286000 



T 0034(0039(2 

T 0034(0040(1 

T 0034(0045(2 

T 0034(0049(2 

T 00341005312 

T 0034(0061(2 



34 IS 64 LONGt NEXT SCG 



COMMFNT 



emit places syllables into edoc, calls debug for 
ofburgtng output on The printfr* and checks for sfgmfnts 



Than 4093 syllables. 

; VALUE S; REAL S 



> 



I 



GREATER 

procedure EMiT f s ) 

BEGIN 

IF L < 4OB8 THEN 
BEGIN 

LINKTCG ♦ TRUE! 
PACKCCOOEfL DIV 4* 1 ) .L . £ 46 I 21 . S) I 
IF DEBUGTOG THEN DEBUgcS); 
L»L*1 J 
END ELSE 

BEGIN ERR(200); L»ll f^DI 
COMMENT ?00 fMTT * SEGMfNt GRfATER THAN 4093 SYLLABLES 
END fMIT t 



♦ I 



04288000 
04?89000 
04?90000 
04291000 
04292000 
04293000 
04294000 
04295000 
04296000 
04297000 
04298000 
04299000 
04300000 
04301000 
04302000 



T 0003i03l4IO 

T 0003<03l4t0 

T 00031031410 

T 00031031410 

T 00031031410 

T 0003»0314I0 

T 0003)03i5t3 

T 00031031610 

T 0003l03l7«2 

T 0003I0322U 

T 0003»0324U 

T 00031032513 

T 00031032513 

T 00031032913 

T 00031032913 



COMMENT 



EMITn EMITS THE DlAtDTBiTRB 
PRfViOUS SETTING OF ThE G-H 



PROCEDURE 



The CURRENT 
The APPROIATE 
IF BITS ARE 
EMITTED I 
EMITD(A»B,T)| 



SEQUENCE OF CODE. 
AND K-V REGISTERS 



IF THE G-HfK-V OR BOTH ARE ALREADY 

SYLLABlECS) ARE OMITTED 

To BE TraNSFEREO THEN NO SYLLABLES 

VALUE A,B»T I INTEGER A»B.TI 



THE 

is compared 
Set then 



ARE 



STACKfF+2) M Q 



begin label exlt.normal* 
Real qj 
IF T ■ 15 Then 

BEGIN 

IF A « 33 Then q * si? 

ELSE IF A # 18 THEN GO TO NORMAL^ 

IF B a 18 Then O «. Q + 256 

ELSE IF B »« 33 THfN GO TO NORMALI 

EMIT0(Q+197)J COMMENT — THIS GETS OUT FIXED FIELD? 

GO TO EXIT» 

ENDl 



NORMAL! 



04305000 
04306000 
04307000 
04308000 
04309000 
04310000 
04311000 
04311010 
START OF SEGMENT 
04311020 



IF T# THEN 
BEGIN 

EMIT(((DIALA«-A) DiV 6)x5l2 ♦ ( A* A MOD 6)x 64 + DIA)? 

EMIT(C(DIALB*B) OIV 6)x512 + C B* B MOD 6)x 64 + DIB)I 
EMiT(TRB*64j<T)| 



EXIT! 



END 
ENDl 



EMITD i 



35 IS 



043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
043 
2 



T 00031032913 

T 00031032913 

T 0003i0329t3 

T 00031032913 

T 00031032913 

T 00031032913 

T 00031032913 

T 00031032913 
<t>**<ti*>i>f *>!>* 35 

T 00351000010 



11030 
11040 
llOSO 
11060 
11070 
11060 
11090 
11100 
llllO 
1U20 
12000 
13000 
14000 
15000 
16000 
17000 
18000 
19000 
20000 
21000 
22000 
22100 
7 LONG* 



0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0015 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
NEXT 



lOOOOlO 
lOOOOIl 
1000112 
1000211 
(000512 
1000611 
i0009|2 
JOOlOll 
1001112 
10011*2 

looinz 

«00tll3 
1001210 
J0O12I0 
1001712 
1001712 
1002113 
1002313 
1002313 
1002313 
1002313 
1002313 
SEG 3 



PROCEDURE EMlTi(E,A.B)? VaLUf e»A»BI REAL EiAtB? 



04500000 T 00031032913 



PRT(543) « rMlTi 



STACKrF*2) « S 
STACKfF*3) * Tl 
STACKfF+ft) m T? 

PRTf544) » E:MiT?i 



BFGIN UABFL EXlT,iS; 
INlTEfiER S.Ti,T2» 

PROCEDURE EMTT2tCF»B)) VALUE E.BI 

REAL Zl 

BOOLEAN Bt 

BEGIN IF E • Then 

BEGIN IF B Then emito(Xch)» end 

ELSE BEGIN qTi » E.ADDRESSI 

IF E * E, CLASS < INTiD THEN 

EMlTV(GTl) 
ELSE IF C S INTARRAYID THEN 

EMiTPAlR(GTl,LOO) ELSE 
EMITNCGTl) 

fNo 

ENDJ 



START 



04501000 

Of segment 

04502000 



T 00031032913 
0m»***^i*** 36 

T 0036(000010 



04503000 T 00361000010 



04504000 
04505000 
04506000 
04507000 
04508000 
04509000 
04521000 
04522000 
04523000 
04524000 
04525000 
04526000 



0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 



tOOOOlO 
i 000010 
10000)0 
lOOOOU 

«0002M 
1000411 
(0006t0 
1000712 
1000611 
lOOlOlO 
lOOiHZ 
I00il«3 



PRTC545) 
PRT(546) 
PRTC547) 



LN 
FXP 
X TO 



THE I 



ISI 



IF B * THEN 

BEGIN EMIT21(E»FALSE)» GO TO EXIT ENO» 
IF STACKCT # THEN GO TO ISI 

IF B « 15 Then 

begin if a » 33 then 

begin fmit21(e. false)) 
emitco); emitocinx)! 
go to exitj 

fnoi 
IF A a t8 Then 

BEGIN FMIT(0)I 

EMlT21CEtTRUE)J 
EMIT0(197); 

go to exiti 
fNd> 

GO TO ISJ 

eNdi 

IF B S 10 ANn A+B « 48 ThEN 

BFGIN EMiT?l(E»FALSE)l 
EMiTLf2*B-l); 



EMiTO(LNO)l 
GO TO EXIT; 

END* 
ir (S • (48-A''B) MOD 6) + B i 

BEGIN EMn2l(E»FALSE)I 
EMiT(T2*(Tl#.A DIV 
EHiTCf (A+B-1) DIV 

GO TO exit; 
end; 



39 Then 

6)x5i2+(A MOD 6)x64*DlA); 
6 •T1+1)k512*64xS*37)| 



04526100 
04526200 
04527000 
04528000 
04529000 
04530000 
04531000 
04532000 
04533000 
04534000 
04535000 
04536000 
04537000 
04538000 
04539000 
04540000 
04541000 
04542000 
04543000 
04544000 



04545000 
04546000 
04547000 
04546000 
04549000 
04550000 
04551000 
04552000 
04553000 



0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 



JOOUU 
1001211 
1001411 
t00l6»0 
1001611 
1001810 
t 001913 
1002112 
i0021>3 
>0021I3 
1002210 
t0023l3 
1002411 
1002512 
1002513 
1002513 
1002610 
1002610 
1002811 
1003010 



0036 
0036 
0036 
0036 
0036 
0036 
0016 
0036 
0036 



1003312 
1003410 
1003411 
I0034U 
1003810 
1003913 
1004411 

1004913 
1005010 



EMiTfO); 

emit?he»true); 
emitd(a»<i8-b,b)j 



EXfTi end; 



36 IS 



0/J554000 T 
04555000 T 
04556000 T 
04557000 T 
04558000 T 
57 LONG. 



0036(005010 
003690051*2 
003610052(0 
0036t00S3l3 
0036»0053«3 
NEXT SE6 3 



PRT(550) » STEPIT 



COMMENT This Stction contains miscfllaneous Service routiNesi 

COMMENT STEPf AND ST^PiT aRE ShORT CALLS ON TABLEI 
PROCEDURE STEPlTJ ELCLASS * TABLE( I * I * D I 



05000000 
05001000 
05002000 



T 0003«0329I3 
T 0003*032913 
T 00031032913 



PRT(551) ■ STEP! 



INTEGER PROCEDURE STEPM STEpUELClASS*TABlE ( I *! ♦ 1 ) > 



05003000 T 0003J0332I1 



COMMENT TAKE FETCHS A WORq FROm INp-Ol 

Real procedure takf(inoex)i value tndexi integer indexi 
Take •■ infO[tndfx,linkR*index.linkc]» 



05004000 
05005000 
05006000 



T 0003(033610 
T 00031033610 
T 00031033610 



PRT(552) « PUT 



COMMENT PUT PLACES A WoRD INTO INFO» 

PROCEDURE PUTfWORD#INDEX)> VALUE WoRD»INDEXI REAL WORDiINDEX; 

INFOt INDEX. LINKR.INDEX.LINKCJ ♦ WORd; 



05007000 T 
05008000 T 



0003<0344i0 
OOO3IO344IO 



05009000 T 00031034410 



COMMENT FLAG FLAGS ERROR MESSAGES, COUNTS THEM AND SUPPRESS FUTURE 

ERROR MESSAGES UNTIL THE COMPILER THINKS IT HAS RECOVEREDI 
PROCEDURE FLASf ERRNUM); VaLUf fRRNUMI INTEGER ERRNUMJ 
BEGIN 
COMMENT WRITERRoR IS THE STREAM PROCEDURE WHICH ACTUALLY PRODUCES 
The ERROR MESSAGE ON THE PRINTERI 
STRFAM PROCEDURE WR I TERRORC ERRNUM. ACCUM, LI NE .COUNT .LSTSEO ) > 



PRT(553) » WRITERROR 



START 



VALUE 
BEGIN 



ERRNUM.COuNTl 



DI 
SI 

Si ♦ 
4(0S 
SI * 
Dl * 
OS «. 



"J* 

DS 



COMMENT 
«-WDS) 



CLEAR BUFFERl 



* line; 44C0S*2LIT" 

*lstseo» si * Sl-fli 
Line* os ♦ 2 wds* 

* 2 LiT '•XX«)| COMMENT SeT RIQHT MARGIN FL 
LSTSEO* DI •■ LSTSEQI Dl •> 01*81 OS * MDS* 
LINE* Dl * DI+8* COMMENT INDENT MESSAGE* 
13 LIT "ERROR NUMBER "* 



AG* 



05010000 
05011000 
050i?000 
05013000 
05014000 
05015000 
05016000 
OF SEGMENT 

05017000 
05018000 
05019000 
05020000 
05021000 
050?2000 
050?3000 
050?4000 
05075000 



T 0003I034BIQ 

T 0003*0348*0 

T 0003*0348*0 

T 0003*034610 

T 0003*0348*0 

T 0003*0346*0 

T 0003*0346*0 



T 
T 
T 
T 
T 
T 
T 
T 

r 



0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 



10000*0 
10000*0 
lOOOOtO 
t000lt2 
10002*0 
10002*1 
(0003*3 
*0004*l 
*0005*2 



SI 

ds 

SI 



♦ UOC ERRNUMI DS 
«■ 4 LIT " •• **i 

* ACCUMj 51 *■ Sl + 31 

comment place alpha 
•■ Lit ♦♦,•♦ 



• 3 OECI COMMENT CONVERT ERRNUMI 



END WRITERRORI 



DS 

IN 



♦ COUNT 

BUFFER* 



CHRI 



05026000 
05027000 
05028000 
05029000 
05030000 
05031000 



T 00371000712 

T 00371000713 

T 00371000610 

T 00371000912 

T 0037«0009«2 

T 0037»0009I3 



IF ERRORTOG THEN X DO NOTHING IF WE SUPPRESS MSSgS. 
BEGIN 

spectog «« falsei 

FRRORCOUNT I. ERRORCOUnT*! I COMMENT COUNT ERRORS* 
IF NOT LISTER ThfN 

BEGIN 

EDlTLlNt(LIN»FCR»L DIV 4,L. t 461 2] ,ME0IUM,0) | 
M0VE(l,INF0[LASTSEQR0W,LASTSEQUENCE]»UINri2])» 

IF nohfading Then oatimei writclinei 

ENOI 
COMMENT PRINT CARDIMAGE IF WE ARE NOT LlSTlNQl 

ACCUMtl] * Ql COMMENT RESTORE ACCUMULATOR; 
WRlTERR0R(ERRNUM,ACCUMtl]#LINt*]»Q,ri2»6], 
iNFOrLASTSEQROWfLASTSEOUENCEDI 
IF NOT NOHFADING THEN WRITeLINE I 

ERRORTOG * FALSE* COMMENT INHIBIT MESSAGESI 

IF punchTog then 

BERIN REAL Tl,T2,T3#T4> LABEU L»L1»EX1TI 
PRTC554) m *SEGMfNT DESCRIPTOR* 

STACKrF+2) m Tl 
STACKfF4.3) » T2 
STACKrF+4) » T3 
STACKfF+5) a T4 



05032000 
05033000 
05034000 
05035000 
05036000 
05037000 
0503B000 
05039500 
05039600 
05041000 
05042000 
05043000 
05044000 
05045000 
05046000 
05047000 
05048000 
05049000 



0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
00 37 



lOOlOiO 

lOOlOtO 
fOOiOll 
1001113 
i00l2ll 
1001312 
1001313 
» 001712 
1001913 
1003112 
I0031»2 
10031*2 
1003210 
10034*1 
10036*0 
*0047t2 
* 0046*0 
1004611 



START OF Segment ♦*♦♦♦♦♦♦*♦ 



38 



PRT(555) « PI 



STREAM PROCEDURE Pl(L«P)i VALUE Pt 

BEGIN DI ♦ LJ 15(0S*8LIT" •• ) » 
SI *- LOC Pt DI*L* Sl^SUSl SKiP 3 SB* 
5 

(DS*3 RfSeT;3(IF SB THEN DS*SfT EUSf 0S*ReSfT I SK I P 1 SB))* 
SI»PI 

DI*DI+2| 2C8 

fOS«-3 RfSfT>3(IF SB THEN DS«-SfT EISf DS*ReSfT» SKI P 1 SB))* 
DS*LIT« ♦♦) END* 



05050000 T 0036*0000*0 



05051000 
05052000 
05053000 
05054000 
05055000 
05056000 
05057000 
05058000 



00381 
00381 
00381 
00381 
0038* 
00381 
0038* 
0038* 



000010 
0002*0 
0003*2 
0003*2 
0005*3 
000610 
0006*1 
0009*2 



PRT(5563 m P2 



STREAM PROCEDURE P2(L»P)* VALUE P* 

BEGIN DI-L* DI *D I +26 * dS«.lI T^O"! 
Sl*P* Sl»Sl-2* SKIP ISB* 
3 

(DS*'3 RfSfTj3(TF Sr TheN DSfSpT eLSf DS*RESpT *SKI P 1 SB))* 
END* 



05059000 T 0038*0010*0 



05060000 
05061000 
05062000 
05063000 
05064000 



T 0038*0010*0 

T 0038*0012*0 

T 0038*0012*1 

T 0038*0012*1 

T 0038*0015*3 



PRT{557) • ABS 



REAL STREAM PROCEDURE ABS(A); ValUE A> 

BEGIN DI *■ LOC ABS| Sf *aI DS» WqS J 1 ••DI -8» DS«-RE5eT END; 



05065000 T 00381001513 
05066000 T 0038l00l5«3 



STREAM PROCEDURE BI TEOUST ( X . N» I 0» L lNE» COUNT ) I VAUUE IDtN, COUNT; 
PRT{560) « STTEDUST 

BEGIN LOCAL TiFtHJ 

0I«-L0C F; SNLlNEl DS*WDSlDI*F» 
5UL0C tDISI«.SI + ?;dS* 6CHRI 57(DS»? LiT" ♦• ) ; 
Si «. LOC COUNT |Si*SU6 1 
Dl ♦LOC H i DS •WoS I 

01 ♦ LOC LINE I Si * Hi 
SULOC XjSKiP 2 SB> 

IF SB Then 

BEGIN SI*XI T*Si; 
Nf 
DT*LOC Ft SI«.LiNej DS*WDSinl*Fi 
SI* LOC count; Si*SI*6| 
a 

fDS»-3 RpSETnclF Sg THEN DS*SrT ELSf 0S*ReSeT I SKI P 1 SB))» 

OS*? LIT" »; Si*COUNTI Sl*S!+48JC0UNT*Si; 
SUTI 

6(?(8 
fDS*3 ReSeTS3(IF SB THEN DS*SeT ELSE DS*RESeT I SK I P 1 SB))* 
DS* LIT" ••)| dS*LIT" " )» 

DI ♦ LOC LINE » Si •- Hi 
SI*TlSuSl4.48lT»Sn;END ENDI 



05067000 T 003BI0018IO 



05068000 
05069000 
05070000 
05071000 
0507U00 
05071200 
05072000 
05073000 
05074000 
05075000 
05076000 
05077000 
05078000 
05079000 
05080000 
05081000 
05082000 
05083000 
05084000 
05085000 
05086000 



T 00381001810 

T 00381001912 

T 0036(002010 

T 0038I0021»3 

T 00381002210 

T 0038(002211 

T 0O38<0023>2 

T 00381002313 

T 00361002410 

T 00381002512 

T 00381002610 

T 0038<0027t2 

T 0038(002713 

T 0038I0027J3 

T 00361003011 

T 003810031*3 

T 0038«0032«0 

T 0038I0032»1 

T 00381003512 

T 00381003611 

T 00381003712 



BITEDUST(ERR0RC0UNT» 63 ."PRT ".LlNEt 21)1 
FOR TU STEP 1 UNTIL 3loO RITEDUST t iNfO [ Tl »* J , 43i " INFO ".LlNcO* 
BITEDUST( ELBATr*]f U.^ELBaT ".LlNEtOJl 

B|TEDUST(STACKHEAD[*]»21»"STHEAD''»LINE#0)I 
Ti«.MKABS(ERRNUm)-i J T3*Tll 
L» T?*ABS(T3)J 

IF T?.[33I15]«0 THEN BEGIN T3*T2, [ 18 1 1511 

IF T3«o Then go to exit else go to l end i 

T4 ♦ IF T2.f33ll51 < 512 ThEN fLSE T2 . t 33 I 15 3»T2[ 30 I lOl 2 J | 
L.HP1CLIN[0]»T1)IIF T1«T3 THpN BEGIN IF Ti«0 THEN P2( LI Nt 0] . T4 ) > 
Tl*Tl-ll 

writelinei 

T3*T2,[l8ll5]JG0 TO L ENDI 

Tii»Ti-ii write^ine; 

GO TO Lll 
EXiTJ END I 
PRT(56n » *SEGMeNT DESCRIPTOR* 

END END FLAGI 



05087000 
05088000 
05089000 
05090000 
05091000 
05092000 
05093000 
05094000 
05095000 
05096000 
05097000 
05097500 
05098000 
05099000 
05099100 
05100000 



38 IS 106 LONG* 

05101000 T 

37 IS 53 LONGf 



00381003811 
00361004113 
00381004913 
003810052*1 
003610055*3 

0036*0056*1 
0036*006011 

003810063*3 
00381006513 
0036*0070*0 
003610076*0 
0036*007712 
0036*0091*2 
0036*0093*2 
00381010411 
0038«0l05»2 

NEXT SES 37 

0037*0050*0 
NEXT SES 3 



LABEl ENOOflTAULi 
COMMfNt FRR.IS THr SAMf as flag except that fT MAKES AN 
RrCOVER FROM ERROR SITUATIONS BY SEARCHING 

Semicolon, eno» or begini 

PROCEDURE ERRfERRNUM)! VAlUE ERRNUm* INTEGER FRRNUMI 
BEGIN FLAGCERRNUM)! 

I ♦ i-i; 

IF ERRNUM 9 200 THEN I l» I/O; 

IF ERRNUM 9 6U THEN I I. l/Ot 

DO IF STEP? « BEGINV THEN STMT 

ELCLASS • ENDV OR ELCLASS • 



ATTEMPT 
FOR A 



TO 



t SEGMENT TOO LARGE. 

X ERRMAX EXCEEDED, 

UNTIL 

SEMICOLON END FRR| 



05101100 
05J02000 
05103000 
05104000 
05105000 
05106000 
05107000 
05107100 
05107200 
05108000 
05109000 



T 00031034610 

T 0003»0348IQ 

T 0003>0346I0 

T OOO31O34BIO 

T OOO31O346IO 

T 0003t0346<0 

T 00031034913 

P 00031035112 

P 0003«0353»3 

T 00031035610 

T 00031035610 



DEFINE ERROR « ERR#; COMMENT ERROR IS A SyNONM FOR ERR< 
COMMENT CHECKER IS A SMALL PROCEDURE THAT CHECKS TO SEE THAT THE 

UPLEVEL ADDRESSING CONVENTIONS ARE OBEYED* 
PROCEDURE CHECKERrELBATWORO)! VALUE ELBATWORDI REAL ElBATWORDI 
PRTC562) «B CHECKER 

BEGIN 

IF MODE i 2 THEN 

IF GTl ♦ ELBaTWORO.LVL S FRSTLEVEL THEN 

IF GTl < SUBLEVEL THEN 
IF ELBATW0RD.[9»2] ^ j 

THEN BEGIN FLAgCIOUI pRRORTOG * TRUE END 
END CHECKER* 



05110000 
05111000 
05112000 
05113000 

05114000 
05115000 
05116000 
05117000 
05118000 
05119000 
05120000 



T 00031036011 

T 0003t0360ti 

T 00031036011 

T 00031036011 

T 0003»0360»l 

T 00031036011 

T 0003J0361I3 

T 0003l0364t0 

T 00031036512 

T 00031036611 

T 00031036912 



COMMENT GiT iS USED To OBTAfN ThE INDEX TO ADDITIONAL 
GIVEN THE LINK TO THE ELBAT WORDI 
INTEGER PROCEDURE GlTCL?* VAlUE L; REAL It 
SIT ♦ TAKECD.INCR + L.LINK* 



INFORMATION 



05121000 
05122000 
05123000 
05124000 



T 00031036912 

T 00031036912 

T 00031036912 

T 0003t0369>2 



STACKrF*3) 



COMMENT GNAT IS USED TO ObTAtN THE PRT ADDRESS OF A GIVEN DESCRIPTOR. 

IF Thf ADDRESS HAS NOT BEEN ASSIGNED. THEN iT USfS 

GETSPACE TO OBTAIN THF PRT ADDRESSI 
INTEGER PROCEDURE GNAT(L3l VALUE LI REAL LI 

BEGIN 

REAL Al 



IF GNAT ♦(A*TAKe(L)),ADDRESS»0 

Then PUTCA&(GNATlBGETSPACE(TRUE»L,LlNK+l)>Ci6»37lin»L) 
END GNATI 



05125000 T 

05126000 T 

05127000 T 

05128000 T 

05129000 T 

05130000 T 
START OF SEGMENT 



0003I0375J2 
0003«0375«2 
0003»0375»2 
00031037512 
OOO3IO37512 
0003>0375i2 



*4ii(i4t4i««4t** 



39 



39 



05131000 T 

05132000 T 

05133000 T 

IS 10 LONGi 



00391000010 

00391000210 

00391000712 

NEXT SEG 3 



Real procedure takffrstj 

PRT(563) * TAKEFRST 



05188000 T 00031037512 



TaKEFRST «. TAKEfELBATr n.LlNK + EUBATfl ],INCR)J 



05189000 T 0003«0375«2 



PRT(56fl) » STUFFF 



COMMENT STUFFF DIALS THE F-RfGtSTer INTO THE F-REGISTfR FIELD OF A 

descriptor, the descriptor remains on the top of the 
stack; 

PROCEDURE STUFFF(ADDRESS)| VaLUE AODRESSi INTEGER ADORESSI 



BEGIN 



EMITpA1R(A0DRESS,L0D)> 
EMlTN(5l?)l 
EMiT0c33»l8»l5) END STUFFFJ 



05196000 T 
05197000 T 
05198000 T 
05199000 T 

05?00000 T 
05201000 T 
05202000 T 
05203000 T 



00031036112 
00031038112 
OOO3IO38II2 
0003>036ll2 

OOO3IO381I2 
OOO3IO381I2 
00031036312 
0003>0383>3 



PRT(565) » LOCAL 



comment local is used to see whether or not a label is local to our 

present code! 
boolean procedure loc al( elba tword ) » 

valuf elbatwordi real elbatword; 

BEGIN !F ELBATWORo.LVL » LEVEL AND 

NOT BOOLEANfELBATWORD. FORMAL) THEN 
LOCAL ♦ TRUf end LOCALI 



05200000 T 
05205000 T 
05206000 T 

05207000 T 

05208000 T 

05209000 T 

05210000 T 



00031036512 

00031036512 
00031036512 

00031036512 
0003t0385l2 
00031036712 
0003t0368t 1 



COMMENT PaSSFORMAT COMPILES CODE ThAT PASSeS A FORMAT, TWO ITEMS ARE 
PASSED - THE ARRAY REFERENCING FORMAT TABLE AND THE 
STARTING INDEX, THE ROUTINE HANDLES SUPERFORMATS ALSOI 

PROCEDURE passformat; 
PRT(566) « passformat 

BEGIN INTEGER AdRfSI 



05211000 T 
05212000 T 
05213000 T 
05214000 T 



STACKfF4.2) s ADSeS 



05215000 
START OF SEGMENT 



CHECKERft:L8AT[I])» 

ADRES ♦ ELBATin. ADDRESS; 

ie b00lean(elbatr i], formal) 

Then begin emiTV(Adres); adres * aores-i end 

ELSE BEGIN 

IF TABLEd) » SUPERFRMTID 

THEN eMITl(TaKEFRST) ELSE EM I TL(ELBAT [ I ] . INCR) 

end; 

IF TaBLe(I) • SUPERFRMTID 

Then begin bana; i «• i-i; 
EMiTOfSse); emiTO(ado); emiTv(aoReS) end; 
emitpair(adRes.lod) end passformat; 



0003t0392<0 
00031039210 
0003t0392>0 
0003t0392t0 



T 0003»0392«0 



iii*****^**^ 



40 



40 IS 



05216000 T 
05217000 T 
05218000 T 
05219000 T 
05220000 T 
05221000 T 
05222000 T 
05223000 T 
05224000 T 
05225000 T 
05226000 T 
05227000 T 
21 LONG. 



0040t0000t0 
00401000112 
00401000211 
0040I0002M 
00401000610 
0040(000611 
00401000712 
00401001010 
00401001112 
0040l00l2t0 
0040t00l4il 
0040l00i7l2 
NEXT Seq 3 



COMMENT STReAmWORdS EITheR RESERVfS OR UNRESeRVeS STREAM RESERVED 
WbRDS - IT COMPLEMENTS THEIR STaTE; 



05228000 
05229000 



T 0003t0392«0 
T 00031039210 



PRT(567) ■ 



PROCEDURE 

streamwords 



STREAMWOROSI 

Begin rTi •• o; 

DO BEGIN 

INF0ri»GTn.LtNK*STACKHEADt6T2*(T*INF0ri#GTn), ADDRESS]) 

STACKHEA0[GT2] » T.lINKI 

GTi «. GT1 + 2J 
END UNTIL B00LEAn(T. FORMAL) END STREAMWOROSI 



05?30000 T 0003I0392«0 



05231000 
05232000 
05233000 
05234000 
05235000 
05236000 



T 00031039210 

T 0003«0393»3 

T 0003t039ai0 

T 0003«0398ll 

T OOO3IO4OII3 

r 000310403(2 



procedure prognrscblnr(prtadr»sav»stze»type); 

value prtadr»sav»si7e»type) 

integfR prtadr.size»type; boolean savi 

BEGIN PRTA0R*PRTAdR.C38Ii0]| 

IF SaV then BEGTN PRTrPRTADR] ♦ ( IF TYPE » LDES 

THEN Size flse coraoR) 

RSiZEr8«38llO]RTYPE[l«43l53&3t6«46t21l 

IF type#ldes Then coradr*coradr*size> 
end 

ELSE BEGIN PRT fPRT ADR] «.0&Dl Sk ADRf 1 8 » 33« ISJ &S IZEt 8» 38 1 1 03 

«TYPEtl«43»53&ir6«46l21l 
DlSKADR»(SIZE+29) DIV 30+DlSKADRl 
END! 

END progdescbldr; 



05237000 
05238000 
05239000 
05240000 
05241000 
05242000 
05243000 
05244000 
05245000 
05246000 
05247000 
05247500 
05248000 
05248500 
05249000 
05250000 
05251000 
05252000 
05253000 
05254000 
05254500 
05255000 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1040411 
1040411 
1040411 
1040411 
104041 1 
104041 1 
1040411 
1040411 
104041 1 
1040411 
1040411 
1040411 
1040610 
1040810 
1041010 
I04l3«3 
1041610 
1041610 
t04l9t3 
i0422>0 
1042410 
(042410 



PRT(570j u 



BOOLE 

ootsyntax 



COMMENT DOTSYnTAX ANALYSES THE SYnTaX OF A PARTIAL WORD DESIGNATOR, 

it reports if an error is found, it returns with the 
Literals involvfdi 

AN procedure DOTSyNTaXCfIRST, SECOND)! 



INTEGER FlRST.SpCONDI 
BEGIN 

LABEL EXlTj 

IF STEPI m FlELDID THEN % GET INFO FROM INFO 
BEGIN 

FIRST t» ELBATrn.SBlTFI 
SECOND «» EUBATtn.NBITFl 
GO TO EXiTi 
END 
ELSE 

IF ELCLASS • LFTbRKET THEN 
IF STfPi « FlELDID ThEN 
BEGIN 

FIRST l« ELBATtI],SBlTF» 



05267000 T 
05268000 T 
05269000 T 
05270000 T 



0003»0424ll 
00031042411 
0003(042411 
00031042411 



»112- 
«U2- 
X112» 
1:112- 

X112- 

«112* 
«112- 
Xtl2- 
fll2- 
J!112« 



05271000 T 0003«0424ll 

05272000 T 0003»0424ll 

05273000 T 0003«0424ll 

START OF SEGMENT *««*****«« 41 

05273100 C 00411000010 

05273200 C 0041»0001«2 

05273300 C 0041(000113 

05273400 C 004110003(2 

05273500 C 0041(0005(2 

05273600 c 0041(0005(3 

05273700 C 0041(0005(3 

05273800 C 0041(0005(3 

05273900 C 0041(0006(1 

05274000 P 0041(000810 

05274100 C 0041(0008(1 



Second i« elbatcilnbitfi 

IF StEPI • RTBRKET THEN 
GO TO EXiTi 
END 
ELSE 

IF FtCLASS • LiTNO ThEN 
IF STEP! « COLON THEN 
IF STEP? * LiTNO THEN 
IF STEPi ■ RTBRKfT then 
COMMENT IF TESTS ARe PaSSeD THEN SYNTAX IS CORRECT) 

IF (FIRST ♦ ELBATt 1-3], ADDRESS) x 

(Second ♦ rL8ATci-n,ADDRESS)#o then 
IF FIRST ♦ Second s <»b then 

TESTS ARE PASSED THEN RANGES OF LITERAUS ARE O.K.I 
60 TO EXfTl 
ERR(1U)> COMMENT eRROR IF 
DOTSYNTaX ♦ TRUE) EXIT) END 



COMMENT IF 



X112- 
X112- 
S!112- 
«112- 
X112- 
XI 12- 



SYNTAX OR RANGE FAILS) 
DOTSYNTAX) 



4t IS 



05?7A?00 




004] 


ItOOlOll 


05274300 




0041 


It00l2l0 


05274400 




004] 


11001312 


05274500 




004] 


It00i3l3 


05274600 




0041 


11001313 


05275000 




004] 


Lt00l3t3 


05276000 




004] 


11001512 


05277000 




004] 


10016)1 


05278000 




004] 


1)001810 


05279000 




004] 


It00i9l3 


05280000 




0041 


1001913 


05281000 




004] 


[10022)0 


05282000 




004] 


1)0025)2 


05283000 




004] 


»0027t2 


05284000 




004] 


lf0027)2 


05285000 




0041 


)0027)3 


05286000 




004] 


)002B)0 


32 LONf 


i* 


NEXT 


SC6 3 



PRT(571) • RANGE 



BOOLEAN PROCFDURE RaNGE( LOWER » UPPER ) I 

VALUE LOWER. UPPER) 
REAL L0WER»UPPER) 
COMMENT RANGE TESTS ThE CLASS 
|T IS GRfATfR than OR fOUAL TO 

iiPPfR and SETS Range to true or 

CLASS MUST BE iN ELCLASS) 
RANGE*ELCLASS i LOWfR and ELCLASS 



OF THE ITEM iN ELBATtU TO SEF 

LOWER OR LESS THAN OR EQUAL TO 

FALSE ACCORDINGLY. THE ITEMS 



S UPPER) 



IF 



05287000 
05288000 
05289000 
05290000 
05291000 
05292000 
05293000 
05294000 
05295000 
05296000 
05297000 

05296000 
05299000 
05300000 
05301000 
05302000 
05303000 
05304000 



0003) 
0003) 
00031 
00031 
0003) 
0003) 
00031 
0003) 
00031 
00031 
0003) 



0424) 
0424) 
0424) 
04241 
0424) 
0A2«) 
0424) 
0424) 
04241 
0424) 
0424) 



0003 
0003 
0003 
0003 
0003 
0003 
0003 



)0424) 
(0424) 
)0424) 
104241 
)0424) 
) 04241 
)0424) 



COMMENT GET OBTAINS A 
EMITTED) 
INTEGER PROCEDURE GET(L>I 
BEGIN 

INTEGER STREAM PROCEDURE 



SYLLABLE FROM EDOCt THE ARRAY INTO WHICH CODE IS 
VALUE L» REAL L» 

6etsyl(w»s)) value S) 



PRTt572) « gETSYL 



BEGIN DI ♦ LOC GETSYL) DI ♦ 01+6) 

Si «• W) Sf •, SuS) Si * SmS) 



OS * 2 ChR END) 



05305000 T 

05306000 T 

05307000 T 

05308000 T 

05309000 T 
START OF SEGMENT 

05310000 T 

05311000 T 



0003)0429)2 
000310429)2 
0003)0429)2 

00031042912 
0003)0429)2 



**«****«** 



42 



0042)0000)0 
0042)0000)1 



r,rT4.GETSYL(C0DF( 



L DIV 4+1), L.t'**!?])! END GETJ 



«2 IS 



05312000 T 
12 LONGt 



00421000312 
NEXT SEG 3 



COMMENT CAUL SWITCH Pe«FORMS THE FINAU MESS OF GETTING A PROPfR DE- 
SCRIPTOR TO THE Top Or the stack; 

PROCEDURE CAULSWITCH(H)» VALuE Ht REAL H) 
PRT(573) ■ CALLSWITCH 

BFGIN FMITV(GNAT(H))| EMITQCPRTEJI EM!T0(L00) END CALLSWITCHI 



05313000 
05314000 
05315000 



T 00031042912 
T 0003(042912 
T 00031042912 



05316000 T 00031042912 



PROCEDURE WRTTEPRT(PORS,N,gS)| VALUf P0HS,N,GS; INTEGER PORS»N,fiS> 
PRT(574) « wRITfPRT 

BEGIN 
LABEL FXITI 



05317000 T 0003l0433»2 

0531S000 T 00031043312 

05319000 T 00031043312 

05320000 T 0003«0433»2 

05321000 T 0003l0433»2 

05322000 T 0003l0433«2 

05323000 T 0003l0433»2 

05324000 T 00031043312 

05325000 T 00031043312 

05325010 T 00031043312 



PRT(575) « riLLiT 



STREAM PROCEDURE F ILL I T ( L tN.PORS* CELL. N, I 0) » 



05325020 

05325030 

START Or SEGMENT 

05325040 



T 0003»0433«2 
T 00031043312 

T 00431000010 



VALUE PORS.CELL»Nl 



BEGIN 
LOCAL 
LABEL 
St «*L 
TF SC 

ELSE 



SM»L 
3(IF 

COUNT 
DStB4 
CT««»C 
GO MO 



GO 
GO 
GO 
GO 
GO 
60 



Ml 

M2 
M3 
M4 
M5 
M6 



COUN 

MOfM 

Oc PC 

BEGIN 
BEGIN 
0SU5 
IF Sc 
COUNT 

OS;*] 

ENDI 
OC CE 
SCP^O 
BEGIN 
»«TAL 
LIT" 
I+NI 
I 
I 
I 
I 
I 
I 
» 



T» 

lfM2»M3,M4,M5#M6.M7»XlT» 
RSI S1USU3> DIf«LlN; X 
THEN 

DSi«3 CHRI DSI.LiT^CI 



•PRT** OR "STACK", 
END 



ChR) OSJ^LIT^Cl SII»L0C CELLJ Si:.SU5l 

i^e- Then dSi«2 liT"f-" else dsi»2 lit^f*"] 

tmDlt Oll«i,OC CELLI Dll.DI+41 
1 RESETi D|I«COUnTI 

LLI SllpSl+4| TALLYI»4| % LOCATION, 
" THEN % DONT print LEADING ZEROES, 

SlIwSuii TaLLYI«TaLLY*63 END ELSE JUMP OUT)l 
LYI DSUCOuNT CHRI TALLYI»0| COUNTIhTALLYI 
) » ••» CELL»«OII % SAVE OUR PLACE, 



05325050 T 0043*000010 

05325060 T 00431000010 

05325070 T 00431000010 

05325080 T 0043J0000I0 

05325090 T 0043I0000J0 

05325100 T 00431000011 

05325110 T 00431000112 

05325120 T 00431000211 

05325130 T 00431000211 

05325140 T 00431000410 

05325150 T 00431000513 

05325160 T 00431000611 

05325170 T 00431000712 

05325180 T 0043«0007t2 

05325190 T 00431000713 

05325200 T 00431000811 

05325210 T 00431001112 

05325220 T 0043«00l2t0 

05325230 T 0043l00i3»2 

05325240 T 0043l00l3l3 

0S3252S0 T 0043l00i4t0 

05325260 T 0043l00l4l0 

05325270 T 0043l00l4tl 

05325280 T 004|i00l4ll 

05325290 T 00431001512 

05325300 T 00431001512 



PRTC5763 
PRT(577) 
PRT(600) 

PRTC601) 



MOi 



Ml « 

M2t 

M3« 

M4l 
♦LIST. LABEL, 

M5i 
*LI5T, LABEL, 

M6» 
*LIST, LABEL, 

M7t 

*LlST, LABEL, 
XITJ 



'COUNT CHRI 

GO XITJ 



PRTC602) » *LIST, LABELi 



60 M7| 

si««ir); sii«si+2j Dn«LOc count; 

n!t8DT+7; nSl*CHR| Df«aCELL> DSli 

GO XiT> 

DI««CELLI 0Sli.l9 LlT»»TEMPoRARY STORAGE*"* 

01 ««CELL? 

DSI.36 LIT^^LIST* LABEL. OR SEGMfNT DESCRIPTOR*"* GO XIT; 
DI»»CPLL» 0Sls27 LIT'«*CASE STATEMENT DESCRIPTOR*"* GO XlTl 
Di:»CELLI DSl»l9 UlTt*rORMAT DESCRIPTOR*"* GO XIT* 
OR SEGMENT DESCRIPTOR* 

DT»»CELL* DS««i24 LlT»*OUTER BLOCK DESCRIPTOR*"* GO XIT* 
OR SEGMENT DESCRIPTOR* 

Dn«CCLL* 0Sl«20 LlT«»*SEGMrNT DESCRIPTOR*"* GO XiTj 
OR SEGMENT DESCRIPTOR* 

Dt«»CELL* DSl«i8 LlT"*LABEL DESCRIPTOR*"* 
Oft SEGMENT DESCRIPTOR* 

END FILLIT* 

OP SEGMENT DESCRIPTOR* 



05325 
05325 
05325 
05325 
05325 
05325 
05325 
05325 
05325 



310 
320 
330 
340 
350 
360 
370 
380 
390 



0043 
0043 
0043 
0043 
0043 
0043 
0043 
0043 
0043 



t00l5t3 
1001513 
1001611 

tooieio 

lOOiBlO 
1002210 
10023*2 
1002610 
*0033<2 



05325400 T 0043l003^«2 



05325410 T 

05325420 T 

05325430 T 

05325440 T 



004310041*3 
0043*0045*2 

0043*00461 1 
0043*0046* 1 



BLaNKeT(14,LIN)* 

IF N«1 Then FlLLlTdlN.PoRS.GS.O.ACCUMrlJ) 
ELSE IF N>l THEN F I LL I T ( LI N, PORS.GS, 0. I NFOf N. L I NKR , N, LI NKC ] ) 
ELSE FILLiT(LiN,PORS.gS.ABS(N),N)* 

IF NOHFADlNfi ThEN DATIME* WRITELINE* 
END WRtTEPRT* 



05325450 
05325460 
05325470 
05325480 
05325490 
05325500 



T 0043*0049*2 

T 0043*0051*2 

T 0043*0055*3 

T 0043*00^3*2 

T 0043*0067*3 

T 0043«00r9*2 



43 IS 80 LONG. NEXT SEG 



PRT(603) » OOIT 



COMMENT RETSPaCE MAKES ASSIGNMENTS TO VARIABLES AND DESCRIPTORS IN 
The STACK AND PRT, PERMANENT TELLS WHETHER IT IS A 

permanently assigned cell calways in prt) or not. non 
Permanent cells are etTheR in stack or prt according to 

MODE. CARE iS TAKEN TO REUSE NON PERMANENT PRT CFLLSJ 
integer PROCEDURE GE TSPACE f PERMANENT. L) ' VALUE PERMANENT. L' 

BOOLEAN Permanent; integer l* 

BEGIN LABEL Ll»L2,EXiT; 

STREAM PROCEDURE DO I T ( C » A» I » S ) * VAlUE C»A* 



05326000 T 0003*0433*2 



05327000 
05376000 
05329000 
05330000 
05331000 
05333000 
05334000 



T 0003*0433*2 

T 0003*0433*2 

T 0003*0433*2 

T 0003*0433*2 

T 000310433*2 

T 0003*0433*2 

T 0003*0433*2 



START OF SEGMENT *«♦**♦*♦*• 44 
05334100 T 0044*000010 



BEGIN LOCAL N» 
Dl«-St DS*8 

Sl«-I* 
Dl«-Sl 
Si*i; 



LIT" "; SuS; DS»9 WdS; 
SI»SI+2J 0I»L0C n; Dl*Dl+7; ds*chr; 
Si*LOC C* 2(DS#.4 DEO* 
5l*SU3; dS*N ChR* 



end* 



05334200 
O53343OO 
05334400 
05334500 
05334600 
05334700 



T 004410000*0 

T 0044*0000*0 

T 0044*0002*0 

T 004410003*2 

T 0044(0004*1 

T 0044*0005*3 



STACKfF*3) a M 



BOOLEAN M.Q* 



05343000 T 0044*0005*3 



STACK(F+4) s Q 

STACK(F+5) B ROW 

STACKfr+6) 3 COL 

STACKfF*7) * GS 



iNTFfiER ROW.COL,GS> 



IF NOKSTRfAMTOG AND (L.EVEL>25 HhEN 

IF STfPieRELOP Then 

BEGIN 

IF stepi>idmax 

THEN 

BE( 



;gin 

TF 



IF 



EtCLASS« 

Then 



ADOP 
IF EUBATtn.ADDRESS-SUBOP 

Then gs*fzeRO else gs*5i? 



BEGIN 



els 

GS«> 

IF 
IF 
GS» 



E 

OM-I 
STfPi 
ELBAT 

gs*el 



•I endi 

r»LiTNo Then flagcsdi 

tn:ADDRESSi5l? THEN GS« 
BATr 13, ADDRESS 



10241 



END 
ELSE 
BEG 



IN 



L2« 
EXiTJ 



GO TO 
END EL 
MODE » 
THEN BE 
IF PRT 
IF AST 
PRTl «. 

PRTjMA 
IF STU 
CLE 
IF NO 
DOITCL 
fELBAT 
00lT(K 

ELSE BE61 

IF STA 

STACKC 

GO TO 

IF GS a 5 

Q * TRUE* 

GETSPACE 

IF GS>NES 



END 
EXIT 
SE 1*1- 
OR PER 
GIN 
IMAX > 

og then 

X*(gS*P 
FFTOG T 
VEL>3 A 
T M The 
ABELID. 
[11, LIN 

lassf»g 

• T 
N 

CKCTR > 
TR ♦ (6 
EXIT EN 

12 Then 



GS«.ELBATtI J.ADDRESSI 

IF 6S»0 THEN FLAG(5l)J 

IF GS^FZERO and 6SS1023 THEN GS*-GS> 

TF STEPIj«AOOP then I*!-! ELSE 

Begin 
stepiT; 

GS*ELBATri], ADDRESS* 

(IF ELBATtI-n,ADORESS»SUBOP 

Then -gs else ♦gS)i 

ENDI 
GS«,ABSfGS>; 
Q»GS<5t2 OK 6S>1023I 



manent 

1023 then flag(h8)i 

FLAg(505)» 

RTtMaX)+iI 

HEN IF (M»CLEVeL»1 AND KLASSf>19)) OR 

ND ELBATrl].CLASS»LABELID) THEN BEGIN 

N 

GS,lNFOt(ELBATtI]).LINKR. 

KC+l)].TwXAtO]) ELSE 

Sf TNFOt(LASTlNFO+l),LlNKR»(LASTlNFO+l),LlNKCJ 

WXAtOJ)! WRITE(STUFF»10.TWXA[*3) ENOI END 

767 THEN FLAG(149)J 
S * STACKCTR)*l» Q * FALSER 
Dl 

GS ♦ 65+10241 



«• GSt 

TCTR AND gS<FZERO THEN NESTCTR«.GS+ll 



05344000 T 


0044t0005i3 


05344400 T 


004410005 


»3 


05344500 T 


004410007 


•3 


05344510 T 


004410009 


12 


05344520 T 


004410009 


13 


05344530 T 


OO441OO1O 


10 


05344540 T 


OO441OO1O 


u 


05344550 T 


OO44IOOU 


>2 


05344560 T 


0044I00U 


12 


05344570 T 


OO44IOOII 


13 


0534458- T 


004410013 


'2 


05344590 T 


004410015 


13 


05344600 T 


004410016 


10 


05344610 T 


OO441OO18 


«l 


05344615 T 


004410021 


12 


05344620 T 


004410023 


13 


05344630 T 


OO44IOO24 


10 


05344640 T 


004410025 


13 


05344650 T 


0044100251 


13 


05344660 T 


0044100261 


10 


05344661 T 


004410029 


13 


05344662 T 


0044100311 


13 


05344670 T 


0044100341 


1 


05344680 T 


004410037 


13 


05344690 T 


004410038 


10 


05344700 T 


OO441OO38I 


tl 


05344710 T 


0044100391 


13 


05344720 T 


0044100411 


2 


05344730 T 


0044100441 





05344740 T 


0044100441 





05344750 T 


0044100451 


2 


05344760 T 


0044100471 


2 


05344770 T 


0044(00471 


3 


05345000 T 


0044100491 


3 


05346000 T 


0044>0050l 





05347000 T 


0044100511 


2 


05348000 T 


0044100531 


2 


05349000 T 


0044100541 


1 


05350000 T 


OO441OO54I 


I 


05350100 T 


0044I00S7I 


2 


05350120 T 


004410060) 


I 


05350140 T 


0044100631 


3 


05350160 T 


0044100641 





05350180 T 


0044100671 


2 


05350200 T 


0044100691 


3 


05350300 T 


0044100741 





05369000 T 


0044100791 


3 


05370000 T 


0044100801 





05371000 T 


0044t00e2l 





05372000 T 


0044100841 


1 


05373000 T 


0044100851 


2 


05374000 T 


004410087) 


3 


05375000 T 


0044)00881 





05375100 T 


0044100891 


3 



TF GS > io?3 Then r,s 

IF PRTOG THfN WRiTEPRTflF Q 
FND 6ETSPACEI 



♦ GS"1024JI 
THEN «PRT 



ELSE •'STACK*'tL»B20fGS))J 



44 



0537d000 T 

05376100 T 

05378000 T 

IS 107 UONG. 



00441009312 

00441009513 

00441010010 

NEXT SEG 3 



PRTf604) « DEPTH 



STACKfF+S) e J 

STACKfF+4) « K 

STACK(F*5) ■ T 

STACKcF+6) 9 S 

STACKfF*7) * M 



Real procfdure depthcdj value if real i» 

BEGIN REAL J.KfT»S,M| 



05400000 T 00031043312 

05401000 T 0003»0433«2 
START OF SEGMENT *♦♦♦*♦♦♦♦♦ ft5 



IF 



ELSE 
ELSE 



T*NFSTPRTr I ]<0 THEN 

BEGIN DEPTH*CALLrT,[22»133-l],[35ll3JJ 

IF NESTpRTtf 3,[2»13«0 THEN NESTcUR*NESTcUR*1 I 
NESTPRTrn,r2«U*ll 
END 

IF T,t9li3l#0 Then 0EPTH»T,t9ll31 
BEGIN M*OJ NESTPRT[n*"Tj 

JtT.[22n3]l K*CALL[J-l].t2?«133« 

FOR J^J STfP 1 UNTIL K DO 

IF S*DEPTH(CaLLIJ3)>M THEN M*S; 

M*-DEPTH*^M*CALl-IT,t22Jl3]-n,t35f 133J 
IF NfSTCUR^O THEN 
IF NESTPRTtn.t2tl3»0 THEN ElSE 
BEGIN T«.TSMt9l35ll33» NESTcUR*-NeSTCUR-1 END 
FLSE T«-T&Mr9l35ti3]; 
NFSTPRTri 3..T} 
END> 



05402000 T 0045t0000i0 



END I 



05402100 
05402200 
05402300 
05402400 
05403000 
05404000 
05405000 
05406000 
05407000 
05409000 
05409100 
05409200 
05409300 
05409400 
05409500 
05410000 
05411000 



T 00451000210 

T 00451000712 

T 00451001112 

T 0045>00l4l0 

T 00451001410 

T 00451001610 

T 0045100201} 

T OO45IOO26IO 

T 00451002712 

T 00451003411 

T 0045*004011 

T 004510041*2 

T 00451004410 

T 00451004713 

T 00451005010 

T 0045*005113 

T 0045J0051I3 



45 IS 56 LONG* NEXT SEG 



PROCEDURE NESTSORT(L.U)* VALUE L»U| REAL L,U* FORWARD! 
PRT(605) m NpSTSORT 

PROCEDURE SORTNESTI 
PRT(606) m SORTNfST 

BEGIN ARRAY ACO«143; 



STACKfF+2) ■ A 

STACKfF+3) ■ I 

STACKfF+4) 9 J 

STACKfF*5) » K 

5TACKfF*6) a T 

STACKfF*/) « P 
STACKfF+lO) 9 Q 

PRT(607) m NESTfORM 



Real i»j»k»Ti 
Real p.o* 

STREAM PROCEDURE NeSTFORM f i » N.L » A ) J VALUf i,Nj 



05411100 T 00031043312 

05412000 T 000310433*2 

05413000 T 000310433*2 

START OF SEGMENT ********** 46 

05414000 T 004610001*3 



05414100 T 0046*0001*3 



05415000 T 0046J0001I3 



BFGIN LOCAL St 

Ol«.AJ 15(DS*8 LtT •* ")' 

D!*LOC SI D\*.DU7t Sl*L> Sl*Si + iOI DS«-CHRJ 

Dl»Al DI*DI*II A*On 

oi*oi*6i os» s chr; 
oi«-Aj J^i^-Loc n; ds*4 dec; 

Dit-AI DS«-3 FILLI 

ENDI 



05416000 
05«l7000 
05fll8000 
05419000 
05420000 
05421000 
05422000 
05423000 



00461 
00461 
00461 
0046t 
00461 
00461 
00461 
00461 



000113 
000312 
000512 
000610 
000712 
0006)0 
000811 
000912 



FOR I-PRTBASE step 1 UNTIL PRTOP DO 
TF NpSTPRTtn^O THfN 

BEOIN SORTPRTtO]*!* 0«.Q+1 END? 
NESTS0RT(0#Q*0-1)» 
FOR P*0 STEP 1 UNTIL DO 
BEGIN 1*-S0RTPRT[P]I T^NESTPRTtll) 

NESTFORM(OtDFPTH(I)»INFOtT.LlNKR,T,LlNKC]»A)l 

WRlTF(LlNEtDBLl,15»Ar*])J 

J..T.t22«13]| K*(!ALLtJ-n, C22M33I 

FOR J*J STEP 1 UNTIL K DO 

BEGIN I*CAULrJJ; 

T*NESTPRT[I]| 

NESTF0RM(32.DEPTHCI)tINF0tT,LINKR.T.LINKC3.A)l 

WRlTECLlNE,15»At*]); 

end; 

WRiTFCLlNEtDBL])! 
ENDI 
END! 



46 IS 



0542A000 T 0046 

05425000 T 0046 

05425100 T 0046 

05425200 T 0046 

05425300 T 0046 

05425400 T 0046 

05426000 T 0046 

05427000 T 0046 

05428000 T 0046 

05429000 T 0046 

05430000 T 0046 

05430500 T 0046 

05431000 T 0046 

05432000 T 0046 

05433000 T 0046 

05434000 T 0046 

05435000 T 0046 

05436000 T 0046 

66 LONG. NEXT 



I0009U 
t00ilt2 
1001211 
I00i7t3 
I00i9t3 
1002112 
1002313 
1002810 
1003210 
•003713 
1003912 
1004210 
1004313 
1004610 
I0052M 
I0054U 
1005611 
1006112 
SE6 3 



PROCEDURE NeSTSORT(L»U); VALUE L>Ul REAL L.Uf 
BEGIN REAL I.J.K.M; 



STACKrF*2) a I 

STACKfF*3) > J 

STACKfF*4) m K 

STACKfF+5) . M 



AGAtNI 



TOP! 



LABEL AGAIN»T0P,B0TT0M»EXIT| 
IF Li«U THEN 
BEGIN M* (U+t) DIV 2t 
NESTS0RT(L.M)l 

nests0rt(m+1.u)i 
i«.k«-l; J*M+1| 

IF I>M THEN GO TO TOPJ 

IF J>u Then go to bottomi 

GTl*NESTpRTrS0RTpRT[n,[33ll5]],LlNK; 
GT2*NESTPRTtS0RTpRT[JJ,[33ll53 3,LINKI 
IF INF0r6Tl,L[NKR»(GTl+l),LlNKC3,tl8l303< 

INF0rGT2.LlNKR.(GT2*l),L!NKC]itl8l30] THEN 

GO TO bottom; 

S0RTpRTtK],[l8ll5]»S0RTPRT[J3; 

j«-j+i; 



05437000 

05438000 

START Of SEGMENT 



05439000 
05440000 
05441000 
05442000 
05443000 
05444000 
05445000 
05446000 
05447000 
05446000 
05449000 
05450000 
05451000 
05452000 
05453000 



T 000310433*2 
T 0003l0433t2 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 



I 000010 
lOOOOlO 

tooooti 

t0003t2 
1000410 
1000513 
1 000610 
1000912 
lOOlOll 
« 001312 
1001610 
1001912 
t0022ti 
•002312 
i0026t0 



bottomi 



EXITI 



ENni 



end; 



IF K«-K*i<u Then r,o to again else 

S0RTPRTrK].tl8« 153 ••SORT PRTri]? 

?F K*K*isu Then r,o to again else 

FOR I*L STfP 1 UNlTiL U 00 
S0RTPRTri]»S0RTPRT[ll,tl8ll5JI 



GO TO EXiTi 



GO TO EXITI 



05454000 
05455000 
05456000 
05457000 
05458000 
05459000 
05460000 
05461000 



T 00471002713 

T 00471003010 

T 00471003312 

T 00471003411 

T 00471003712 

T 00471003912 

T 00471004313 

T 00471004313 



47 IS 46 LONG. NEXT SE6 



COMMENT ROUTINES tN THIS SECTION COMPfLE CODE FOR ALL EXPReSStONSI 
COMMENT AEXP IS THE ARIThMfTtC EXPRESSION ROUT|NEI 
PROCEDURE AEXP; 

BEGIN 

IF ElCLASS k IFV 

THEN BEGIN IF IFEXP * ATYPE THEN ERRCIO?) END 
ELSE BEGIN ARITHSECI SIMPARITH END 
END AEXp; 



06000000 
06001000 
06002000 
06003000 
06004000 
06005000 
06006000 
06007000 



T 00031043312 

T 00031043312 

T 0003t0433l2 

T 0003«0433I2 

T 0003«0433»2 

T 0003>0433I2 

T 00031043611 

T 0003»0438l0 



+P» -P. AND •P*0 WHERF P 



COMMENT ARITHSEC COMPILES FIRST PRIMARY iN AN ARITHMETIC EXPRESSION, 

IN Particular it handles p. 

AND Q ARE PRIMARIES! 
PROCEDURE ARiThSECI 

Begin 

if ELCLASS » aDOP 

then begin 
stepiti 

if ELBATrl-13. address 
else BFGIN 
PRIMaRYI 

ENDTOG ♦ LiNKTOGI 
LlNKTOfi ♦ eNDTOgJ 



ELSE PRIMARY END ARiThSEC* 



* SUB THEN PRIMARY 



EMIT0{CHS)J 

ENDTOg * FALSE END END 



06008000 
06009000 
06010000 
06011000 
06012000 
0601 3000 
06014000 
06015000 
060)6000 
06017000 
06018000 
06021000 
06022000 
06023000 



T 0003»0438»0 

T 0003»0438I0 

T 0003)043810 

T 00031043810 

T 00031043810 

T 00031043810 

T 0003»0439»2 

T OOO3IO44OIO 

T 00031044011 

T 00031044312 

T 00031044410 

T 00031044411 

T OOO31O446IO 

T OOO3IO44713 



COMMENT SiMPaRiTh COMPILES SfMPLE aRiTHMeT|C EXPRESSIONS ON THE 

ASSUMPTION That an arithmetic primary has already been 
COMPILED, IT Also handles the case of a concatenate 
Where actualparapart caused the variable routine to 
compile only part of a primary, most of the work of 
Simparith is done by aRithcomp. an artifial routine 
Which does The hierarchy analysis using recursion, 
arithcomp is a subroutine only to get this recursioni 

procedure SiMPARlTHi 



Begin 

WHILE 
DO 

While 



ELCLASS m AMPERSAND 

BEGIN STEPIT; PRIMARY! PARSE ENDI 

ElCLASS i EQVoP DO ARITHCOMP ENDI 



06024000 
06025000 
O6O26OOO 
06027000 
06028000 
06029000 
O6O3OOOO 
06031000 
06032000 
06033000 
06034000 
O6O35OOO 
O6O36OOO 



T 00031044912 

T 00031044912 

T 00031044912 

T 0003*044912 

T 0003(0449)2 

T 0003)0449)2 

T 0003)0449)2 

T 0003)0449)2 

T 0003)0449)2 

T 0003)0449)2 

T 0003)0449)2 

T 0003*0449)2 

T 0003*0452*0 



COMMENT ARITHCOMP iS THE GUTS OF ThE ARITHMETIC EXPRESSION ROUTINE 
ANALYSIS. IT CALLS PRIMARY AT APPROPRIATE TIMES AND 
EMITS The ARITHMETIC OPERATORS. THE HIERARCHY ANALYSIS 
IS OBTAINED BY RECURSfONI 

PROCEDURE ARiThCOMPI 

Begin integer operator, opclassi 



06037000 
06038000 
06039000 
O6O4OOOO 
06041000 
0604?000 



t 00031045513 

T 00038045513 

t 00031045513 

T 0003»0455»3 

T 00031045513 

T OOO31O45513 



STACKfF+2) 
STACKfF+S) 



OPERATOR 
OPCLASS 



START OF SEGMENT *♦♦♦♦**♦*♦ 



48 



DO BEGIN 
OPERATOR * 1 & EUBATtll t36lini0]» 

COMMENT This sets up The operator which will be emitted, the high 
order ten bits of the operator are located in [17ll0] 
Of The elbat wordi 

OPcLASS •• ELCLASSJ 
STePITI PRiMARYI 

begin 
while opclass < 
classes are arranged 

EMiT(OPERATOR)l 

EMlT(0)J L ♦ L-n 
STACKCT «■ 1; 

END? 
END UNTIL OPCLaSS * ELCLASS END ARITHCOMPI 



COMMENT THE 



ELCLASS DO ARiThCOMP? 
IN ORDER OF HIERARCHY* 



48 IS 



06043000 T 0048 

06044000 T 0048 

06045000 T 0048 

06046000 T 0046 

06047000 T 0046 

06048000 T 0048 

06049000 T 0048 

06051000 T 0048 

06052000 T 0048 

06053000 T 0048 

O6O54OOO T 0048 

06054100 T 0048 

06054150 T 0048 

06054?00 T 0048 

06055000 T 0048 

14 LONG. NEXT 



tooooto 

lOOOOlO 
1000210 
1000210 
1000210 
1000210 
1000211 
1000313 
1000313 
1000610 
1000610 
»0007«2 
1000912 

1000913 
1000913 
SEG 3 



INTEGER PROCEDURE EXPRSSJ BEGIN AEXPl EXPRSS •• ATYPE ENDI 



06057000 T 00031045513 



PROCEDURE P0LISHER(EXPECT)» vAlUE EXPECTI REAL EXPECT; 
BEGIN LABEL EXiTj 



STACKfF+2) ■ COUNT 

STACKfF+3) s Tl 

STACKfF*4) . T2 

STACKfF+5) e S 

STACKrF^d) m SSS 

STACKfF+7) , Z 

PRT(6iO) * WRiTeoUT 



LABEL EL* 

Real couNTfTi. t2i 



06060000 T 0003»0459l2 
O6O6IOOO T 00031045912 
START OF SEGMENT **♦»*»•♦♦* 49 
06061900 T 00491000010 
06062000 T 00491000010 



BOOLEAN Sj 

Real sss; 



INTEGER ZJ 



stream procedure WRlTEOUT(CfN.L)l VALUE CtHt 
BEGIN Dl ♦ LI DS ♦ 2 LiT "S-"? 

Si « loc c; si * si*7i ds ♦ chri 

Si * lOc N1 DS * DECI 
58(0S*2LIT •• ••)» 

enoi 



06063000 T 
06063500 T 



0049(000010 
00491000010 



06064000 T 00491000010 



06065000 
06066000 
06067000 
06067500 
06068000 



T 0049(000010 

T 00491000011 

T 00491000113 

T 00491000210 

T 00491000312 



SSS* STACKCTRI 

IF STEPI »« LEFTPAREN then go to fXlll 

DO BEGIN 

IF STEPi i OPERATORS THEN 

BEGIN Ti * fT2 * EUBATr I 
S ♦ S OR COUNT - T2 
COUNT ♦ T2,[14I23+C 
IF ELCLASS i OPERAT 
BEGIN IF Tl # THE 

FUSE Begin 



D.ADORESSI 

.tll«3] < 01 

0UNT-2J 

OR THEN 

N EMITO(TI) 



END 



ELI 



Tl ♦ T2,LINK+ 
T2 ♦ T2,iNCR+ 
FOR Tl #. Tl S 

EMiTfTAKE 

end» 
end else begin t2 
if siepi * ui 
begin err 

IF T2 m BITOP 

t36«42«63 

IF T2 u HEXOP 

(T2*C DIV 

C39U5I3J 

IF T2 ■ iSOLAT 

BEGIN T? 

IF S 

Then 

GO t 



21 

r\} 

TEP 1 UnTju T2 00 
(Tl))l 

* EUCUASSi 

TNO Then 

(500)1 GO TO EXIT FNOI 

THEN EMITCTlfcC 
) ELSE 

Then emitctu 

6)[36l«5l3li(C»T2x6) 
) ELSE 
E THEN 

• CI 

TEPI * LITNO 

BEGIN ERR(t>00); 
EXIT ENDI 



EMI 

6+nx 

37) 

END ENDI 

stepitj 

s •• s or count < 
else begin 
if elclass • label 

BEGIN THk2I 
GT4 * TA 
f*UT<L.T2 
IF GT4 B 
IF (gT4I 
BEGIN 
EMiT(6T4 

stepiti 

END ELSE 
IF ELCLASS »» PeRIO 
T2«.0I 

IF STEPI»PERI0D TH 
BEGIN T2*i; STePIT 
IF ELCLASS>IDMAX T 

BfGIN ERR(500 

IF ELCLASS • Label 

BFGiN Tl «. 01 
IF Tl .. ELBATtU.A 



TCZ*((T2 + C-nDIV 6*0 HIV 
5124.(48-T2-C)M0D 6x64 + 
I 



01 

ID THEN 

KE(T2*GlT(ELBAT[i3))| 
}| 

THEN GT4 ♦ LI 
«L-GT4)DIV 4 i 128 ThEN 

GT4I»0IFLAG(50)IENDI 
x4*Tl)l 

D THEN AEXP ELSE BEGIN 

EN 

ENOI 
HEN 

)l GO TO EXIT ENDI 
ID THEN 

GO TO ^L ENDI 

doress m Then 



06068500 
06069000 
06070000 
06071000 
06072000 
06074000 
06075000 
06076000 
06077000 
06078000 
06079000 
06080000 
06081000 
06082000 
06083000 
06084000 
06085000 
06086000 
06087000 
06088000 
06089000 
06090000 
06091000 
06092000 
06093000 
06094000 
06095000 
06096000 
06097000 
06098000 
06099000 
06099100 
06099200 
06100000 
06101000 
06102000 
06103000 
06104000 
06104100 
06104200 
06104300 
06104400 
06104500 
06104510 
06104520 
06i04600 
06104700 
06104800 
06105000 
06106000 
06106100 
06106200 
06106300 
06107000 
06107100 
06107200 
06108000 



00491 
00491 
00491 
00A9t 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 



0003 
0004 
0006 
0007 
0008 
OOlO 
0013 
0015 
00i6 
00i8 
00l9 
0021 
0022 
0024 
0027 
0027 
0028 
0029 
0031 
0033 

0034 
0036 
OO39 
0041 
0042 
0043 
0044 
0045 
0046 
0046 
0046 
0046 
0048 
0052 
0054 
0054 
0054 
0056 
0056 
0057 
0058 
0061 
0062 
0064 
0066 
006B 
0070 
0071 
0071 
0073 
0074 
0075 
0077 
0078 
0079 
0080 
0082 



Begin CRRriooj go to exit end? 

EMiTLf Tl)» 

tf ti>i023 Then 
if t2.0then flag<500) 
FLSE emitocprtdi 
stepit; 

fNoI count • COUNT+ll 

fNd? 

ENn UNTIL EtCtASS # COMMA* 
IF ELCLASS # RTpAREN THEN 

BEGIN ERR(l04)l fiO TO EXIT iHDt 
STEPlTI 
IF FALSE THEN 

BEGIN COUNT «• COUNT-EXPECT I 

WRiTEOUTdF COUNT < THEN ••- 
IF COUNT • THEN " 
A8S(C0UNT)»LIN[0J)I 
WRITELINE* 
ENO» 
EXITJ STACKCTR *. SSSI fND; 



ELSE 
" ELSE ♦•♦••» 



06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 



09000 
lOOOO 
lOlOO 
10200 
10300 
11000 
12000 
13000 
14000 
15000 
16000 
ITOOO 
18000 
19000 
20000 
21000 
22000 
23000 
24000 
25000 



49 IS 120 LONG* 



0049J 
0049J 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
0049t 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
00491 
NEXT S 



008410 
008610 
0086tl 
008n3 
008913 
009112 
009113 
009312 
009312 
009410 
009512 
0096U 
009712 
009713 
009912 
010113 
010313 
010512 
011512 
011512 
EG 3 



PROCEDURE PRIMARYI 
BEGIN LABEL 

Ll* L2* L3* 

LU» L12. Ll3i 

L21i L22» L23' 

L31» L32» L33. 
SWITCH S ♦ 

Lit L2* L3. 

Lll» L12» L13( 

L21» L?.2» L23i 

L31» L32» L33 

Label exit»rp 

GO TO StELCLA 
IF ELCLASS ■ 
BEGIN ST 
IF 



STe 
GO 

end; 
if elclass » 

BEGIN ST 
EMt 
GO 

enoi 

IF ELcUaSS • 
Lia2»L3iL««L5»L6lL8«L9lLl 
L32I 

ERRC103)1 60 
L7l 

SUBHANO(FALSf 



L4, 
L14, 

L24i 
L34i 

L4» 
# L14i 

» L24 
' L34 

»ldot 

SS]> 
LFTBR 
EPiTi 
ELcLa 
BEG 
PIT» 
TO Ld 

NOTOP 
EPfTl 
TLNGI 
TO EX 

UNKNO 
0«L12 



L5» L6, L7» L8» L9» LlO. 

Ll5, L16, Ll7» Ll8, li9, L20, 

L25» L26. L27. L2B. L29. L30» 

L35. L36. L37» L38« L39| 

L5« L6t L7i LB* L9« 

» Li5» L16» Ll7. Ll8# Ll9i 

» L?5* L26» L27» L28» L29t 

f L35» L36» L37» L38i L39| 
»LAMPERJ 



START 



LlO. 
L20» 
L30, 



KET THEN 

VARIABLECFDI 
SS i» RT8RKET THEN 
IN ERRdia)! GO TO EXIT ENOI 

OTJ 

thfn 

PRlMARYl 
EM|T(0)I L*L*1I 
ITI 

WNID THEN ERR(lOO)| 
lLl3»Ll6lL17IL20a2llL24IL25lU28tU29l 



TO EXITI 

)l GO TO LDOTI 



061 
061 
OF SC 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 
061 



26000 
27000 
GMENT 
28000 
29000 
30000 
31000 
32000 
33000 
34000 
35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
48000 
49000 
50000 
51000 
52000 
53000 
54000 
55000 
56000 



T 0003 
T 0003 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 
0050 



1045912 

1045912 

•*♦ 50 

lOOOOlO 

lOOOOtO 

tOOOOlO 

tooooto 
tooooio 

I0002tl 
1000211 
1000211 
1000211 
1002211 
1002211 

1002512 
1002513 
1002713 
1002810 
1003010 
1003011 
1003112 
1003112 
1003113 
1003312 
1003513 
1003610 
1003610 
1003810 
1003912 
1003912 
1004010 
1004112 



11 1 « 

IMPFUM STACKCT * STacKcT-U GO TO UOOTl 
L 1 ^ « L 1 5 » 

STRMPROCSTMTJ GO TO LnOT; 
Ll8ai9l 

PROCSTMT(fALSF)J go TO udot; 
L??fL23«L26IL27lU30»L3ll 

VARlABLE(rP)) GO TO LaMPeRJ 
L33«L35» 

FMlT(0&Et8ATri] t36ll7ll0])> STePITI GO TO UAMPeRI 
L34iL36i 

EMITNUM(C)» STFPITJ GO TO LAMPeRI 
L38« 

P0LISHFR(1)I GO TO UDOTI 
L39I 

STEPITI PRlMARYl STACKCT ♦ STaCKCT-U 

FMITO(LOD); 60 TO LDOTJ 
L37« 

STEPlTI AEXPj 

STACKCT ♦ STACKcT-i; 

IF ELCLASS # RTPAREN THEN 

BEGIN ERRflOfl)? fiO TO EXIT FNDI 

STEPfTI 
LDOTIDOTJ 
LAMPERl 

stackct * stackct +1; 

While eucuass * ampersand do 

begin steplti primary! parse endi 

EXfTi END PRIMARY) 



50 IS 



06 


157000 T 


00501004210 


061 


158000 T 


00501004312 


06 


159000 T 


00501004512 


06 


160000 T 


00501004610 


06 


161000 T 


00501004712 


06^ 


162000 T 


005010047)2 


06 


L63000 T 


00501004810 


061 


[64000 T 


00501004912 


06 


[65000 T 


00501005010 


061 


[66000 T 


0050i00Sll2 


061 


[67000 T 


00501005410 


061 


[68000 T 


00501005410 


061 


[69000 T 


00501005513 


06] 


[70000 T 


00501005610 


061 


[71000 T 


00501005712 


061 


[72000 T 


00501001810 


061 


[72500 T 


0050l0060t0 


061 


[73000 T 


0050t0061(3 


06] 


74000 T 


0050l0062t0 


061 


[74500 T 


00501006312 


061 


[75000 T 


0050l0064t0 


06i 


76000 T 


0050l0065t2 


061 


77000 T 


00501006611 


061 


78000 T 


00501006712 


061 


79000 T 


00501006811 


061 


79500 T 


0050*006912 


061 


[80000 T 


00501007010 


061 


81000 T 


00501007210 


061 


82000 T 


00501007410 


76 LONG. 


NEXT $EG 3 



PROCEDURE impfun; 

BEGIN REAL Tl,T2) 



STACKfF+2) M Tl 
STACKrr+3) « T2 



06183000 

06184000 

START OF SEGMENT 



T 00031045912 
T 00031045912 



ENDI 



Tl ♦ (T2 «■ ELBATtn). address; 

PANAJ 

IF Tl J« THEN FMlTO(Tl) 

ELSE BEGIN 

Tl * T2,LlNK*T2.iNCR+ll 

T2 ♦ T2.LINK+2I 

FOR T2 * T2 STEP 1 UNTjL Tl DO E" I T ( TAKEC T2 ) ) I 

end; 



51 IS 



06185000 T 0051 

06186000 T 0051 

06187000 T 0051 

06188000 T 0051 

06189000 T 0051 

06190000 T 0051 

06191000 T 0051 

06192000 T 0051 

06193000 T 0051 

17 LONG. NEXT 



I 0000 10 
1000210 
t0002U 
1000410 
10005)2 
1000713 
1000913 
t00l4tl 
t00l4tl 
SCG 3 



PROCEDURE SUBHANDcfROM)) VALUE FROMI BOOLEAN FROM) 
BFGIN LABFL EXiTi 

Real tu 



06194000 

06195000 

START OF SEGMENT 

06196000 



T OOO31O45912 
T 0003)045912 

m*j$*m***fk* 52 
T 0052)0000)0 



STACKfF42) « Tl 



Ti * takefRst; 

IF ELCLASS * SUbIO AND FROM ThEN 

BEGIN IF STEPI * ASSIGNOR TrEN 

BEGIN FlAG(503)I 60 TO EXIT ENDI 

stepit? 

AEXp» 

EMlTOcXCH)» 

GO TO EXITI 
ENDJ 
EMlTL((L + 6) niV 4-(Tl.[2aU23»n DIV 4)1 
EMITBCBBW»BUMPU,T1,[36I12])| 
STEPlTI 

adJusti 

EXiTi F^'D SUBHAND* 



52 IS 



06197000 T 
06198000 T 
06199000 T 
06?00000 T 
06201000 T 
06?02000 T 
06203000 T 
06204000 T 
06205000 T 
06206000 T 
06207000 T 
06208000 T 
06208500 T 
06209000 T 
19 LONG, 



00521000010 
0052I0001»2 
00521000210 
00521000313 
005210005' 3 
0052«0006I0 
00521000611 
00521000712 

00521000713 
00521000713 
00521001113 
00521001410 
00521001411 
00521001512 
NEXT SEG 3 



COMMENT IFEXP COMPILES CONDITIONAL EXPRESSIONS, IT REPORTS THE TyPE 

OF EXPRESSIONS AS EXPRSS REPORTSI 
INTEGER PROCEDURE IFEXP* 

BEGIN INTEGER TyPE t THENBRANCH .ELSEBRANCHI 



STACKfF+S) 
STACKfF4.4) 
STACKfF+5) 



TYPE 

thenbranch 
elsebranch 



06292000 
06293000 
06294000 
06295000 
START OF SEGMENT 



T 0003J0459I2 

T 00031045912 

T 00031045912 

T 0003>0459I2 



ifclause^ 

STACKCT * 0; 

THENBRANCH ♦ BUMPLI 
COMMENT SaVf L FOR LATER FIXUPJ 

IFEXP * TYPE * EXPRSSI COMMENT COMPILE 1ST EXPRSS) 
STACKCT ♦ OJ 

ELSEBRANCH •• BUMPLi 

EMITB(BFC»THFNBRaNch»L)I 

IF FLCLaSS * EUSfV then fRR(155) EUSE BEGIN 

STePiTJ 
AfXPj STACKCT ♦ I) 

COMMENT ThtS COMPILES PROPER TYPE SECOND EXPflSSi 

EMI TBCBFW, ELSEBRANCH* L)» 

EMUd)) L * L"l> 
COMMENT THIS IS USED BY EmITLNG To CLEANUP CODE. COMPARE WITH 
BOOSEC* BOOCOMPf AND RELATION) 
END END IFEXP) 



06296000 T 0053<0000l0 

06296500 T 00531000011 

06297000 T 0053>0001I2 

06298000 T 00531000312 

06299000 T 0053I0003»2 

06299500 T 0053)000411 

06300000 T 005310005)2 

06301000 T 00531000712 

06302000 T 0053)0008)0 

06303000 T 0053)0010)1 

06305000 T 0053)0011)2 

06306000 T 0053)0012)1 

06307000 T 0053)0012)1 

06308000 T 0053)0013)3 

06309000 T 0053)001513 

06310000 T 0053)0015)3 

06311000 T 0053)0015)3 

53 IS 19 LONG* NEXT SEG 3 



COMMENT PaRSe cOMPjLeS COqE fOR Thf CONcaTeNaTE) 
PROCEDURE PARSE) 

BFGIN INTEGER F f RST» SfCONDi THT RD) 



STACKfF*2) « FIRST 
STACKfF+3) » SECOND 

STACKfF+A) c Third 



06312000 
06313000 
06314000 

START Of Segment 



T 0003)0459)2 
T 0003)0459)2 
T 000310459)2 



IF FLC 

BEGI 

FI 

SF 

60 

END 

FLSF 

IF STE 
BFGI 

ri 

SE 
IF 



LA 
LASS 
N 

RST I 
COND 
TO N 



BEL EXiT.NEXTCHK< 

« FiELDiD Then 

« rUBATtll.SBITrl 
!» 48 • CTHiRD !■ 
EXTCHKI 



ELBATtn.NBlTF); 



IF ELCLASS m LFTbRKET THEN 

FiEiDiD Then 



GO 

END 
ELSE 
IF E 



PI ■ 
N 

RST I 
COND 

stfp 

BEGIN 

EHR 

GO 
rNDI 
TO NEXTCHKI 



« HBATr M.SBITf; 

I* 48 « {THIRD l« ELBATtU.NBITF)! 

I # rtbrket then 

(94)1 
TO EXITJ 



COMMENT IF TEST 



NEXTCHKI TF 

I 
COMMENT IF TEST 



FXIT« 



lclass « LiTNo Then 

IF STEPi « COUON T 
IF STEPi « LiTNO T 

IF stePi » rtbRket 

IF fFIRST I* ELBA 

(Third «« elba 

BEGIN 

Second »« as 

GO TO NfXTCHK 
END 
ELSE X BAD BITS. 
ELSE I MAYBE A COlO 
IF EtCLASS » COLO 
F STEPi » LiTNO T 
F STCPl ■ RTBRKeT 

ARE Passed then s 

F (FIRST ♦ ELBaT 
(SECOND ♦ ELBAT 
(THIRD ♦ EUBaT 
FIRST ♦ THIRD i 

F SECOND* Third < 

ARE PASSED THEN R 
BEGIN 
STEPlTl 

emiTd(Se:cono# 
stackct • n 

GO TO pXlT END 
ERR(H3)I COMMENT 
END PARSEJ 



f 107« 
«112' 
X112- 

j:ii2* 

XI 12- 

X112- 
X112- 
X112- 

X112- 
X112- 
«U2- 
X112' 
XI 12* 
X112- 
X112- 
fll2- 
X112» 
X112» 
XI 12" 
X112* 
X112- 



thf res 

X107- 
X107- 
Il07» 
JUST. 

xior- 

X107- 
X107- 
X107- 
Xl07» 



HEN 

HEN 

THEN X WE WILL TAKE CARE OF 

TtI-3], ADDRESS) x 

Tri'l]. ADDRESS) # THEN 

- ThiR0» X SOURCE iS RIGHT 
t 

FALL Through to error, 

N, 

N Then x 

HEN 

THEN 
YNTaX IS CORRCCTI 
tI-5]. ADDRESS) x 
11-33, ADDRESS) x 

ti*n.AD0Rcss) # Then 
48 Then x so far so good, «i07- 
48 Then 

ANGES of literals are O.K.J 



FlRSTfTHlRD)] 

i 

ERROR IF SYNTAX OR RANGE FAIUSl 



06315000 P 
06315100 C 
06315200 C 
06315300 C 
06315400 C 
06315500 C 
06315600 C 
06315700 C 
06316000 T 
06316100 C 
06316200 C 
06316300 C 
06316400 C 
06316500 C 
06316600 C 
06316700 C 
06316600 C 
06316900 C 
06317000 P 
063l7i00 C 
06317200 C 
06317300 C 
06318000 T 
06319000 T 
06320000 P 
06320100 C 
06320200 C 
06320300 C 
06320400 C 
06320500 C 
06320600 C 
06320700 C 
06320800 C 
06320900 C 
06321000 T 
06322000 T 
06323000 T 
06324000 T 
06325000 T 
06326000 T 
06327000 P 
O6328OOO T 
06329000 T 
O633OOOO T 
O633IOOO T 
06332000 T 
06332500 T 
06333000 T 
06334000 T 
06335000 T 
54 IS 54 LONG. 



005410000 
0054*0000 
005410000 
005410001 
005410002 
005410005 
005410005 
005410005 
005410005 
005410007 
005410008 
005410009 
005410010 
0054t00i3 
005410014 
005410014 
0054t00l5 
005410015 
005410015 
OO54IOO16 
OO541OO16 
OO541OO16 
005410017 
005410019 
0054(0020 
005410022 
005410024 
005410027 
005410027 
005410029 
005410029 
005410029 
005410029 
OO54IOQ3O 
005410031 
005410032 
005410034 
005410034 
005410036 
OO54IOO39 
005410041 
OO54IOO44 
OO54IOO46 
OO54IOO46 
005410046 
005410047 
005410048 
005410049 
005410049 
005410050 
NEXT SE6 



COMMENT DOT COmPiLFS CODE FOR PARTIAL WORD DESlGNATORSi EXCEPT FOR 

Those caSes handled by the variable routine* 



06336000 
06337000 



T OOO3IO45912 

t 00031045912 



PRnCEDl'RE OOTI 

BrGIN INTEGER F I RSTi SeCONDI LABEL EXITI 



STACKfF+2) « FIRST 
STACKrF+3) B SECOND 



START 



IF FLCLASS m PERIOD THEN BE^^1N 

IF DOtSyNTAX(FIHST»SECOND) THEN GO TO EXiTI 



EMiTlfO, FIRST, SECOND)! 
STePITI 
EXITI END END DOT> 



55 IS 



06336000 

06339000 

OF SEGMENT 



06340000 
06341000 
06342000 
06343000 
06344000 
06345000 
06346000 



T 00031045912 
T 00031045912 



0055 
0055 
0055 
0055 
0055 
0055 
0055 



lOOOOtO 
I0001t2 
1000312 
1000312 
1000312 
1000410 

i0004M 



8 LONG* NEXT SEG 



PROCEDURE IFCLAUSEI 

Begin stepiti bfxpi 

IF ELCLASS ft theNV then ERRtll6)ELSE STePIT END IFCLAUSi 
COMMENT PANA COMPILES THE CONSTRUCT! (<ARlT, EXP,>)| 



06409000 
06410000 
06411000 
06412000 



T 00031045912 

T 00031045912 

T 00031046112 

T 00031046410 



PROCEDURE PANA; 

BEGIN 
IF STEPI * LEFTPAREN THEN ERR(105) 
ELSE BEGIN STEPIT* AEXPI IF ELCLASS # RTPAREN THEN 

eRR(i04) else stepit end end PANAI 



06413000 
06414000 
06415000 
06416000 
06417000 



T 00031046410 

T 00031046410 

T 00031046410 

T 0003l0466tl 

T 0003»0469I3 



COMMENT BANA COMPILES THf CONSTRUCT! t<ARlTH. EXP,>]I 
PROCEDURE PANAI 

BFGIN 
IF STEPI * LFTbRKET THEN ERR(ll7) 

ELSE BEGIN STEPiT! AEXPl IF ELCLASS # 

ERR(U8) Else stepit end end bana 



rtbrket 



THEN 



06416000 
06419000 
06420000 
06421000 
06422000 
06423000 



T 0003!0472IO 

T 00031047210 

T 00031047210 

T 0003l0472>0 

T OOO31O47313 

T 00031047611 



COMMENT THIS SecTtON CONTAINS THE STATEMENT ROUTINES! 

COMMENT COMPOUNDTAIL COMPILES COMPQUNOTAI LS. IT ALSO ELIMINATES 

COMMENTS FOLLOWING ENdS. AFTeR ANY ERROR. ERROR MESSAGES 
ARE SUPPRESSED. COMPqUNDTAIL iS PARTIALLY RESPONSIBLE 
FOR RESTORING THE ABILITY TO WRlTE ERROR MESSAGES, SOME 
CaRE iS ALSO TAKEN TO PREVENT READING BEYOND THE "ENDI"! 
PROCEDURE COMPOUNDTAIL* 
PRT(6t1) • COMPOUNDTAIL 

BEGIN LABEL ANOTHER* 



anothfRi 



I ♦ I*1J 

ERRORTOG 
STEPITI 



BEGINCTR 
♦ TRUEl 



* BEGINCTR+ll 
COMMENT ALLOW 



ERROR MESSAGES! 



07000000 
07001000 
07002000 
07003000 
07004000 
07005000 
07006000 

07007000 
START OF SEGMENT 
07006000 
07009000 
07010000 



T 00031047912 

T 00031047912 

T 00031047912 

T 00031047912 

T 00031047912 

T 00031047912 

T 00031047912 

T 0003»0479f2 

*«*•*«*«•« 56 

T 00561000010 

T 0056t0002>l 

T 00561000313 



THfN StREAMSTMT ELSfv 

SEMICOLON Then go to 

FNdV 

so TO ANOTHER ENDI 
UNTIL 



STMTI 

anotheRi 



IF STREAMTOG 

IF eLCUASS ■ 

IF ELCLASS # 

THEN BEGIN 

ERRdl')! 

endtog«.true» 

00 stopdefine*true 

stepisendv And elclass^untilv 

OR NOT ENOTOg* 
ENDTOG*rALSEI 

IF BEBINCTR * BEGlNCTR-1 # EOV EUCLASS « PfRlOD 
THEN BEGIN 

IF BERINCTR m THEN 
BEGIN FLA6fJ43)l BEGINCTR * 
FLAG fl?0)l 
FCRJ« (LCRl»MKABS(CBUFFt93))''9l 

ir LISTER Then printcardi 

FCRI« (LCR«»MKABS(TBUFFt93))-9 ENDl 

IF ELCLASS • PERIOD THEN 
BEGIN 

GT5 ♦ "NDIEND.''&''E'*tU43l5J* 
M0VE(1»GT5icBUFFC0])I 

UASTUSFD**! 

EL.BATrUl-2] «.SPECIALC?0)I 
ELCLASS * SfMICOLON END 
FND COMPOUNDTAIL* 



II GO ANOTHER 



ENDI 

X104« 

«104* 

flO«- 



56 IS 



07011000 T 
07012000 T 
07013000 T 
07014000 T 
07015000 T 
07016000 T 
07017000 T 
07018000 T 
07019000 T 
07020000 T 
07021000 T 
07022000 T 
07023000 T 
07024000 T 
07025000 P 
07025010 C 
07025020 C 
07025030 C 
07026000 T 
07027000 T 
07028000 T 
07029000 T 
07030000 T» 
07031000 T 
07032000 T 
07033000 T 
55 lONGt 



00561000410 
00561000611 
00561000713 
00561000010 
00561000912 

0056l00l0t0 
00561001112 
00561001113 
00561001312 
0056t00l5l2 
0056l00l5t3 
00561001713 
0056i00i9i2 
0056l00l9t3 
00561002210 
00561002312 
0056*002610 
0056t0042>0 
0056I0045>2 
00561004513 
00561004610 
0056i004BtO 
0056t0049l3 
00561005010 
00561005211 
00561005313 
NEXT SEG 3 



Real axnums 

PRT(6l25 » AXNUM 

PROCEDURE ACTUALPARAPART(SBIT»TNDEX)i VALUE SBlTilNDEXI 
PRTc6i3) « aCTUALPARAPART 

BOOLEAN SBlTl REAL INDfX? 

BEGIN LABEL EX I T ,COMmON# ANOTHER »P0L» 

Real PCTR.SCLASSiACLASSi 
$TACK(F+2) 9 PCTR 
STACKfF*3) « SCLASS 
STACKfF+4) * ACLASS 

STREAM PROCEDURE WRI TEAXCLlNEt ACCUm»N» SEQ) J VALUE N; 
PRT(6i4) • WRITEAX 

BEGIN DI *■ LINE» 15(dS ♦ 8 LIT " •♦); 

Dl ♦ LINEJ SI * SeQ^ si ♦ 51-161 DS * WDSI 

Dl * DI+41 DS ♦ 20 LIT "ACCIDENTAL ENTRY AT "I 

Si «• ACCUMI Si ♦ Sl + 3r DS * N CHRl 
Si ♦ SEQI DI ♦ SEQ] Dl - DI-161 D8 ♦ WOSi 

end; 



07034000 T OOO3IO47912 

07035000 T OOO31O47912 

07036000 T 00031047912 

07037000 T 00031047912 

START OF SEGMENT ♦♦**»»•*♦♦ 57 

07038000 T 00571000010 



07038100 T 00571000010 



07038200 
07038300 
07038400 
07038500 
07038600 
07038700 



00571 
00571 
00571 
00571 
00571 
0057« 



OOOOIO 
000210 
000312 
000610 
000712 
000810 



STACKfFfS) ; VBiT 
STACKfF+6) B IDBIT 



BOOLEAN VBIT,IDBITI 



07039000 T 0Q57l000Bt0 



ANOTHER' 



polj 



PCTR .. i; 

ACLASS * STEPl40r«7M7tl ]» 

STACKCT ♦• 0> 

r,Tl «. TAKEdNDEX + PCTR)! 

VPIT • BO0LEAN(rTi,V0)I 

SCLASS *■ GTl.CUASsaiOu7U7ll]; 

IF VBfT Then bebin aexpj go to common eno» 
IF sbit Then sclass «. nameidi 

IDBIT * BOOID < ACLASS AND AClASS < LABELlDl 
IF ScLASS « NAMEID THEN 
BEGIN 

IF IDBIT THEN VARlABUE(FL) 
EL,St 

IF ELCLASS • POUISHV THEN POUISHERCI) 
ELSE FRRCIF ELCLASS«0 THEN ELSE J23)l 
GO TO COMMON) 



IF 



fndi 

ScLASS 
IF 



REALARRAYiD THEN 
ACUASS • REALARRAYID THEN 

BEGIN VaRIABLECFDI GO TO COMMON END 
ELSE GO TO POLI 
IF SCLASS # REALIO ThcN 
BEGIN FLAGf503)» 
AEXPI 
ERRORTOg •- TRUE* 

go to commonj 
fndi 

GTl •■ TABLE(| + 1)I 

TF GTl ■ COMMA OR GTl « RTPARfN THEN 
BEGIN IF IOBtT ThEN 

BEGIN tF ACLASS « REALID AND 

BOOLEAN(ELBATtn, FORMAL) Then BEGIN 
CHECKER (ELBATtn)* 
EMlTPAIR(ELBAT[n,ADORESS.LOO)l 
STEPITI END 
ELSE VARlABLECFDi 
GO TO COMMON END) 
IF ELcLaSS < STRNgCON AND ELCLASS > LABfLlD 

then pfgin primaryi go to common enoi 
end; 

FMIT0(N0P)I fMITO(NOP)> 

ScLASS * L) 

AOJUST) 

ACLASS * L.t36«iO]J 

IF IDBIT THEN 

BEGIN VARIABLECFL); 

IF FLCLaSS < AMPERSAND THEN GO TO COMMONI 

SIMPARITHI 
END EI-Se ArXpl 
IF LiSTeR ThfN 

BEGIN ACCUMtn * OJ 

WRlTEAXfLINr0j,ACCUM[n»Q.tl2«6]. 

lNFO[LASTSEOROWfLASTSEQUENCEj)J 
WRiTELlNEI 

end; 

AXNUM •• AXNUM't-ll 



07040000 

07041000 

07041200 

07042000 

07043000 

07044000 

07045000 

07046000 

07047000 

07049000 

07049000 

07050000 

07051000 

07052000 

07053000 

07054000 

07055000 

07056000 

07057000 

07058000 

07059000 

07060000 

07061000 

07062000 

07063000 

07064000 

07065000 

07066000 

07067000 

07068000 

07069000 

07070000 

07070500 

07071000 

07072000 

07073000 

07074000 

07075000 

07076000 

07077000 

07078000 

07079000 

07080000 

07081000 

07082000 

07083000 

07084000 

07084500 

07085000 

07086000 

07086100 

07086200 

07086300 

07086400 

07086500 

07086600 

07086700 



T 0057 


100081 


T 0057 


100091 


T 0057 


100121 


T 0057 


I00i2> 


T 0057 


I00i4t 


T 0057 


100151 


T 0057 


IOO18I 


T 0057 


|00i9t 


T 0057 


t0021» 


T 0057 


100231 


T 0057 


100241 


T 0057 


100241 


T 0057 


100251 


T 0057 


100261 


T 0057 


100261 


T 0057 


100321 


T 0057 


10032* 


T 0057 


100321 


T 0057 


10033; 


T 0057 


(00341 


T 0057 


100361 


T 0057 


100361 


T 0057 


100371 


T 0057 


10038; 


T 0057 


10039; 


T 0057 


IOO39; 


T 0057 


10040; 


T 0057 


10040; 


T 0057 


10042; 


T 0057 


10043; 


T 00571 


IOO44; 


T 00571 


0045; 


T 00571 


0047; 


T 00571 


0048; 


T 00571 


0050; 


T 00571 


0050; 


T 00571 


0052; 


T 00571 


0052; 


T 00571 


0053; 


T 00571 


0055; 


T 00571 


0055; 


T 00571 


0057; 


T 00571 


0058; 


T 00571 


0058I 


T 00571 


0059; 


T 00571 


0060; 


T 00571 


0061; 


T 00571 


0062; 


T 00571 


0062; 


T 00571 


0063; 


T 00571 


0064; 


T 00571 


00641 


T 00571 


0066; 


T 00571 


0068; 


T 0057« 


0069; 


T 00571 


0079; 


T 00571 


0079; 




3 

1 
I 
3 

3 
2 
3 

I 
3 


1 


1 
1 

3 

I 
1 
I 
2 
1 
2 
3 



3 
1 
3 
3 
1 

1 


1 

3 
3 

3 

2 


1 
3 

2 
I 
1 
2 




3 
3 
3 



FMIT0(RTS)» 

emitb{Bfw»sclass»l); 
fmitniim(acuass)| 

EMlTPAlRCTAKFcPROiNFO),ADDRESS.LOn)l 
FMlTOdNX); 
EMITN(512)I 
EMlTDC33»l6,i5)| 
EHIT(0)J 
RMlTDf5»5»nJ 
COMMON? PcTR «. PCTR + D 

IF ELCUASS m COmMa THFN GO TO ANOTHERI 
IF EUCUASS # RTPAREN THFN 

BEGIN ERR(l29)l fiO TO 
IF TAKE(INDEX),N0dIMPaRT+1 
BEGIN ERR(i26)l GO TO 
STEPfTI 
STACKCT * Oj 
EXiTJ FNO ACTUAL PAHAPARTI 



extt end; 
* PCTR Then 

EXfT ENOI 



07087000 
07088000 
07089000 
07090000 
07091000 
07092000 
07093000 
07093100 
07093200 
07094000 
07095000 
07096000 
07097000 
07098000 
07099000 
07100000 
07100500 
07101000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



57 IS 106 LONGt 



0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
NEXT 



I0081<2 
«008l«3 
1008312 
f0083t3 
1008513 
10086(1 

tooBnz 

1008611 
1008912 
1009011 
1009210 
1009313 
1009410 
1009610 
1009810 
lOiOOlO 
lOiOOli 
1010112 
SEG 3 



PROCEDURE PROCSTMT(FROM)l VAlUe FROM; BOOLEAN FROMI 
BF6IN 

Rfal hole»address» 



STACK(F+2) 
STACKeF*3) 



holf 
address 



start 



STACKfF+4) » J 



0K« 



PRT(6l5) * *LIST. 



LABEL. OR 
COMMENT 



COMMENT 



Real j» label okj 



Label exjti 
scatterelbatj 

HOLE* ELBATti] 
ADDRESS * ADDR 

IF nestog Then 
IF MODEi«o Then 

IF TaBLECI+1)# 

BEGIN FOR J*CA 

IF C 

CALLrCALL 
FNDJ 

ChECKER(HOLE)I 
IF ELCLASS ¥■ P 
IF NOT FORMAlF 
IF TABLE(I*1) 

BEGIN VAR 

segment descript 

call variable t 

if elclass ^ p 

then begi 

it is procedur 

steptti 

EMlTO(MKS)l 
IF ELCLASS « L 
THEN ACTU 
ELSE IF F 



I 

sf> 



assignor Then 
llinfo step 1 until 

ALLrJlcADDRESS THEN 
X«.CALLX41]«-ADDReSS| 



CALLX 
60 TO 



DO 
OKI 



RociD Then 

THEN 

« assignop Then 
iaBlE(2-real(FRom))i go to exit ENDI 

OR* 

HANDLE THIS ASSIGNMENT OPeRaTiONI 

ROCiD EQV FROM 

N ERR(159)| GO TO EXIT ENDI 

E IF AND ONLY WE cOME FROM STMTl 



efTpaRen 

AlPARAPaRT( FALSE »6IT(H0LE)) 
ORMALF THEN L * L-! 



07391000 

07392000 

07393000 

OF SEGMENT 



T 00031047912 
T 00031047912 
T 0003l0479«2 
(I********* 58 



07393100 T 00581000010 



07394000 
07395000 
07396000 
07397000 
07397100 
07397200 
07397210 
07397300 
07397400 
07397500 
07397600 
07398000 
07399000 
07400000 
07401000 
07402000 

07403000 
07404000 
07405000 
07406000 
07407000 
07408000 
07409000 
07410000 
07411000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 



00581 
00581 
00561 
00591 
00581 
00561 
00581 
00561 
00561 
00581 
00581 
00561 
00581 
00581 
00561 
00581 

00581 
00581 
00561 
00561 
00561 
00561 
00561 
00581 
00581 



OOOOtO 
000010 
000011 
000113 
000210 
000312 
000410 
000611 
000610 
001410 
OOlBll 
00i9l2 

00i9»3 
002011 
002113 
002313 

002611 
002611 
002912 
003113 
003113 
003210 
003211 
003312 
003512 



EXiTt e:no 



ELSE IF TAkE(GiT(hOLE)).NOD1MPART#0 THEN ERR(1?8)I 
EMITV(ADDRESS)> 
PROCSTMTJ 



58 



07412000 T 

07413000 T 

07425000 T 

IS 46 LONG* 



00581003712 

005810042(0 

005810042(1 

NEXT 8EG 3 



PROCEDURE STHMPR0CSTMT» 

BEGIN REAL WhOLE #F 1 X , T i I 



STACKfr+2) m WHOLE 
STACK(F*3) ■ FIX 
STACKfF+4) m Tl 



07426000 

07427000 

START OF SEGMENT 



Whole ♦ eubatciii fix ♦ -ii 

IF ELCLASS # STrPrOCID THEN EMIT(0)| 
IF WHOLE. LVL * I ThfN 

BEGIN FIX * L> L * L*l ENOI 
EMlTO(MKS)l 
Tl * TAKEF«ST,[1«61I 

FOR GTl * 1 STEP 1 UNTIL Tl 00 EMlT(0)l 
IF STePI * LfFTPAREN then ERR(128) 
ELSE BEGIN AC TUaLPARAPARTC TRUE.6 I TC WHOLE ) ) I 

IF FIX < Then fmitV(whole. address) 

ELSE begin Tl » il L ♦ FiXl 

WHOLE ♦ TAKE(GlT(WHOLE))i 
EMiTNuM(Tl+2-WH0LE.tl6ll2]); 
L ♦ Til 
EMiTB{BBWiBUMPL»WH0LE.[28ll2])J 



END END 



END* 
STRMPROCSTMTj 



T 00031047912 
T 00031047912 



59 IS 



07428000 T 
07429000 T 
07430000 T 
07431000 T 
07432000 T 
07433000 T 
07434000 T 
07435000 T 
07436000 T 
0743/000 T 
07438000 T 
07439000 T 
07440000 T 
07441000 T 
07442000 T 
07443000 T 
07444000 T 
07445000 T 
07446000 T 
33 LONG* 



00591000010 
00591000010 
00591000010 
00S9I0002<0 
00591000410 
00591000512 
00591000713 
0059(000811 
00591001010 
00591001410 
005910015(3 
005910018(0 
0059(001913 
00591002211 
005910024(1 
00591002611 
00591002713 
0059(003010 
00591003010 
NEXT SEG 3 



integer procedure baej 
Begin bae 



* BUMPLI CONSTANTCLEANI ADJUST END BAEI 



07458000 
07459000 



T 0003(047912 
T 0003(047912 



PRT(6l6) « OOSTMT 



STACKfF*2) M TL 



COMMENT RfLSeSTMT COMPILES ThE RELfASE STATEMeNTI 
COMMENT dOSTMT HANDLES ThE DO STaTEMENTi 
PROCEDURE DOSTmTI 

BEGIN INTEGER TlI 



07460000 T 
07481000 T 
07482000 T 



07483000 

START OF SEGMENT 



FOULED * L' 

STePiTI TL»L» STmTI if ELCLASS # UNTILV THEN ERRctSl) 
ELSE BEGIN 

STEPITI BEXPI FMlTB(BBCtBUMPL.TL) END 

END DOSTMTI 



00031046410 
00031048410 
00031048410 



T 000310484(0 



07483500 T 
07484000 T 
07485000 T 
07486000 T 
07487000 T 
07488000 T 



00604 000010 
00601000011 
00601000011 
00601000410 
006010005(2 
00601000810 



60 IS 11 lONGf NEXT SEG 



COMMENT WhILESTmT COMPILES THF WhiLE STaTeMENTJ 
PROCEDURE WHILESTmTJ 



PRTt6l7) n WHILESTMT 



STACK(r+2) 
STACK(r*3) 



BACK 
FRONT 



BEGIN INTEGER BACK»FROnT) 



FOULED ♦ L» 



START 



STEPIT) BACK 
IF ELCLASS # 



•• It BEXp; FRONT ♦ BUMPL) 
DOV THEN ERRC132) ELSE 
BEGIN STEPtTJ STMTI EM I TB( BBW, BUMPL* BACK) I 

CONSTANTCLFAn; EmITBCBFCFRONT.L) END END whilestmti 



07489000 
07490000 

07491000 
OF SEGMENT 



T 00031040410 
T 00031046410 

T 000310484)0 



61 IS 



07491500 T 
07492000 T 
07493000 T 
07494000 T 
07495000 T 
07496000 T 
14 LONG* 



00611000010 
00611000011 
00611000011 
0061t0004tO 
00611000610 
OO61IOO1OIO 
NEXT SEG 3 



PRT(6?0) ■ QOSTmT 



STACKrF+2) « ELBW 



COMMENT GOSTMT COMPILES GO TO STATEMENTS. GOSTMT LOOKS AT THE 
EXPRESSION. IF IT IS SiMPLE ENOUGH WE GO DiRECTLY. 
OTHERWISE A CALL ON ThE MCP IS GENERATED IN ORDER TO 
STORAGE RETURNED. SEf DEXP AND GEN60) 

PROCEDURE GOSTmT; 



07497000 T 
07498000 T 
GET 07499000 T 

07500000 T 
07501000 T 



00031040410 
0003(048410 
00031046410 
0003<0464l0 
00031046410 



BEGIN 



REAL ELBW; 



07502000 

07503000 

START OF SEGMENT 



T 00031046410 
T 00031048410 



LABEL G 
IF STEP 
IF ELCL 
ELSE IF 

flse be 



IF 



EN 
NOT 
BE 



IF 



BE 
EN 
TBI 
CO 
ELSE BE 
EL 



omcp»exit; 

i x tov then stepiti 

ass s labelid then tbi ♦ true 

ELCLaSS . SWJTCHID THEN TBI * FALSE 
GIN IF ELCLASS « POLIShV THEN 

BEGIN POLIShERcDI EMITO(BFW) END 
ELSE eRR(50i)| 
GO TO EXIT 
D) 

LOCALfELBATf 13) THEN 
GIN 

IF TBI THEN 

BEGIN EMlTV(GNAT(ELBAT[n))» 
EMITOCBFW)! 
STEPlTl 

GO TO EXIT ENDI 
ERR(50l)» GO TO EXIT ENDI 



GIN 

D? 

THE 

NST 

GIN 

BW * ELBATrni 



N BEGIN GOGcNfEtflATrn.BFW); STePiTI 
ANTCLEAN* GO EXIT END 



bana; 



07504000 T 0062i0000l0 

07505000 T 00621000010 

07506000 T 00621000210 

07507000 T 00621000313 

07511000 T 00621000610 

07512000 T 00621000713 

07513000 T 00621000913 

07514000 T 0062l00il«2 

07515000 T 00621001113 

07516000 T 00621001113 

07516100 T 0062»00l2ll 

07516200 T 0062IOOi3l2 

07516300 T 00621001313 

07516400 T 00621001513 

07516500 T 00621001610 

07516600 T 00621001611 

07517000 T 00621001712 

07517500 T 0062)00i6ll 

07516000 T 00621001611 

07519000 T 00621002112 

07520000 T 00621002210 

07521000 T 0062I0022U 

07522000 T 0062»0023I3 

07523000 T 00621002313 



EXlTl F-NO 



ENDI 
GOSTmTJ 



EMIT0(0UP)> 
FMIT0(ADD)» 

e:mito(Bfw)j 

r,T3 ♦ TAKF(GT**GtT(F:LBW)) + GT'H 
FOR gT4 *■ fiTft*! STEP I UNTlL. 6T3 
aOGEN(TAKE(GT4)»BFW)J 



00 



075?4000 
075P5000 
07526000 
07527000 
07528000 
07529000 
07530000 
07531000 



00621 
00621 
00621 
0062) 
0062t 
00621 
00621 
00621 



62 IS 39 LONG* NEXT SEG 



002410 
002411 
0025»3 
002610 
002912 
003312 
003512 
003SI2 



PROCEDURE GOGENCLABELBATfBRANCHTYPF)! 

VALUE LABeUBAT.BRaNCHTYPE' 

Real labflbat.branchtype? 
Begin 

IF B00LEANfGTl»TAKErGT2«.GlTfLABELBAT))),[llt] 

Then emitb(branchtype»bumpl»6Ti,c36Ii21) 

COMMENT lABEuR SETS THE SIGN OF THE ADDITIONAL INFO FOR A 

negative when the label is encountered, so this 
That we now know where to go; 

ELSE BEGIN EMITCgTd; EMITCBRANCHTYPE) I 
PUT(GTULt36l36H21»6T2) END END GOGENI 



LABEL 

MEANS 



07535000 
07536000 
07537000 
07536000 
07539000 
07540000 
07541000 
07542000 
07543000 
07544000 
07545000 



00031 
00031 
00031 
00031 
00031 
00031 
0003< 
00031 
00031 
00031 
0003t 



04S4tO 
040410 
040410 
049410 
048410 

046713 
049010 
049011 
O49OI1 
049011 
049312 



COMMENT SIMPgO IS USED ONLY 
A STATEMENT jS 
BOOLEAN PROCEDURE SIMPqO; 
BEGIN LABEL EXfTl 



BY THE IF STMT 
A SIMPLE GO TO 



IF ELCLASS a 

THEN BEGIN 

IF STEPI 

IF 

IF 



GOV 



ROUTINE, IT 
STATEMENT! 



DETERMINES IF 



EXITJ END SIMPGOI 



Tov Then stePiTi 

ELCLASS • LABeLID THEN 
LOCALCELBaTCI]) THEN 
BEGIN StMPGO «. TRUEI gO EXIT END; 
I ♦ I-l; ELCLASS ♦ GOV END? 



07546000 T 00031049512 

07547000 T 0003»0495I2 

07548000 T 00031049512 

07549000 T 00031049512 

START OF Segment *♦♦♦♦*»♦♦♦ 63 

07550000 T 00631000010 

07551000 T 00631000010 

07552000 T 0063«000l«2 

07553000 T 00631000312 

07554000 T 0063(000410 

07555000 T 006310005*3 

07556000 T 0063«0007l2 

07557000 T 0063»0009l2 

63 IS 13 LONG» NEXT SEG 3 



STACKeF*2) s Tl 
STACK(F+3) « T2 



COMMENT IFSTmT COMPILES IF STATEMENTS, SPECIAL CARE IS TAKEN TO 

OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUmPS. TO SOMF 
EXTENT SUPPERFUi.OUS BRANCHING IS AVOIDED! 

PROCEDURE IFSTmTJ 

BEGIN REAL Ti,T2; LABEL EXfTi 



ifclause; 
ir Simpgo 
Then begin 

Tl ♦ ELBATr n; 



07558000 T 0003>0495I2 



07559000 
07560000 
07561000 
07562000 
START OF SEGMENT 



07563000 
07564000 
07565000 
07566000 



T OOO3IO49512 

T 00031049512 

T 0003t0495)2 

T 00031049512 



T 00641000010 

T 0064t0000fl 

T 00641000011 

T 0064<0001I3 



IF STEPI « ELSFV 

then begin 
stepitj 

IF SimPqO 
THEN BEGIN 

60GFN(ELBATtn»BFC)l 



GOGENeTliBFW)! 



EXITI END 



STEPfTl GO TO EXIT END EUSE BEGIN EM| TUNG J GOGEN( Ti . BFC ) I 

STMT i f.O TO EXIT END END I 

EMiTtNGI GOGEN(Ti,BFC)J 

GO EXIT ENDi 
Ti * BUMPL* STMTI 
IF ELCLASS * EUSEV TheN 

BEGIN IF U''Tl>10i3 THEN ADjUSTi EMI TB( BFC ,Ti , t) | 
GO EXIT ENDI 
STEPiT) 
IF SiMPGO 
THEN BEGIN 

T? ♦ Ll U ♦Tl-2l60GENCEL.BATnJ*BFC)l I ♦ T2| 

STePiTi 60 EXIT pNDI 
T? * BUMPL* CONsTaNTCLEAN? 

IF L-T1>1023 ThfN ADJUST; EMi TB( BFC» T 1 » L) ; STMT; 
IF L-T2>1023 THfN ADJUST; EM ! TB( BFW, T2,L) ; 

ifstmt; 



07567000 
07568000 
07569000 
07570000 
07571000 
07572000 
07573000 
07574000 
07575000 
07576000 
07577000 
07578000 
07579000 
07579100 
07580000 
07581000 
07582000 
07583000 
07584000 
07585000 
07585100 
07586000 
07587000 



64 IS 41 lONGi 



00641000211 
0064I0003>2 
00641000410 
00641000411 
00641000411 
0064t0005;3 
00641000713 
0064>00l0ti 

0064»00UI3 
0064*001312 
0064>00l3t3 
00641001610 
00641001611 
0064*002011 
0064*0021*2 
0064*0021*3 
0064*002113 
0064*002211 
0064*002611 
0064*0027*3 
0064*0030*0 
0064;0034t0 
0064*0037*3 
NEXT SES 3 



COMMENT LABELR HANDLES LABELED STATEMENTS, iT PUTS L INTO THE 

ADDITIONAL INFO AND MAKES ITS SIGN NEGATIVE, IT COMPtLF 



PRTt6?l) » I.ABELR 



PROCEDURE 



AT The 

up FOR 

IN The 
labelRJ 



SAME TIME ALU 
IT BY GOrEN. 
CODE ARRAY OF 



THE PREVIOUS FORWARD REFERENCES SET 
fTHE ADDITIONAL INFO LINKS TO A LIS 
ALL FORWARD REFERENCES); 



07588000 T 
S 07589000 T 

07590000 T 
T 07591000 T 

07592000 T 

07593000 T 



BEGIN LABEL EXfT, ROUND; 



STaCK(F+2) m OLDL 



DEFINE rLBATW0RD*RR9#.LINK«GT?#, I NDEXsQl 3#. ADD IT I ONAL 

«GT4#»NEXTlINK»GT5#; 

Real oldl; 



07594000 
START OF SEGMENT 
07595000 
07596000 
07596500 



0003*0495*2 
0003*0495*2 
0003*0495*2 

0003*0495*2 
00031049512 
0003*0495*2 



DO BEGIN OLDL •■ L; 

IF STEPi * COLON TheN 

BEGIN ERR(133); 60 TO EXIT END; 
XMARKCLBLREF); % THIS WILL SORT AHEAD OF DECLARATION 
% WHEN WE GET aROUND TO THE XReF, 
IF NOT LOCALfELBATWORD ♦ ELBATtl-lj) 

THEN BEGIN FLAGC134); GO TO ROUND END* 
IF STEPi ■ COLON THEN 

BEGIN I ♦ I-i; ADJUST END ELSE 
IF ELCLASS » LITnO THEN L * 4xC ELSE 
IF ELCLASSaASTRlSK THEN 

BEGIN IF MODE # OR ASTOG THEN 
FLA6(505); 

aStog * true; 

L, ♦ 4xpRTi; 
END ELSf 



Xll 
Xll 



T 0003*0495*2 

4>**4r«#4i«** 65 

T 0065*0000*0 
T 0065*000010 
T 0065*0000*0 



07597000 T 0065*000010 

07597500 T 0065*000011 

07598000 T 0065*0001*3 

0- 07598100 C 0065*0003*3 

0- 07598200 C 0065*000713 

07599000 T 0065*0007*3 

07600000 T 0065*0008*1 

07600100 T 0065*0011*3 

07600200 T 0065*0012*1 

07600300 T 0065*0015*2 

07600400 T 0065*001810 

07600410 T 0065*00t9»2 

07600420 T 006510021*2 

07600430 T 0065*002210 

07600440 T 0065*0023*2 

07600450 T 0065*0024*0 



I ♦ I"2l 

IF STEPi * COLON THEN 

BEGIN ERRC133)> GO TO pXlT ENOI 
IF L < OLDL THEN 

BEGIN FLAG(504)I GO TO ROUND ENDI 
GTl * TABLE(I*1)I 

LINK «■ fADDlTlONAU ♦ TaKF(INDEX ♦ 6 I T ( ELBATWQRD) ) ) 
.r36il2]» 

IF ADDITIONAL < THEN 

BEGIN FLAG(13b)» GO TO ROUND ENO> 
FOULED ♦ LI 

IF TABLEfI + 1) «. COLON THfN 
BEGIN 

LINK#0 
BEGIN 



IF 

DO 



OLDL ♦ LI 
6ET(LINK)I 



ROUNDJ 
EXITJ 



EN'O 



THEN BEGIN 
NEXTlINK «. 
L ♦ LINKI 

IF 0LDL.t36n0]-L,C36tlO]Xl28 
THEN FLAG(50) ELSE 
EMlT(0LDL-LlNK«0t46U6l2H 

0&NEXTL|NK[46l46i2]+307?)) 
L ♦ L-ll 
END UNTIL LINK»LINK-NFXTLINK OIV 4.U) 

L * oldli endj stepiti 

nO IF STEPI < STRNGCON AND ELCLASS > 
NONLITNO THEN EMlTWORO(C) 
ELSE BEGIN ERR(500)J I ♦ f-l pNO 

UNTIL STEPI * comma; 

T * I-l I 
ENo ELSf 

WHILE Link # o 

DO BEGIN 

NEXTLfNK •■ fiET(LlNK»2)? 
IF L-LINK>1023 THEN ADJUSTJ 
EHlTB(fiET(LlNK-l),LlNK,L)l 

Link «. nextlink endi 

PUT(-AODlTtONAL&LC36l36ll2],lNDEX)l 
ERRORTOG * TRUE END UNTIL STEPI * LABELIOI 
LABELR? 



65 IS 



07600500 T 00651002410 

07600600 T 00651002610 

07600700 T 00651002712 

07600800 T 0065t002dll 

07600900 T 0065J0029I3 

07600950 T 00651003112 

07601000 T 00651003312 

07602000 T 0065l0034«l 

07603000 T 00651003610 

07604000 T 0065»0037t2 

07604010 T 0065«0038li 

07604020 T 0065»0039I3 

07604030 T 00651004112 

07604040 T 0065(004113 

07604050 T 00651004313 

07604060 T 00651004512 

07604067 T 0065*004610 

07604068 T 0065<0047t3 
07604070 T 0065l0049l3 
07604080 T 0065»0052»0 
07604085 T 0065J0054I0 
07604090 T 00651005513 
07604100 T 0065J005BI0 
07604110 T 00651005913 
07604120 T 0065I006H2 
07604130 T 0065»0062»1 
07604140 T 00651006712 
07604150 T 0065t0066U 
07604160 T 00651006913 
07605000 T 00651006913 
07606000 T 00651007112 
07607000 T 00651007210 
07607100 T 0065t0074t0 
07608000 T 0065«0076I0 
07609000 T 0065«007eil 
07610000 T 00651007913 
07645000 T 0065»0082»0 
07646000 T 0065»0084l0 

88 LONG* NEXT SEG 3 



1* 



STATEMENT 



% 

%* 

** CASE 

%* 9 a •» 

%* 

%* 

%* 
%* 

%* THIS PROCEDURE HANDLES THE CaSE STaTEMeNT, THE SYNTAX FOR THE CASE 

X* statment iSI 

x* 

%* CASE <aexp> Of begin <compound tail> 



%% 

*% 
*% 
*% 

*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 



07646010 
07646015 
07646020 
07646025 
07646030 
07646035 
07646040 
07646045 
07646050 
07646055 
07646060 
07646065 
07646070 
07646075 



0003» 
0003< 
00031 
00031 
00031 
OOOSt 

0003( 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 
049512 



PRT(6?2) ■ 



%* 
%* 

X* 
%* 
%* 
X* 

%* 
%* 
%* 

X* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

%* 
%* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

%* 
%* 
%* 

X* 
X* 
X* 

%* 

X* 

xxxxxxx 

PROCEDU 
CASESTATFMEN 
BEGIN 
ARRAY 



THE CODE GENFRATEH FOR THIS STATEMENT iSl 



pRANCH TABLFI 



<aeXp> 

LITC ? 
BFW 

STMT 
LITC ? 
BFW 

STMT 1 
UITC ? 
BEW 



DUP 

ADD 

BEW 

LITC 

BBW 

LITC 

BBW 



BRANCH TO BRANCH TABLE 
BRANCH TO RESUME 
BRANCH TO RESUME 



7 
? 



LITC 
BBW 



RESUME! 

NOTICE THAT* 
1) 



BKANCh INTO TABLE 
BI^ANCH TO STATEMENT 
BRANCH TO STATEMENT 1 

BRANCH TO STATEMENT N 



?) 



3) 



4) 



>KX 

♦ X 

*x 

♦ X 

*% 
*% 
*x 

♦ X 

*x 

♦ X 

♦ X 

*x 

♦X 

♦X 

♦ X 

♦ X 
♦X 

*x 

♦ X 

*x 
*x 

♦ X 

*x 
*x 

♦X 

♦ X 

*x 
*% 
*% 

♦ X 

♦ X 

♦ X 

♦ X 



The CASE INDEX IS NOT iNTegERiZED. IE YOU HAVE ANYTHINr ThaT *X 
MIGHT CAUSE THE INDEX TO BE UnNORMALUED YOU WILL HAVE TO ♦X 

tntegerize it yourself; *% 

•X 

NO RANGE CHECKING IS DoNE ON THE INDEX. IF YOU USE A nUMBER *X 
OUT OF RANGE THEN YqU WILL FALL OFF THE END OF THE WORLD. *X 

*X 
IE A STATEMENT IN THE CASE COMPOUND TAIL IS NULL* NO CODE IS *X 
GENERATED FOR THE STATEMENT, INSTEAD* THE BRANCH TABLE GOES *X 
DIRECTLY TO RESUME. *% 

*% 
TF A STATEMENT iN ThF CASF COMPOUND TAlL IS A SiMPLE GO TOt ♦X 
THE STATEMENT DOES NOT HaVE A BRANCH TO RESUME AFTeR IT. «X 

*X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxsxxx 

RE CASESTATEMEnTJ X115« 

T 



07646080 C 
07646085 C 
07646090 C 
07646095 C 
07646100 C 
07646105 C 
07646110 C 
07646115 C 
07646120 C 
07646125 C 
07646130 C 
07646135 C 
07646140 C 
07646145 C 
07646150 C 
07646155 C 
07646160 C 
07646165 C 
07646170 C 
07646175 C 
07646180 C 
07646185 C 
07646190 C 
07646195 C 
07646200 C 
07646205 C 
07646210 C 
07646215 C 
07646220 C 
07646225 C 
07646230 C 
07646235 C 
07646240 C 
07646245 C 
07646250 C 
07646255 C 
07646260 C 
07646265 C 
07646270 C 
07646275 C 
07646280 C 
07646285 C 
07646290 C 
07646295 C 
07646300 C 
07646305 C 
07646310 C 
07646315 C 
07646320 C 
07646325 C 



CASEADDRESSC0«99]I 



STACKfr*2) m CASEAODRESS 



X THIS ARRAY HOLDS THE RELATIVE 



X ADDRESS OF THE BEGINNING OF EACH 
X CASE, 



X115» 07646330 

X115- 07646335 

START OF SEGMENT 



0003t0495>2 

00031049512 

0003I0495«2 

0003*040512 

0003(049512 

0003(049512 

00031049512 

00031049512 

00031049512 

0003t0495l2 

0003(049512 

00031049512 

00031049512 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003)0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(049512 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(0495(2 

0003(049512 

0003(049512 

0003(0495(2 

00031049512 

0003(0495(2 

0003(0495(2 
0003(0495(2 
0003(0495(2 



C 0003(0495(2 
C 0003(0495(2 

*»4i«**4iiK«« 66 



X115» 
X115- 



07646340 C 
07646345 C 



0066(0001(3 
0066(0001(3 



STACKfF+3) a LINK 



STACKfF4.4) 



inTegfR 

L1NK» 



ADR, 



ADR 



STACKfF*5) « N 

STACKfF+6) « ENDOFIT 
STACKfF+r) 3 J 
STACK(F+10) K K 



ENDoFiT, 

J* 

Kl 



«115- 
% HOLDS RELATIVE ADDRESS OF FiRST OF «!15« 

X BRANCHES THAT MUST BE FIXED UP TO X115- 
% BRANCH TO THE RESUME POINT. I!ll5- 
X HOLDS RELATIVE ADDRESS OF THE BRANCH 

% AROUND The CASE STATEMENTS TO The «115- 

% BRANCH Table, this branch gets fixfd 

% UP when we FIND WHERE THE BRANCH TABLE 

« GOES, mis- 

t COUNT OF NUMBER OF CASE STATEMENT I!ll5- 



% ENCOUNTERED, 

% ADDRESS OF RESUME POINT 

X TEMPORARY 

X TEMPORARY 

X 



X115- 

xnS" 

XI 15* 
X115- 



boolean 

GOTOGI 
STACKfFfll) » GOTOq 



X115- 
X115- 
X TRUE IF WE ARE COMPILING A SIMPLE X115» 



X 
X 



LABEL XiT; 



X GO TO, 



XU5- 
«115» 
X115- 
X115- 

xns- 

Xll5» 
X115" 
X115- 
X115- 
XllS- 
X115- 
XU5- 
XU5- 
Xl!5- 
XU5- 
X115- 



STEPITI X STEP OVER "CASE" 

AEXp> X GENERATE CODE FOR CASE INDEX 

IF STePI * BEGIKV THEN X NOTICE We JUST JUMPED OVER "OF" 

Begin 
err(70)) go to xiti 

ENDI 
EMIT(0)I X GENERATE DUMMy BRANCH TO BRANCH TABLE. WILL FIX 
EMIT0(BFW)I X IT UP LATeR. 
ADR l» L< 
WHILE STEPI * ENDV OO 

BfGIN X PROCESSING CASE STATEMENTS 
ERRORTOg •« TRUEJ 
IF ELClASS » SEMICOLON THEN X NULL STATEMENT, NO CODE NfEOEO 

N i» N ♦ 1 X This leaves a zero in caseaddResscnj xiis- 

FLSE «115- 

BEGIN X115- 

CASeaD0RFS5[N] t« L| X REMeMBeR BEGINNiNg ADDRESS Or Xll5- 

N «• N + 1> % THIS CASE, X115- 

IF fGOTOG 'p SiMPgO) TheN Xil5" 

ELBAT[II«I-1 J Is ELCLASS tm GOVI X REMEMBER IF SlMPLFXllS" 

STMT) X PROCESS ThE STATEMENT X115- 

IF ELCLASS > SEMICOLON THEN «115* 

IF NOT GOTOG THEN X GENERATE DUMMY BRANCH TO RESUME X115- 

BEGIN X115- 

EMIT(LINK)J X115* 

FMITO(BFW); 1115- 

LINK t« LJ X115- 

ENo XU5- 

FLSE X SIMPLE GO TO, NO CODE TO GENERATE XllS- 

ELSC X115- 



07646350 C 
07'646355 C 

07646360 C 
07646365 C 
07646370 C 

07646375 C 
07646380 C 
07646385 C 
07646390 C 
07646395 C 

07646400 C 
07646405 C 

07646410 C 

07646415 C 

07646420 C 
07646425 C 
07646430 C 



07646435 
07646436 
07646440 
07646445 
07646450 
07646455 
07646456 
07646457 
07646458 
07646459 
07646460 
07646465 
07646470 
07646475 
07646480 
07646485 
07646490 
07646495 
07646500 
07646505 
07646510 
07646515 
07646520 
07646525 
07646530 
07646535 
07646540 
07646545 
07646550 
07646555 
07646560 
07646565 
07646570 
07646575 



C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



00661000113 

OO66IO001I3 

00661000113 
0066t000lU 
00661000113 

006610001)3 
0066)0001)3 
0066)000113 
0066)0001)3 
0066)0001)3 

0066)0001)3 
0066)0001)3 

0066)0001)3 

0066)0001)3 

006610001 13 
0066)0001)3 
0066)0001)3 

0066)0001)3 

0066)000113 

0066)0001)3 

0066)0001)3 

0066)0001)3 

0066)0002)0 

0066)0002)1 

0066)0003)3 

0066)0004)0 

0066)0005)3 

0066)0005)3 

0066)0006)0 

0066)0007)2 

0066)0007)3 

006610009)3 

0066)0009)3 

0066)0010)0 

0066)0011)2 

006610012)0 

0066)0012)1 

0066)001312 

0066)0014)1 

0066J00i5)3 

0066)0016)1 

0066)0020)0 

006610020)1 

0066)0021)2 

0066)0022)0 

0066)0022)1 

0066)0023)3 

006610024)0 

0066)0025)2 

0066)0025)2 

0066)0025)2 



END 
FNDTOG 
DO $T0 

stfp 

ENDTOr, 
E-MfTB( 

EMITOC 

e:mito( 

EMITOf 
ENDoFl 
WHI|,E 

Emit 



IF ELCLASS * ENDV THEN 
ERRf^i); 

FNDJ 

OF WHILE LOOPi 

«« truei % 

POEFINE !■ TRUE 



sk: 

UN' 



I < ENDV AND 

l« FALSri 
BFW,AdR»L)J % F 
DUP)I % G 

AOD)l % B 

BFW)I 

T I* L + ?XNJ * CA 
fJ»*J+l) < N DO % 
B(BBW,Lt«l>2» IF (K 



IP OVER COMMENT AFTER END 
TtL 
EUCLaSS > UNTILV OR NOT ENOTOgI 



J Xm LINKI X TO MAKE THE 
WHILE (LlNKl»J) i« DO 
BFGIN % FIXING UP BRA 
J !■ GETCLlNK-2); % 
EMiTB(BFW»LlNK»L)l 
END! 
XITI 

ENo Of cASF statfmfnt» 



IX UP BRANCH TO BRANCH TABLE 

ENERATE CODE TO MULTIPLY INDEX 

Y TWO AnO BRANCH INTO BRANCH TABLE 

lcUlate Where resume is 
generate the branch table 

I«CaSEADDRESS[J»i]) « THEN 
ENDOFIT ELSE K); 
L.OOP WORK 

nches To resume 
location of next branch to fix 



% 


115- 


07646580 


C 


00661002513 


% 


115- 


07646585 


C 


0066»0026ll 


% 


115- 


07646590 


C 


00661002610 


% 


115- 


07646595 


C 


00661002810 


X! 


115- 


07646601 


C 


00661002611 


X 


115- 


07646602 


C 


0066<0029t2 


XI 


115- 


07646603 


C 


0066100301 1 


XI 


115- 


07646604 


C 


00661003410 


XI 


115- 


07646605 


C 


00661003411 


X] 


115» 


07646610 


C 


00661003610 


XI 


115- 


07646615 


c 


00661003611 


X] 


115- 


07646620 


c 


00661003713 


XI 


115- 


07646625 


c 


00661003610 


XI 


115- 


07646630 


c 


0066 t0040lO 


X! 


15- 


07646635 


c 


00661004210 


XI 


115- 


07646640 


c 


0066l0046t0 


XI 


15- 


07646645 


c 


0066(004610 


X] 


15- 


07646650 


c 


00661004912 


XI 


15- 


07646655 


c 


00661005011 


XI 


15- 


07646660 


c 


00661005011 


XI 


15- 


07646665 


c 


006610052)1 


XI 


115« 


07646670 


c 


0066l0053>3 


XI 


15- 


07646674 


c 


00661005410 


XI 


15- 


07646675 


c 


0066t0055>2 






66 IS 60 LONC 


1* 


NEXT SEG 3 



PROCEDURE FILLSTMT(SIZE)» VALUE SIZF> INTEGER SIZE» 
PRT(623J c FILLSTMT 

BFGtN 
COMMENT "COCT" PERFORMS The OCTAL CONVERT FOR THE FILL STATEMENT. 
IF THERE ARE ANY nON-OcTAL DIGITS, ThiS PROCEDURE RETURNS 

A ZERO ANO Then the 3 low-ordeR bits of The bad digit are 

RESET AND IGNORED AND ERROR NUMBER 303 IS PRINTED. ••COCT" 
ALLOWS FLAG BITS TO BE SET, WHEREAS "OCTIZE" DOES NOT, 



07647000 T 00031049512 



PRTf624) m COCT 



N 
SKBIT 



ACC 



NUMBER OF CHARACTERS To BE CONVERTED. 
NUMBER OF BITS TO SKIP BEFORE STARTING CONVERSION, 
THIS IS BECAUSE THE NO, OF CHARS, MAY BE LESS THAN 
8 AND IT MUST BE RIGHT-JUSTIFIED IN COCCOOEFILE) . 
ADDRESS OF The AcCUM where ALPHA INFO IS KEPT. 



Real stream procedure coct(n,skbit,acc,co)jvalue n.skbit; 



BEGIN 

SMuACCJ Sl««Sl*6) OI»«CDl DSI.8 L I T^OOOOOOOO"! 

DI«»C0 > SKIP SKBiT OBJTALLYlBll 

N(IF Sc>h7i.ThEN TalLYUO; SKIP 3 SB) 

3(IF SB THEN DSUl SET ELSE SKIP 1 DBi SKIP 1 SB))I 
C0CTl«TALLY 
FNO COCT) 



07647500 T 000 

07648000 T 000 

07648500 T 000 

07649000 T 000 

07649500 T 000 

07650000 T 000 

07650500 T 000 

07651000 T 000 

07651500 T 000 

07652000 T 000 

07652500 T 000 

07653000 T 000 

07653500 T 000 

START OF SEGMENT ♦*♦•♦» 

07654000 T 0067 

07654500 T 0067 

07655000 T 0067 

07655500 T 0067 

07656000 T 0067 

07656500 T 0067 

07657000 T 0067 



3I0495«2 
31049512 
31049512 
3«0495l2 
31049512 
31049512 
3t0495l2 
31049512 
3I0495<2 
31049512 
31049512 

3*049512 
31049512 
«*4>« 67 

iDOOOtO 
tOOOOtO 
1000210 
1000312 
t0005>2 
1000712 
1000713 



Real T2i 



07657500 T 0067l000Stl 



STACKfr*2) m T2 



PRT(6?5) « ZEERO 



UABfL L1> 

STRrAM PROCFDURr ZEE^OfD)! 

BFGIN 

DT««D>DSle8 LI T^OOOOOOOO") 

SI »bOI31(32(DS«»WDS))I DSi«30 WDS> 

EMD ZErROl 



07658000 
07658500 

07659000 
07659500 
07660000 
07660500 



T 00671000811 

T 00671000611 

T 00671000811 

T 00671000912 

T 0067l00i0M 

T 00671001210 



XMARKfASS 

STRfAMTOG 

SEGMENTS! 

IF STePI)« 

ELSE BEGI 

FOR 



IGNRef5» 
««BOOLEAN 
ART(TRUE) 
ASSIGNOR 
N 

T2»«l STE 

BEGIN 

IF STEPI 

BEG 

IF 

I 



% FILL 

(2)1 

I 

Then z 



STaTEMfNT 



«iio« 



EeR0(C0DE(1)) 
P 1 UNTIL SIZE DO 
THEN 



ELSE 



Ll» 



ERRO 
END» 

RIGhT(SIZ 
STRfAMTOG 
SEGMENT(S 
PROftDFSCB 
END FILLS 



ELSE 

IF 

M 

ELSE MOV 

END 

IF COUNT 

8FG 

IF 

C 

END 

ELSE BEG 

IF STEPi 

ENDJ 

R(5A)> 



>I0MAX 
IN 

ELCLaS 

F ELCL 

IF EL 

(ST 

C 

ELCLAS 

ovecha 

E(1»C» 



SjiLlTNO AND ELCL ASS#N0NL I TNO THEN 

ASS^STRNGCON THEN 

CLA5S»A00P ANo 

EPI-NONLITNO OR ELCLASS»L ITNO ) THEN 

».C S ELBATtl-l3Cll2Hn 

BEGIN fRR0R(3O2)I GO TO Ll END! 

S.STRNGCON AND C0UNT*6 THEN 

RACTERS(8,ACCUMtl]f3.C0DE(T2).0) 

C00E(T2)) 



il9 AND ACCUMrn.[18lia]B''0CT'' THEN 

IN 

COCT(C 

0DE(T2 



0UNT-3ffl8-(C0UNT-3)x3fACCUMtnt 

))«o Then fuag(303) 



IN ERR0R(302)I GO TO Ll END i 
#C0MMA then GO TO Ll 



EX4)I 

>«FALSE» 
lZc»0)j 

LOR(ADDRSF»TRuE.SIZE»DDES)J 
TMTI 



67 IS 



07660600 




0067 


10012 


11 


07661000 




0067 


I00i7 


'2 


07661500 




0067 


lOOie 


to 


07662000 




0067 


IOO18I 


'I 


07662500 




0067 


10023) 


12 


07663000 




0067 


10024 


10 


07663500 




0067 


100251 


12 


07664000 




0067 


100251 


2 


07664500 




0067 


100261 





07665000 




0067 


I0026i 


I 


07665500 




0067 


100281 





07666000 




0067 


100291 


3 


07666500 




0067 


10030) 


1 


07667000 




0067 


100331 


2 


07667500 




0067 


IOO351 


3 


07668000 




0067 


100371 


3 


07668500 




0067 


1OO391 


3 


07669000 




0067 


IOO44) 





07669500 




0067 


IOO4BI 


1 


07670000 




0067 


100491 


2 


07670500 




0067 


100521 





07671000 




0067 


100521 


I 


07671500 




0067 


IOO56I 


I 


07672000 




0067 


100611 


2 


07672500 




0067 


100611 


3 


07673000 




0067 


100641 





07673500 




0067 


100651 


2 


07674000 




0067 


100681 





07674500 




00671 


00681 


1 


07675000 




00671 


00681 


1 


07675500 




00671 


100691 


2 


07676000 




00671 


100701 





07676500 




00671 


00711 


2 


07677000 




00671 


100721 





07677500 




00671 


00731 


3 


76 LONC 


if 


NEXT SES 





PROCEDURE STMT? 

BFGIN LABEL 



Ll» 
Lll* 



07711000 
07712000 



T 00031049512 
T 0003*049512 



L?. 
L12» 



L3» 
L13» 



L4» 
L14» 



L5» 
Ll5, 



L6f 
L16» 



L7. 
L17, 



LSf 
LIB, 



L9. 
Lt9, 



LlO. 
L20. 



START OF SEGMENT **»»**»*•• 68 
07713000 T 0068<0000«0 
07714000 T 00681000010 



AGAINI 



131 » 
141* 

L51» 

SWITc 

Ll» 

Ull» 

L?l» 

L31 » 

LAI* 

L51» 

Label 

STACK 
GO TO 
IF EL 



l?20 L23# 

L32» L33» 

LA2» L43. 

L52» L53» 

L3* 



H S 

L?» 

L12» 

L22» 

L32» 

L«2» 

L52» 



L13* 
L23» 
L33» 
L43* 
L53» 



AGAIN»EX 
CT ♦■ 0; 

S[ELCLaS 

CLASS = C 

BEGIN STE 

IF E 

ELSE 
ELSE 
IF L 



L24. 
L3ft» 
L'fl' 
L54I 

L*. 
LU» 
L24» 
L34» 
La4» 
L54I 
ITI 

SJ» 

olon 
ptt> 

LcLaS 
BEGI 
?F E 
I *■ 
< GT 
BEGI 

IT» 

ara 



L?5, L26» 
L35» L36» 
m5t L46* 



L5. 

Ll5* 

L25» 

L35» 

L45* 



L6» 

Ll6f 

L26* 

L36* 

L46* 



L27. 
L37» 
L47» 



L7. 

Ll7« 

L27» 

L37» 

L47» 



L28, 
L38# 
L48, 



L8* 
L18. 

L28» 
L38t 
L48f 



L,29, L30f 
L39» 140. 
L49, L50# 



L9. 

H9* 

L29. 

L39. 

L49» 



LIO. 
L20* 
L30» 
L40t 
L50. 



THpN 
GTi 

5 K 

N AD 

lcla 

I-IJ 
1 OR 
N fR 



* l; 
colon then 

JUST* I • I-l END 
SS B LITNO THEN I 



4xc 



STEPl # COLON THEN 
R(504)| GO TO EXIT ENDJ 



Ll!L2tL 
L33iL3a 

L7ti, 

LIOJ 

Ll2i 

L22» 

L32t 

L3et 

L40i 



IF EL 
3lL4lL5jL6i 

lL35lL36a3 
ERR(1 
8t 

SUBHA 
Ll8«Ll9j 

PROCS 



STEP 

go to araini 
endi 

CLASS « THfN 

L9JLll»Ll3«Ll4 

7IL39« 

44)1 GO TO EXIT; 



FLAG(100)J FLAG(145)| 
»Ll5tLl6»Ll7lL20tL2ltL25tL28»L29»L24r 



ND(TRUE)» GO TO rXlTl 
TMT(TRUe)> GO TO exit; 



THEN 
ENDI 



L4?t 
L43« 
L44i 
L45I 



StRMPROcSTMT; GO TO FXITJ 
L23«L26JL27lL30a3lJ 

vaRiabLecfS); go to exit; 
labelr; go to again; 
polishER(O); go to ex^t; 
IF elbat(i), address » streamv 

BEGIN INLINE! GO TO EXiT 

rLAGri46); 

if TABLEfI-2) « ENDV AND MODE > THEN 

BEGIN I * T-2; EUCLASS * ENQV; go TO EXIT ENoi 
T ♦ f-i; eRRORTOG ♦ TRUE* BLOCKtFALSE); 
ELCLASS ♦ TABLEM*I-1)I GO TO EXfT; 

dblstmt; gO to fXtt; 
forstmt; go to fXiti 

WwlLESTMTl GO To pXlTl 

dostmt; go to exit; 



07715000 
07716000 
07717000 
07718000 
07719000 
07720000 
07721000 
07722000 
07723000 
07724000 
07725000 
07726000 
07726990 
07727000 
07727010 
07727020 
07727030 
07727040 
07727050 
07727060 
07727070 
07727080 
07727090 
07727100 
07727110 
07728000 
07729000 
07730000 
07732000 
07732000 
07733000 
07734000 
07735000 
07736000 
07737000 
07738000 
07739000 
07740000 
07741000 
07742000 
07743000 
07744000 
07745000 
07746000 
07747000 
07748000 
07749000 
07750000 
07751000 
07752000 
07753000 
07754000 
07755000 
07756000 
07757000 
07758000 
07759000 



00681 
00681 
00681 

0068 1 

00681 

00681 

00681 

00681 

00681 

00681 

00681 

00681 

00681 

00661 

00681 

00681 

00681 

00681 

0068t 

00681 

00681 

00681 

00681 

00681 

00681 

00661 

00681 

00681 

00681 

00681 

00681 

00681 

00681 

00681 

0068; 

00681 

00681 

00661 

00681 

00681 

00681 

00661 

00681 

00681 

00681 

00681 

00681 

00681 

00681 

0068t 

00681 

00684 

00681 

00681 

0068» 

0068* 

00681 



OOOOIO 
000010 
OOOOIO 

ooooto 

OOOOIO 
0002U 
000211 
000211 
000211 
00021 1 
0002U 
003010 
003010 
003113 
003410 

0034U 
003611 
003712 
0039! 3 
004113 
OO44IO 
OO46IO 
004610 
OO48II 
OO4912 
004912 
005113 
005210 

oossto 

005312 
005410 
005512 
OO56IO 
OO5712 
005810 
005912 
005912 
006010 
006142 
006210 
006210 
006312 
006440 
006513 
006712 
006713 
OO7OI1 

0073*3 
007610 
OO79I2 
007912 
008040 

ooeoio 

008112 
00814 2 
008210 
008240 



L49| 
L51» 
U52t 
L53t 
L.54I 



caSestatfmentj fiO TO fxit; 

irSTMTI GO TO EXITI 

gostmti go To exit; 

!OSTMT» GO to EXIT» 



X115' 



IF STEPI « declarators THEN 
BEGIN 

IF ELBATrn.ADDRESS « STREAMV ThEN IF STePI • 

leftparen Then 

BEGIN 

elclass*tableo*?-i) > 

COMPOUNDTAiL, J 
GO TO EXiT I 
FMD ELSE I * I - i; 
I ♦ I - 1* 

8lock(False)» end else compoundtaili 

L46a47«L49»L50» 

U41« 

EXITJ rND STMT) 



X 6 
X 6 
% 6 



t 6 

% 6 



X115" 



68 IS 



07759100 C 
07759200 C 
07760000 T 
07761000 T 
07762000 T 
07763000 T 
07764000 T 
07765000 T 
07766000 T 
07767000 T 
07768000 T 
07768100 T 
07768110 T 
07768120 T 
07768130 T 
07768140 T 
07768160 T 
07768170 T 
07768180 T 
07768200 T 
07769000 T 
07770000 P 
07771000 T 
101 LONG. 



0068t 
00681 
00681 
00681 
0068 » 
00681 
00681 
00681 
0068t 
00681 
00681 
00681 
00681 
00681 
0068t 
00681 
00681 
00681 
00681 
0068) 
0068t 
00681 
0068t 
NEXT S 



00e3>2 
0083 t 2 

ooe4<o 

006410 
0085 t 2 
006512 
006610 
006610 
0087(2 
006712 
006610 
008811 
009112 
009113 
009210 
009410 
009411 
009512 
OO9712 
009810 
OiOOlO 
OlOOlO 
01 0010 
EG 3 



PROCEDURE IOSTMT; 

IF STEPI H LITNO OR f GT1*ELBAT[ 13 , ADDRESS)> 15 THEN ERRf98)FLSE 

BEGIN EMlT(EL8AT[T-l],A0DRESS&GTir41l47iniGTu36l44l33)) 

STEPiT 
END SCOPE STATEMENT; 



07991000 
07993000 
07994000 
07995000 
07996000 
07997000 



T 00031049512 

T 00031049512 

T 00031049512 

T 00031050011 

T 00031050512 

T 00031050512 



PROCEDliRr FORSTMTJ 
BFGIN 

OWN Real b»stmtstart.rego,returnstore. adores, v.vret, 



PRT(6?6) K H 
PRT(6?7) c STmTSTART 
PRTC63O) « REGO 
PRT(631) • RETURnSTORE 
PRTC632) 9 ADORES 
PRTC633) * V 
PRT(634) •! VRET 

PRT(635) m qRET 

PRT(636) 9 5I6NA 

PRT(6375 m SIGNB 

PRT(640) » SIGNC 

PRTc64n * ?NT 

PRT(6423 p CONSTANA 



08008000 T 00031050513 

08009000 T 00031050513 

08010000 T 00031050513 

START OF Segment *♦♦♦»**♦** 69 



BRETJ 
OWN BOOLEAN S I gNa» S I gNb» S I r,NC . INT, 

CONS TAN A, CON ST AN8« CONSTANCY 



08011000 T 00691000010 
08012000 T 00691000010 

08013000 T 0069l0000»0 



PRT(643) 
PRT(644) 



C0NSTAN8 
CONSTANC 

DEFINr SIMPLCB a SIGNc*» FORMALV » SlGNA#. 

SIMPLEV « CONSTANAI. A » V#. Q » REG0#» 
OPqC » TRUr#» DESC ■ FaLSE#. K « BRCT#I 
LABEL EXITI 
COMMENT PLUG EMITS EiThER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 

CONSTANT DEPENDING ON THE REQUIREMENTS! 
PROCEDURE PLUGfC.A)! VALUE C,A; REAL M BOOLEAN CJ 
PRT(645) « PLUG 

IE C THEN EMlTNUM(A) ELSE EMITV ( a, ADDRESS ) I 



08014000 
06015000 
06016000 
08017000 
06018000 
080)9000 
080?0000 



0069 
0069 
0069 
0069 
0069 
0069 
0069 



iOOOOtO 
lOOOOlQ 
I 000010 
t 000010 
lOOOOlO 
lOOOOlO 
IOOOOtO 



060?1000 T 00691000010 



PRT(6fl6) « SIMPLE 



COMMENT SIMPLE DETERMINES IF AN ARiThMETiC EXPRESSION iS + OR - A 

CONSTANT OR A SfMPLE VARIABLE. fT MAKES A THROUGH REPORT 
ON ITS activity: it ALSO MAKES PROVISION FOR THE RESCAN 
Of ElBAT (ThtS fS THE ACTION WiTh K • SEE CODE IN THE 

Table routine foR further details); 
Boolean procedure simplE(B»a,S)i boolean b,s> real ai 

begin 

S ♦ IF STEPI # ADOP then FALSE ELSE ELBAT[ 13 .ADDRESS 

9 SUB) 
IF ELCLASS « ADOP THEN STEPlTl 
IF ELCLASS > NONLITNO AND ELCLASS < STRNqCON 
THEN BEGIN K ♦ K+U SIMPLE * TRUEI 

ELBATfl] ♦ 0«C0MMENTVt2l4u7]&Ktl6l37lli3i 
INfOCO*K3 ♦ A * C; B •> TRUE END 
ELSE BEGIN 
B ♦ FALSEJ A ♦ ELBAlCn; 

Simple «■ realid < elclass and elclass < intid end; 

STEPiT end SimPlEI 



080?2000 
06023000 
06024000 
080j»5000 
080?6000 
080?7000 

080?8000 
08029000 
08030000 
08031000 
06032000 
06033000 
08034000 
08035000 
00036000 
08037000 
O8O38OOO 
O8O39OOO 



00691000313 
00691000313 
00691000313 
00691000313 
006910003(3 
00691000313 



0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
Q069 
0069 
0069 
0069 



«0003«3 
1000313 
100061 1 
lOOOBll 
lOOiOiO 
tOOllfZ 
1001411 
•001713 
1002113 
1002210 
1002410 
»0026ll 



PRTC647) • TEST 



COMMENT TFST EMITS THE STeP-UNTIL ELEMENT TEST! 
procedure TEST) 

BEGIN 

IF NOT C0N5TANB ThEN 

BEGIN EMiTOfSUB)! IF SiMPleB ThEN eM I TV( B, AODReSS ) 
ELSE BEGIN 

EMITL(2*L-BRET)J 
EMiTB(BBW.BUMPLiB)) 
END) 

EMITO(MUL)) EMITtO) END) 

EMlTOCIF SiGNB ThEN GEO ELSE LEQ)) EMIT tO)) L*L-1 
END TEST) 



O8O4OOOO T 
O8O41OOO T 



08042000 
06043000 
08044000 
O8O45OOO 
08046000 
O8O47OOO 
08046000 
06049000 
08050000 
08051000 



006910029)2 
0069)0029)2 



0069) 
00691 
00691 
0069) 
0069) 
0069) 
0069) 
0069) 
0069) 
0069) 



0029)2 
0029)2 
0030)1 
0032«1 
003410 
OO36IO 
OO38IO 
00)6)0 

0039)3 
0043)2 



PRT(650) . SfMPi 



BOOLEAN PROCEDURE SIMPKALD) VALUF ALL) REAL ALL) 



08052000 T 0069)0044)0 



BFGIN 



ChFCKFR(VRET«.ALL)» 

ADDRrs •■ aul.addRessi 

rORMALV * ALL.[9«?] ■ 2» 

IF T * ALL. CLASS > INTARRAYID OR T < BOOID OR 
GTl ♦ (T-BOOID) MOD 4 < 1 THEN 
ERRCREALCT # 0) x 51 + 100)1 
TNT ♦ GTl ■ 2» 
SiMPi * T < TNTtD end SIMPII 



08053000 
08054000 
08055000 
08056000 
08057000 
08058000 
08059000 
08060000 
08061000 



00691 
00691 
00691 
00691 
00691 
00691 
00691 
00691 
00691 



004410 
004410 
0046t0 
004713 
004912 
005210 
0054tl 
005712 
00581 1 



PRT(65n a STORE 



COMMENT STORE EMITS THE CODr FOR THE STORp INTO THE FOR INDEX! 
PROCEDURE ST0REfS)J VAL^E S; BOOLEAN S^ 

Begin 
IF formalv Then begjn emito(Xch)J s * false end 

ELSE BEGIN 

EMITL(ADDReS)} 

IF A0DRE5 > 1023 THEN EMITO(PRTE) ENOJ 

T ♦• (REAL(S) + l)xi6> 
EMIT0((IF tNT ThfN T+512 ELSE 4xT)+4) END STOREI 



08062000 T 
08063000 T 



08064000 
08065000 
08066000 
08067000 
08068000 
08069000 
08070000 



00691006210 
00691006210 

00691006210 
006910062(0 
00691006512 
00691006513 
00691006611 
00691006811 
00691007010 



PRT(652) » CALL 



COMMENT CALL EFFECTS A CALL ON THE INDEX! 
PROCEDURE CALL(S)| VALUE SJ BOOLEAN S> 

BEGIN 

if simple^ 
Then if s thfn emitv(addres) else emitncaddres) 
else begin 

EMITL(2+L-VReT)I 
EMlTB(BBW»BUMPLf V)! 

IF s Then fMitocloo) end end callj 



08071000 T 
08072000 T 



08073000 
08074000 
08075000 
08076000 
08077000 
08078000 
08079000 



0069«0074t0 
00691007410 

00691007410 
00691007410 
00691007512 
00691007810 
00691007912 
006910080(1 
00691008312 



PROCEDURE FORLlSTfNUMLE)! VAlUE NUmLEI BOOLEAN NUMLE) 
PRT(653) « FORLIST 

BEGIN 
PROCEDURE FlX(STORE»BACK,FORWART»START); 



08080000 T 00691008411 



PRT(654) m nX 



START 



value store. back. forwart, start) 
Real store, back. forwart, start; 

BFGIN 

EM I TB ( GET ( FOR W ART- 1), FORWART. START); 

IF Returnstore # 
Then begin 

L ♦ STOREI EmiTnuM(B-BACk)J 

emitpaircreTurnstore'Std) end end FIXI 



08081000 

08082000 

OF SEGMENT 

08083000 
08084000 
08085000 
08086000 
08087000 
08008000 
08089000 
08090000 



T 0069i0084M 
T 00691008411 



00701 
00701 
00701 
00701 
0070» 
00701 
00701 
00701 



ooooto 

OOOOiO 
OOOOIO 

ooooto 

000210 
0002*1 
0003*3 
0005)3 



STACKfF+2) 
STflCKfF+3) 
STACKfF+4) 
STACKfr*5) 



BACKF?X 

forwardbranch 

FOOT 
STOREFIX 



INTEGPR BACKfIX, fORWaROBHANCH* F00T» STOREFIXI 



08091000 T 00701000611 



COMMENT 

COMMENT 
COMMENT 
COMMFNT 



COMMENT 
COMMENT 



COMMFNT 



0) + 3l 
EMITOCNOP)* 



LABEL BRNCH»EXIT; 
STOREFIX * L» Q ♦ REAl(M0DE 
FOR K * 1 STEP 1 UNTIL Q DO 
IF NUMLE 
THEN BEGIN 

BACKFIX * Lt 

IF formauv Then callcdesc) end 

FLSf BACKfIX * V + RFAUf SIMPLEV)-1I 



AEXPt 

Pick 

IF F 

Th 

HERE 
LEAVE 

fftch 



We ha 
The s 



EL 

We do 



comment we ha 



UP first a 
lclass . s 

EN BEGIN 
WE have a 
BACKFIX «. 
ROOM FOR 
IF FORMaLV 

inoexi 

IF I > 70 

euse K 

IF SiMPLEB 
(ELCLAS5 
THEN BEG 
VE A SlMPL 
PUUG(C 
END ELSE 
TEP FUncTI 
SUBROUTINE 
I ♦ IF 
SIGNB 
EMIT(0 
AEXPJ 
BRET * 
Ef^ITOf 

emitocReal 

EMiTBCBFWf 

tf elclass 

THEN BEG 
STORE 

stepi 

ELSE BEG 
IF EL 

BEG 
STEP! 

SE BEGIN 

NOT HAVE 
STORE(rALS 
IF ELCLASS 
THEN BEG 

ve a while 
stepi 

ELSE BEG 



rithmetic expressionj 

TEPV 

STEP ELEMENTI 

BUmPLI 
FORWARD JUMPI 

Then callcdesoi callcopdoj 

THEN begin NXTeLBT ♦ U I * END 
FGO ♦ H 

♦ SIMPLE(C0NSTANB»B. SIGNB) AND 
a UNTILV OR ELCLASS a WHILEV) 

tn 

E STEP FUNCTiONI 
ONSTANB fB)} 

BEGIN 
ON IS NOT SIMPLE! WE CONSTRUCT A 
I 

I < 4 Then o else rego; stepiti 

♦ CONSTANB ♦ FALSEI 
)l B «- LI 
FMiTO(XCH)< 

L) 
BFW) END! 
fSiGNB)x32+ADD)J 
BACKFlXtD* 

■ UNTiLV 
TN COMMENT STEP»UnTiL ELEMENTI 
fTRUE)» IF FORMALV THEN CALLCOPDC); 
TI AEXPJ TEST END 
IN COMMENT STEP-WHILE ELEMENT; 
CLASS # WHILEV THEN 
TN ERRfl53)l GO TO EXiT END* 
Tl STORECFALSEJI BEXP END END 

A STEP ELEMENTI 
E)| 

» WHILEV 
IN 

ELEMENTI 
Tl BEXP END 
IN 



oeo9?ooo 

00093000 
08094000 
08095000 
08096000 
08097000 
08098000 
08099000 



8100000 
8101000 
08102000 
8103000 
04000 
05000 
06000 
07000 
06000 
09000 
lOOOO 
11000 
12000 
13000 
14000 
15000 
16000 
17000 
18000 
19000 
20000 
21000 
22000 
23000 
24000 
25000 
26000 
27000 
28000 
29000 
30000 
31000 
32000 
33000 
34000 
35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 





08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

06 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

08 

06 

06 

08 

06 

08 

08 

08 

08 

06 

08 

08 

06 



00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
00701 
0070J 
00701 
00701 
00701 
0070t 
007Qt 
00701 
00701 
00701 
00701 
00701 

00701 
00701 
00701 
00704 
00701 
00701 



0006 
0006 
0009 
0014 
0014 
0014 
0015 
00l7 
00i9 
00l9 
0019 
00i9 
0020 
0021 

0021 
0022 
0022 
0025 
0025 
0027 
0029 
0030 

0031 
0033 
0033 
OO34 
00 3 4 
0034 
0034 
0038 
0039 
OO4O 
0042 
OO42 
OO43 
OO45 
OO46 
OO46 
0047 
OO5O 
0051 
0052 
0052 
0054 
OO56 
OO56 

0056 
0057 
0057 
0058 
0056 
0059 



»1 
»1 
13 

«0 
10 

«1 

13 

12 
12 
12 
13 
»3 

to 

12 
12 
M 
»1 
»2 
t2 
13 
12 

to 

12 
12 
t2 

to 

«1 
tl 
tl 

to 

t2 

tl 

to 

tl 
13 
12 
tl 
tl 
13 

to 

t3 

to 

H 
tl 

10 
tl 

t3 
t3 

tl 
tl 
t3 



COMMENT 

COMMENT 
BRNCHI 



EXITI 



ONE EXPRESSION FLEMENTI 

IF ELCLASS # COMMA ThEN BEGIN 

EMITB(BFW»8UMPL,L+2)I BACKFIX ♦ I END 
ELSE RAcKFIX * L + 2; 
L «■ L + ll EMITCBFW)J f,0 TO BRNCH END ENOI 

This ys the common pointi 

IF ELCLASS • COMMA ThfN EMITLNGi L ♦ L+U 
EMiTfBFC); 

FORWARDBRANCH ♦ LJ DiALA ♦ DIALB •■ OJ 
IF ELCLASS • COMMA 
THEN BEGIN 

stepiT; 

F0RLiST(TRUE)> 

fix(SToreftx,backfix»forwardbranch»stmtstart) end 
else begin 

if elclass # dov 

Then begin erR(154)i rego*l» go exit endi 

STePiT; 

IF NUMLE Then foot i» getspace(False#-i)i % temp. 

STMTl 

IF NUMLE Then begin 

EMITVCRETURNSTORE ♦ FOOT)l EMlTO(BBW) END 
ELSE begin 

EMITB(BBW»BUMPL»BACKFIX)| RETURNSTORE • ENDI 
STMTSTART * fORWaRDBRANChI B * LI 
CONSTANTCLfANJ RfGO ♦ LI 

F I X(STOREFtX,BACKF I X» FORWARDBRANCH. L) ENDI 
END FORLISTI 



70 IS 



08] 


ia4000 




00701006010 


06^ 


145000 




00701006010 


O81 


46000 




0070J006H3 


08] 


147000 




00701006512 


O81 


48OOO 




00701006611 


08; 


149000 




00701006912 


06 


[50000 




00701006912 


O81 


151000 




0070I0072>0 


08] 


152000 




0070I0073«2 


08] 


153000 




0070I0075«2 


08] 


54000 




00701007512 


06| 


155000 




00701007610 


08] 


[56000 




00701007611 


08) 


57000 




00701007713 


08] 


158000 




00701007912 


06] 


159000 




00701007913 


08] 


[60000 




00701007913 


08] 


[61000 




0070I0082M 


O81 


62000 




00701006312 


08] 


[63000 




0070»0065»3 


08] 


64000 




00701008610 


08] 


65000 




00701008610 


061 


66000 




00701006712 


08] 


[67000 




00701006912 


081 


68000 




00701006913 


061 


L69000 




00701009211 


08] 


[70000 




00701009410 


081 


71000 




00701009512 


O81 


[72000 




00701009611 


100 LONG* 


NEXT SEQ 69 



STACKfF+2) a Tl 

STACKfF+3) • T2 

STACKfF+4) a T3 

STACKfF+5) a T4 



REAL T'i,T?.T3.T4l 



08173000 T 00691008411 



Then begin eRRci52)i 
for statement 
then emitn(addres)i 



Then 



NXTELBT ♦ II T • 01 
STEPlTI 

IF SiMPl(VRET*ELBATtn) 
THEN BEGIN 

IF STEPi * ASSIGNOP 

XMARK(ASSIGNREF)| X 

Tl •• LI IF FORMAlV 

K ♦ 0; 

IF SlMPL.EfCONSTANA»A#SlGNA) 

IF ELCLASS » STEPV THEN 

IF SlMPLE(cONSTANB»BiSlGNB) THEN 

IF ELCLASS ■ UNTfLV THEN 

IF SiMPl.E(C0nSTANC.Q»Si6NC) THEN 

IF ELCLASS I* DOV Then 

BEGIN 

PLUG(COnSTAnA.A>I 
IF SlGNA THEN EM1T0(CHS)I 
RETURNSTORE *■ BUMPL> AOJUSTI 
STMTSTART «■ LI 



GO 



EXIT ENDI 
XllO- 



CONSTANTCLEANI 



08174000 
08175000 
06176000 
08177000 
08178000 
06176100 
08179000 
O816OOOO 
O618IOOO 
08162000 
08163000 
08184000 
06165000 
O6166OOO 
06187000 
O8188OOO 
08189000 
08190000 
08191000 



T 
T 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 



1006411 
1008611 
1006712 
1008713 
1006912 

1009113 
1009610 
1009610 
1009912 
lOloOlO 
lOtOlU 
1010312 
t0l04tl 
t0i06t0 
i0i07l3 

lOioeto 

J0109I2 
• OUOU 
I0li3>2 



STEPlTJ 

Tl ♦ (((('»096 X RrTURNST0RE + STMTSTART)x2* 

RrAL(C0NSTANB))X2+ 

RFAL(C0NSTaNc))X2* 

RFAL(Si6NB))x2+ 

REAU(Si6NC)» 

T? «. vret; 

T3 ♦ Bl 

TU «. Ql 

STMT! 

SfGNC * BOOLEANeTi 

SiGNB ♦ BOOLEANfTi 

CONSTANC 

rONSTANB 



[4711]); 

[46tl]}l 
«■ BOOLFANfTl. [45111)1 
«• B00LFANCTl.t44in)» 



STMT5TART ♦ 
RpTURNSTORE 
VRET ♦ T2; 
B * T3I 
9 •■ T4> 

Simplev 



Tl.r32«12]l 
♦ Tl,[20»i2]> 



SlMPicVRpT)! 
IF FORMALV THEN EMI TN( ADDRES ) I 
PLUGCCONSTANB.B)} 
EMiTOflF SifiNB THEN SUB ELSE ADD)> 
EMiTPfBFW.RcTURNSTOREtL); 
STOREfTRUE)! 

IF FORMaLV then CALLCOPOOi 
PLUG(CONSTANC»(J)< 

IF sir.Nc Then emito(ChS)i 
SIMPLES ♦ true; testi emitungi 

EM1TB(BBC#BUmPU.STMTSTART)I 

GO TO eXjT end; 

I * 2; K * 0; 

SIMPLEV * simpkvret); 

V * Tl END 
ELSF BEGIN 

fmit(0)i V ♦ l; simplev * fause; 

VARlABLEfFR); EMfTOCXCH); VRET ♦ 



EMITV(AOORES); 



FORMALV * true; 
L; EHlTOtBFW)! 



IF ELCLaSS^ASSIGnOP THEN BEGIN ERR(l52); GO fXIT END; 

end; 
stfpit; forlisT(false); l. ♦ Rego; 

FXITI K * fND FORSTMTi 



69 IS 



08192000 
08193000 
08194000 
08195000 
06196000 
08197000 
08198000 
08199000 
08200000 
08201000 
08202000 
08203000 
08204000 
08205000 
08206000 
06207000 
06206000 
08209000 
08210000 
08211000 
08212000 
06213000 
06214000 
06215000 
06216000 
06217000 
O8218OOO 
08219000 
O622OOOO 
06221000 
06222000 
06223000 
08224000 
06225000 
08226000 
08227000 
06228000 
08229000 
08230000 
08231000 
08232000 
169 LONG 





00691011410 




0069t0li4ll 




0069;0li6l0 




0069i0ll7l2 




00691011610 




00691011912 




0069t0i20t0 




00691012112 




00691012113 




00691012211 




00691012312 




00691012410 




0069I012SI3 




00691012611 




0069t0l26t0 




0069l0l29i2 




0069t0l30tl 




00691013112 




00691013210 




00691013211 




00691013410 




0069t0l36t0 




0069t0l37t2 




00691013913 




0069l0u0tl 




00691014113 




00691014312 




00691014410 




0069I0145I3 




00691014712 




0069t0u9t3 




00691015112 




0069f0l52ll 




00691015313 




00691015411 




00691015512 




00691015610 




00691016112 




006910163(3 




00691 016313 




00691016513 


» 


NEXT SE6 3 



PRTf655) « REED 



STACKfF*3) m I 

STACKfFf4) « J 

STACKfF+5) M K 

PRT(656) • MOVE 



REAL PROCEDURE REED; 

BEGTN 

LABfL FOf; INTEGER I.J»KJ 



STREAM PROCEDURE M0VE(N»F.T); VALUE N,T; 

BEGIN SUbF; DIlaT; DSI»N WOS END MOVE; 



08999000 T 0003«0505I3 

06999025 T 00031050513 
06999050 T 0003;0505t3 
START Of SFGMeNT *♦♦♦♦♦♦•** 71 



06999075 T 007ll0000t0 
08999100 T 00711000010 



PRT(657) « rOF 



Jl«<-ll 
REAnfCO0lSK[NO])rE0Fl» 

REFn««T««rETCHfMKABS{C0DlSK(n5); 

kibmkabS(cOde(0))-i; 

WHILF I'-J>30 00 
BFGIN 

MOVF(30,CODISK(0),K); K»«K+30l JlwJ+301 
RFADfCODISK)! 

FNO> 

movf( i-j»codiskcO).k); 

REAn(CODlSK)[EOF]> 

eof« 

fno Reehi 



08999125 T 
08999150 T 



08999175 
08999200 
08999225 
08999250 
08999275 
08999300 
08999325 
08999350 
08999375 
08999400 
08999425 



7i IS 47 LONG» 



007 
007 

007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
NEXT 



1000112 
1000312 

1000810 
1001410 
1001912 
1002011 
1002011 
1002712 
I003l»2 
I0031U 
1003610 
»004l»2 
1004210 
SE6 3 



STACKfF+2) » I 
STACKfF+3) w J 



PROCEDURE RIGHTfDl VALUE L» fNTEGER U* 

begtn 
integer i»ji 



Il-fL+7) DIV 41 

MOVFdt ItC0DlSK(0))l 

MOVf(29,CODEC0),CODTSKc1))I 

write(COdisk); 
J«»?9; 

While !-j>o do 

BEGIN 

M0VE(30»C0DE(J)*C0DISK(0)); 
WRiTEfCODlSK); 
JIWJ430I 
ENO» 
END RIGHT; 



08999450 

08999475 

08999500 

START OF SEGMENT 



08999525 
08999550 

08999575 
08999600 
08999625 
08999650 
08999675 
06999700 
08999725 
08999750 
08999775 
08999800 



T 0003«0505I3 
T 0003»0505I3 
T 0003«0505«3 
iii^i******** 72 



72 IS 35 LONG. 



0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
NEXT 



tOOOOlO 
1000113 
(000513 
1001211 
1001611 
i00l7l2 
I00i9t3 
I00i9t3 
1002611 
1003011 
I0031U 
|0032»0 
SEG 3 



PRT(660) 



COMMENT The PRQgRAM ROUTINE 

FOR The Rest of the 

IS SIMPLY A CALL ON 
PROCEDURE PROGRAM* 
PROGRAM 

BEGIN 
STREAM PROCEDURE MDESC( WD» TOlOc ) » V aLUE 



oOrS The INITIALIZATION AND 
COMPILER. The main PROGRAM 
THE PROGRAM ROUTINE! 



THE WRAPUP 

OF THE COMPILER 



WOl 



PRT(661) n MOESC 



09000000 
09001000 
09002000 
09003000 

09004000 

09005000 

START OF SEGMENT 



00031050513 
00031050513 
00031050513 
0003(050513 

0003*050513 
00031050513 



T 
T 
T 
T 

T 
T 



73 



BEGIN DI«-L0C WDl OS* SeTISU LOc WD! DI ♦TOLOc I DS«.WDS ENOI 



09006000 T 00731000010 



RTlNTRSc«4?6#J 



nrriNE sta 

LABEL Ll» 

listog«»liste:risBo 

COMMENT LTSTOG IS NOT SET BY DE 
NOHEADING «« TRUEJ 
ERRORCOUNT l« 0> 
ERRMaXI*999| % MAY 
BASENUMIalOOOOl AD 

COMMENT DEFAULT VALUES TOR "SSe 
LaSTUSED i" Hi % f 
NEXTfNFO ♦ LASTiNF 
PUTNBUMP(O); 
GTl «. -•♦ f) 
MOESCfGTl.INFOCLAS 

blanketco. infoilas 

REAOACARDI % INlTl 
% READS 
LaSTUSED Ja 1« % A 
NXTELBT •■ i; 
PRTI*PRTIMAX«.PRTBA 

mrclean • truei 

COMMENT START FTLLiNq TABLES Nf 
FILL TENr*] WiTh 
OC1\77\m0U63H2?05H» 0CT17 



OLEANd -ERRORCOUNT. [46113)1 
FAUlT on TIMESHARING* 



BE CHANGED IN DOLLARCARD, 
DVALUE«»1000> NEWBASE»«TRUEI 
fl" OPTIONI 
OR INITIALIZATION, 
♦ LASTSE0R0W)(?56 + LASTSEQUENCE*1» 



TSEQR0W»LASTSEQUENCE])I 

TSEQROWfLASTSEQUENCE])! % FOR "$ CHECK" 
ALIZATION OF NCRtFCR* AND LCR» AND 

FIRST CARD INTO CARD BUFFER. 
SSUMES CARD ONLY UNTIL TOLD DIFFERENTLY 

SEI 

EDED TO COMPILE A PROGRAM! 

6133260032646 7, OCTi 75l62i 3404l4?05f 



0CTl74?i65 
0CTi714266 
0rT165l040 
0CT1622047 
0CT1574034 
0CT1547730 
0CT1501736 
0CTU53616 
0CT1427301 
0CT1361632 
0CT1333411 
0CT1306676 
0CT1241532 
0CT1?13?15 
0CTll663t4 
0CT1121440 
0CT1073032 
0CT1045753 
OCT0O0135 

0CT003265 
OcT006543 
0CT0121265 
OrT0i5?5l3 
OCT0?05l26 
OCTQ241206 
0CT0272356 
0CT0324641 
0CT0361131 
0cT0fll2?27 
OcTO/144367 



630517247, 

0461167351 

347241213, 

303622767- 

726313046 

3665745021 

264172732' 

220020057 

7112373331 

254513731 

341150223 

337663537, 

77fl5l5275, 

56i35307i 

63l463l46< 

000000000, 

400000000, 

604000000, 

1035564000, 

7U2036440, 

2127413543. 

707274266, 

201307703, 

764556310, 

170175347, 

132665013» 

141345435* 

664625027. 

375067064, 

706263476. 



0CTl732623l76643i20. 
0CT1705343457542525. 
0CT1641250441111455, 
0CT1612461164567564. 
0CT1565044113775657, 
0CTl521l7l646433362» 
0CT1472325741231521. 
0CT1444561664024O72. 
0CT1401116227350722. 
0CT135220O727636717, 
0CT1324313631402270, 
0CT1261045602764047, 
0CT1232061573640554, 
0CTl20*061ll5645707, 
OCT1141000000000000, 
OCT11U750000000000, 
OCT1063641100000000. 
OCT1037346545000000, 
0cT00li643245i2l000, 
0rT0043432772446l50, 
0cT00767405553l6473» 
0CT0i3l54327ll53343, 
0CT0i63236041571663, 
0CT0?l635456l7ii772, 
0CT0251447626234641. 
OCT0303051561442216. 
0CT0336011371636745. 
0CT0371360241772234, 
OCT0422675274304701, 
0CT0455465667740415, 



0CTl7233700364l3744, 
0CT1676634373473252* 
0CTl63l52255l333770i 
0CT1603175421725521» 
0CT1556255136775233» 
0CT1511430220142257. 
0CTl4630l333l500045» 

0CTl4357l624l03Ull» 
0CT13713416752431O7. 

OCT1342641115606502» 
0CT1315376577702746, 
0CT1251257143561061, 
0CT1222476132610706, 
0CTll7507534i2l7270, 
0CT1131200000000000, 
OCT1102342000000000. 
0CT1054611320000000. 
OCT1011124027620000, 
0CTOO22214116345200 
OCT0054341571157602 
0cT0lil05307l06022l 
0CT0142074147406234, 
0CT0174105452130240, 
0cT023l00477i627437, 
0CT0261761573704011. 
0CT0313664115752661. 
0CT0347413670206536. 
0CT0401654312370703, 
0CT0433454553366062, 
0CT0467003245730521» 



09024000 
09025000 
09028000 
09028010 
09028050 
09028900 
09028910 
09028920 
09028930 
09029000 
09033000 
09034000 
09034100 
09034200 
09034500 
09035000 
09036000 
09037000 
09038000 
09039000 
09040000 
09040100 
09041000 
09042000 
START OF SEGMENT 
09043000 
09044000 
09045000 
09046000 
09047000 
09048000 
09049000 
09050000 
09051000 
09052000 
09053000 
09054000 
09055000 
09056000 
09057000 
09058000 
09059000 
09060000 
09061000 
09062000 
09063000 
09064000 
09065000 
09066000 
09067000 
09068000 
09069000 
09070000 
09071000 
09072000 



T 0073 


toooii 


T 0073 


i000l< 


T 0073 


lOOOll 


T 0073 


t 00051 


T 0073 


100051 


T 0073 


t0006t 


T 0073 


100061 


T 0073 


100071 


T 0073 


100091 


T 0073 


100091 


T 0073 


tOOlOt 


T 0073 


I00i3> 


T 0073 


looiai 


T 0073 


100151 


T 0073 


100171 


T 0073 


t00l9l 


T 0073 


I00l9t 


T 0073 


I00i9i 


T 0073 


100201 


T 0073 


100211 


T 0073 


100221 


T 0073 


100231 


T 0073 


100231 


T 00731 


0023« 


*4i*««*4i« 


»** 


T 00731 


0024 1 


T 00731 


00241 


T 0073 


100241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


100241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 0073' 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 00731 


00241 


T 0073» 


00241 



0CT0501 
OCT053? 
()CT0564 
0CT0621 
0cT065t 
0CT0703 
OCTO737 
0CT0771 



060(lll73l665» 
106607305375* 
13?154331566» 
012014361120» 
773fl50267005» 
707272645341. 
461304707]00» 
6654350430721 



0CT0511274514320242. 
Oct054253035U66674» 
OCT0575160607420123. 
QCT0631214417455344* 
0cT0662372362344606» 
0CT0714671151416632, 
0CT0751137556607072* 



0CT0521553637404312* 
0cT0553256443424453i 
0CT0606414751324150. 
0CT064145752337O635. 
OcT067307l057035747» 
OCT0726047403722400. 
0CT0761367512350710* 



COMMENT TmIS IS THf FILL FOR TmE SrCOND ROw OF iNpOi 

TwE FIRST ITfMS ARE STREAM RESERVED WORoSf 

Then ordinary RfSeRveo words, 
Then intrinsic fUnctionsi 
FILL iNFori**] with 

OCT0670000600000002, •'2SIO00''* 



74 



OCT0700001040000002. 

OCT0710001460000002# 
0CT072000 16 30000002* 
OCT0730000530000002. 
0CT0740000150000002. 
0CT0750001620000002# 
OCT0760000740000002. 
OCT0770000500000002. 
OCT1010000730000002* 
Oct 10200011 60000002 » 
OCT1030001170000002# 
0CT1040001430000002» 
OCT1050000340000002. 
OcTl06000l036400002, 
OCT1060001066500002» 
OCT1060001020500002. 
OcTl06000l357700002. 
OCT1O6OOO1O573OOOO2, 
OcTl06000l6l7200002» 
OcTl060000727600002, 
OCTl0600004i7500002> 
Oct 1060000766 700002. 
OcTl060000l76600002# 
OCTi 00400026000000 3* 
OCT0130311060000002» 
OcTl36044l030000002. 
Oct 0500000 170000002. 

OCT0660000000000002, 

OCT050000004000000 3. 
OCT1070000000000003. 
OCT0500000230000003. 
OCT1410446000000002. 
OCT0550000000000002. 
OCT0520000000000003. 
OCT0570000000000002, 
OCT0600000000000002. 
0cTl34044203000O002* 
OCT0410000000000002, 
0CT0130310030000002. 
OCT0530000000000002. 
OCT1100000000000003, 
OCT0640000000000002, 



'♦2DI000'' 
••2C1000'' 
"STALtV 
•'2DS000'' 
-4SKIP0'' 
•UJUMPO" 
•'2DB000'' 
"258000" 
•'2SC000'* 
"SLOcOO" 
••2DC000" 
"SLOcAL- 
"3LIT00* 
"SSETOO" 
"SRESPT" 
"SWDSOO" 
'♦3CHR00'' 
''3ADn00- 
"SSUrOO" 
"SZONOO" 
♦•3NUM00'' 
"SOCTOO" 
"SDECOO" 
-6T0f,GL'' 
'♦3ABS00'' 
"SaNdOO" 
"SaRRAY" 
"SBEfilN" 

•♦7B00LF* 
"7C0MME'' 
••60EFIN'' 
"SDIVOO" 
'•2D0O00'* 
"eDOllBL" 
•'4ELSE0" 
'*3ENnOO" 

"seQvoo" 
"Sfalse" 

•'4FLAG0'' 

•♦sfQroo" 

'♦7F0RWA'' 
"2G0000'' 



••EOOOOOOO"! 



"ANOOOOOO". 
•♦NtOOOOOO", 
♦•EOOOOOOO". 



"EOOOOOOO". 



"RD 



X2S6 

»258 
X260 
X262 
X264 
t266 
X266 
X270 
X272 
X274 
X276 
X278 
X260 
X262 
Z284 
X286 
X268 
X290 
X292 
Z294 
X296 
X298 
X300 
X302 
X304 
X307 
X309 
X311 
X313 
X315 
X318 
X321 
X324 
X326 
1328 
X331 
X333 
X335 
X337 
X339 
X341 
X343 
X346 



START 



09073000 ■ 


r 0073 


1002411 


09074000 ' 


r 0073 


1002411 


09075000 ' 


r 0073 


1002411 


09076000 " 


r 0073 


1002411 


09077000 ' 


r 0073 


1002411 


09078000 1 


r 0073 


(002411 


09079000 ' 


r 0073 


100241 1 


09080000 ' 


r 0073 


I0024t 1 


S 115 LONG 


• NEXT . 


5EG 7 


09081000 1 


r 0073 


1002411 


09082000 1 


r 0073 


1002411 


09083000 ■ 


r 0073 


1002411 


09084000 1 


r 0073 


I0024<1 


09085000 ' 


r 0073 


(002411 


09086000 1 


r 0073 


r0025«3 


OF SEGMENT * 


K*«<t>«**l 


!■•♦ 7 


09087000 1 


r 0073 


»0026»1 


09088000 1 


r 0073 


1002611 


09089000 1 


r 0073 


1002611 


09090000 ' 


r 0073 


1002611 


09091000 1 


r 0073 


1002611 


09092000 1 


r 0073 


1002611 


09093000 1 


r 0073 


1002611 


09094000 1 


r 0073 


1002611 


09095000 1 


r 0073 


1002611 


09096000 1 


r 0073 


1002611 


09097000 1 


r 0073 


1002611 


09098000 1 


r 0073 


1002611 


09099000 1 


r 0073 


1002611 


09100000 1 


r 0073 


1002611 


09101000 1 


r 0073 


1002611 


09102000 1 


r 0073 


)0026U 


09103000 1 


r 0073 


t0026il 


09104000 1 


r 0073 


002611 


09105000 1 


r 0073) 


002611 


09106000 1 


r 00731 


002611 


09107000 1 


r 0073 


0026tl 


09108000 1 


r 0073 


002611 


09109000 1 


r 00731 


002611 


09110000 1 


r 0073 


1002611 


09110001 1 


r 00731 


002611 


09112000 1 


r 00731 


0026M 


09112100 1 


r 0073) 


002611 


09112200 1 


r 00731 


002611 


09112300 1 


' 0073« 


002611 


09112400 1 


' 00731 


002611 


09112500 1 


r 0073) 


0026M 


09112600 1 


' 00731 


002611 


09112700 1 


r 00731 


002611 


09112800 1 


■ 00731 


002611 


09112900 1 


r 00731 


002611 


09113000 1 


' 0073> 


0026U 


09113100 1 


00731 


002611 


09113200 1 


r 0073) 


002611 


09113300 1 


■ 00731 


002611 


09113400 1 


• 00731 


002611 


09113500 1 


• 00731 


002611 


09113600 1 


00731 


00261 1 



0CT0130316060320002, 
0CT06 30 00000000000 2, 
OcT05000000a0000002» 
OcT0500000050000003f 
OCTo5000000r0000002» 
OcT0360002000020003ii 
OcTl4l0456000000002. 

Oct 0500000 uoooooo 3. 

0CT0130301060000002. 
OCT0500000200000002# 
0CT0130304030000002» 
OcTl320300230000002» 
OCTl350440430000002f 
OCT0500000020000002* 
OcT05000000t0000002» 
OCT0460000000000003, 
0CT0500000 160000003* 
0CT0130300000160011, 
0CT2025, 
OcTOOOO, 
0cT042'S, 
0CT1025, 
0cT0i55, 
0CT0161, 
0CT0165. 
OCTi 1 10000000000002* 
0CTO500OO02?O000n03» 
OCT0500000110000003* 
0CT05OOO001500O00O3* 
OCT1120000000000002* 
OCT1130000000000002, 
0CT041 0000010000002* 
0CT05 60000000000002* 
OCT1140000000000002. 
Oct 0540000000000002* 
OCT1310440200000002* 
OCT1310?40?70000002. 
OCT1310453050000002. 
OCT1310442500000002* 
OCTJ310457050000002» 
OCT1310302060000002, 
OCT1310440500000002. 
OcTl3l02420200000Q2, 
OcTl3l"0302060000002, 
OcTl3l0240l20000002, 
OcTi260l00550000002. 
OCTl260l006i0000002, 
0cTi3l034405O00OO02, 

OcTi3l045l050000002* 
OCTI 310443050000002, 

OcTi3l0447050000002» 
OcTi3l0440250000002i 
OcTl3i0440450000002* 
OCT1310104420000002* 
0CT131O10442OO00002* 
OCT 131044 6000000002* 
OCT1310251020000002. 



•♦4HUNT0''* 
•'2IF000''* 
•'4REAL0'** 

"^INTEG"* 
"SlABEL"* 
"dMEMOR", 

'♦3M0n00''* 

"TMONIT"* 

'•4NAnS0''» 

••4NAME0''* 

••SNFLAG"* 

••3N0t00*'» 

"20R000''t 

•'4SAVE0''* 

♦•30WN00"* 

"dPOLIS-i 

•*9PR0Cr''» 

''4SIr,N0''» 

COMMrNT 

COMMpNT 

COMMirNT 

COMMrNT 

COMMpNT 

COMMfNT 

commfnt 
'•4STe:po'* 

•♦6STREA'' 
"fSUBRO" 
"dSWiTc" 
•♦4THFN0" 
''2T0000'' 
••4TRUE0'' 

"suntil" 

"SVALUe" 

"saodoo" 

'•3BRT00'' 
''3CCX00* 

"scDroo** 

"SCFXOO" 
"SCHSOO" 

"3cOrOo* 

"ScOMOO** 
••3CSR00'' 
•♦3DFUO0" 
"SOIaOO- 
'•30IB00'* 
'♦3DUP00* 
"SEQUOO" 
•'3FCX00" 
''3FFX00'' 
'•3GEQ00'' 
''3GTR00'' 
''3HLq00'* 
"3HP200" 
"SIDVOO" 
••3II000'' 



•♦ER0O0O00''i 



i*Y 



'OR 



•♦DURE 



DUP 

UlTC 

NpQ 

XCH 

DtA 

DiB 

TRB 



I 

01 

; 

I 

u 
II 
it 



wM 
"UTINE 



X34B 

X350 

X352 

Z354 

X357 

X359 

Z362 

X364 

X367 

1369 

X371 

X373 

X375 

X377 

«379 

X3S1 

X384 

X387 



«396 

X398 

X40t 

X404 

X407 

X409 

X411 

X413 

X415 

X417 

X419 

«42l 

X423 

X425 

X427 

X429 

X431 

X433 

X43S 

X437 

X439 

«441 

X443 

X445 

X447 

X449 

XftSl 

X453 

X455 

X457 

X459 

X461 



09113700 

09113800 

09113900 

09114000 

09114100 

09114200 

09114300 

09114400 

09114500 

09114600 

09114700 

09114800 

09114900 

09115000 

09115100 

09115200 

09115300 

09115400 

09115500 

09115600 

09115700 

09115800 

09115900 

09116000 

09t i6l00 

09116200 

09116300 

09116400 

09116500 

09116600 

09116700 

09116800 

09116900 

09117000 

09117100 

09117200 

09117300 

09117400 

09117500 

09117600 

09117700 

09117800 

09117900 

09118000 

09ii8i00 

09118200 

09118300 

09ii8400 

09118500 

09118600 

09118700 

09118800 

09118900 

09119000 

09119050 

09119100 

09119200 



0073»0026ll 

0073J0026I1 

0073>0026«1 

0073100261 1 

00731002611 

0073100261 I 

0073(002611 

00731002611 

0073100261 1 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

0073t0026tl 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

00731002611 

0073*002611 

00731002611 

007310026(1 

007310026(1 

0073(0026(1 

0073(002611 

0073»0026( 1 

0073(0026(1 

0073I0026( 1 

007310026(1 

0073(0026(1 

007310026(1 

007310026(1 

0073(0026(1 

0073(002611 

0073(0026( I 

0073(002611 

0073(0026(1 

0073(0026(1 

0073(0026(1 

00731002611 

0073(0026(1 

0073'0026(i 

0073(002611 

007310026(1 

0073(0026(1 

0073(0026(1 

0073(0026(1 

0073(0026(1 

007310026(1 

0073(0026( 1 

0073(0026(1 



I 

i 
i 
« 
i 



OCT13102SO??OOOOOOZ 
0CT13102504200000O2 
0cTl3l0l004p0000002 
OcTH 004/103 00000002 
OCT1310244220000002 
OcTl3!0250220000002 
0CT1310250420000002 
OCT1310145060000002 
0cTl3l04l02a0000002 
OCTl 310450440000002 
0cTl3l0l00420000002 
OcTi3l0450250000002 
OCT1310505300000002 
OcTi3l044l030000002 
0CTl3l0300230000002 
OcTt3l0304040000002 
OCT1310440430000002 
OCT1310442030000002 
OCT1310450450000002 
OCT1310101100000002 
OCT1310441000000002 
OCT1310441050000002 
OCT1310100130000002 
OCT0650006550000003 

FILL INF0[2.*1 WITH 

OCT1310300000020004. 

OcTOOOO, 
0cT2l41» 
0CT131O3O00OOO2O004. 
0CT0004, 
0cT2l41f 
0CT1310456000000002, 
0CT1310304030000002, 
0cTl3l0240470000002» 
OCT1310145060000002, 
OCT1310311060000002» 
0CTl3l02424r000O002# 
OCT1310H1020000002# 
OCT1310240470000002* 
OCT13101410?0000002» 
OcTl3l0242470000002, 
OCT1310310030000002» 
0CT1310442040000002» 
OCT1310301060000002, 
OcTi3l0316060000002f 
0CT1310301060000002# 
OCT1310311060000002. 
OCT1310401040000002. 
OCT1310240000020004» 
OcTOOlO* 
0cT2l41t 
OcTt3l0442040000002, 
OCT1310240000020004, 
0cT00l4. 
0CT2141, 



"SINaOO" 
•*3INrOO*' 
"SlNiOO" 
"SlNxOO" 

"aiOROo" 

"SlPlOO" 
"3IP200'' 
"SlPsOO" 

"SiSnOO" 

•♦SlSNOO** 
•'31TI00'' 
'•3LEQ00« 
"311100" 
•'3LNn00" 
••3UNr,00'* 

"stoooo- 
"sloroo" 

•♦3L.QV00" 
"SUSSOO" 
•*3MKs00'* 
"SMULOO" 
"SNeqOO" 
•'3N0P00'' 
"fiSCOPO" 



'♦3R0fO0"» 






COMMpN 
COMMfN 
"SRDSO 
COMMrN 
COMMfN 
••3RDV0 
••3RFR0 
"SRNOO 
••3RRR0 
♦•3RSR0 
♦•3RSP0 
•♦3RTM0 
"3RTN0 
•'3RTR0 
"3RTS0 
"SSFrO 

••ssNnO 

"SSSrO 
"SSSpO 
•♦3SSN0 
•♦3SSP0 

"ssTnO 

"SSTfO 
COMMfN 
COMMrN 

"sstno 

•♦3STS0 
COMMON 
COMMrN 



IITC 
FXS 



T 

T 

O^f 

T tlTC 

T FXS 

0- 

O" 

O" 

0" 

O" 

O" 

0- 

O" 

0" 

O" 

0" 

0- 

0" 

O" 

0" 

0* 

O" 

0" 

T 

T 

O" 

0" 

T LiTC 

T FXS 



0; 
i; 



LITC 
FXS 



2f 



3i 



X463 
X465 
X467 
Z469 
X471 
«473 
X475 
X477 
X479 
X461 
X483 
X485 
»487 
X469 
X491 
X493 
«495 
«497 
X499 
X501 
1503 
«505 
1507 
X509 



«512 



X516 



X520 
X522 
X5P4 
i;5?6 
X526 
X530 
X532 
X534 
X536 
X536 
X540 
X542 
X544 
X546 
X548 
X550 
X552 
X554 



1558 
Z560 



75 



START 



09 


119300 


r 0073 


1002611 


09 


119400 " 


r 0073 


1002611 


09 


119500 ■ 


r 0073 


(00261 1 


09 


119600 


r 0073 


I0026U 


09 


119700 ' 


r 0073 


100261 1 


09 


119800 " 


r 0073 


1002611 


09 


119900 ' 


r 0073 


1002611 


09 


120000 1 


r 0073 


1002611 


09 


120100 " 


r 0073 


1002611 


09 


120200 " 


r 0073 


(002611 


09 


120300 1 


r 0073 


1002611 


09 


120400 1 


r 0073 


1002611 


09 


120500 1 


r 0073 


r0026ll 


09i 


120600 1 


r 0073 


1002611 


09 


120700 " 


r 0073 


1002611 


09 


120800 1 


r 0073 


1002611 


09 


120900 1 


r 0073 


100261 1 


091 


121000 ^ 


r 0073 


t0026tl 


09 


12U00 1 


r 0073 


1002611 


09^ 


121200 1 


r 0073 


100261 1 


091 


121300 1 


r 0073 


1002611 


09j 


121400 1 


r 0073 


1002611 


091 


121500 1 


r 00731 


002611 


091 


i 21 600 1 


r 0073 


002611 


S 256 LONG) 


. NEXT SEG 7 


09] 


121650 1 


r 00731 


002611 


09^ 


121700 1 


r 0073 


1002713 


OF S( 


'GMrNT * 


\,m*****i 


»♦*. 7 


09] 


21800 1 


r 00731 


002BI1 


09] 


121900 1 


r 0073 


1002811 


09] 


122000 1 


r 00731 


002811 


09] 


122100 1 


r 00731 


1002611 


09] 


22200 1 


r 00731 


002611 


09] 


22300 1 


r 0073 


1002811 


09] 


22400 1 


r 00731 


0028?! 


09] 


122500 1 


r 00731 


002BI1 


09] 


122600 1 


r 0073 


I002BI1 


091 


22700 1 


r 00731 


002811 


09] 


122800 1 


r 00731 


OO20U 


09] 


22900 1 


r 00731 


002811 


09] 


123000 1 


r 00731 


002811 


09] 


123100 1 


r 00731 


002811 


09] 


123200 1 


r 00731 


002811 


09] 


23300 1 


r 00731 


002811 


091 


23400 1 


• 00731 


002St 1 


091 


23500 1 


r 00731 


002611 


091 


23600 1 


' 00731 


002611 


09] 


23700 1 


r 00731 


0028(1 


091 


23800 1 


r 00731 


002811 


091 


23900 1 


00731 


002811 


091 


24000 1 


00731 


0028(1 


091 


24100 1 


r 0073« 


0028(1 


091 


24200 1 


' 00731 


0028(1 


09i 


24300 1 


0073« 


002811 


091 


24400 1 


00731 


0028(1 


09] 


24500 1 


00731 


002811 


09] 


24600 1 


r 00731 


002811 



0cTi3lO44060O0000O2 
OCTi 3l0:i/»4060000002 
OCT127O44O65OOOOOO2 
0CT1310155060000002 
0CT1310344060000002 
OCT1270440650000002 
0CT13003O00000OOOO2 
OCT1310502050000002 
OCT1310101070000002 
OCT1310105020000002 
OCT13101050?0000002 
0CT1270500750000002 
0CT127O5OO75O0000O2 
OcTl2705OO7in00OOO2 
0CT1270500710000002 
OcTl3l04402l0000002 
OcTl3l04402l0000002 
OCT1310440610000002 
OrTl3l04406l0000002 
0cTl3l044l0l0000002 
0CTl3l044lOiO00OOO2 
OcTl3lO4420lOO00O02 
0CTl3l04420i0000002 
0CT0460000000000002 
OCT0360002000020002 
OCT1310240000020004 
OcTOlllp 
0CT0055. 
OCT0650006610000003. 
0cT0O3OOOO00OO40OO3# 
0cTO03O0O0O0OO40O03f 
0CTO0300O0000O4O0O3, 
OcTOO 300000000 4000 3. 
OcTO03O000O0O04OOO3» 
OcT0030000000040003» 
OcT0030000000040003» 
OCT0030000000040003, 

Oct 00 300000000 40003* 

0CT1310117530000002, 
OCT1310117540000002. 
0CT1310157730000002, 
OCT0500000250000002. 
OcTOfilOOOOOOOOOOOOO, 



SSUbOO" 
STFBOO" 
STFROO" 
3TI000" 
3T0P00'' 
3TRB00'' 
3Vri00'* 

sxchOo** 

3X1700" 
3ZIP00'' 
3ZP100'* 
3CFr00'* 

3fcf:oo" 

3CFL00'' 
3FCL00'' 
3DtA00'* 
3AnL00" 
3DLS00'' 
3SDL00^ 
3DLM00'' 
3MDU00'* 

3oLnOO'' 

300100" 

IPOOOO" 

IMOOOO" 

3PRL00" 

OMMpNT 

OMMpNT 

7SC0P0" 

218000" 

2RB000'' 

3GTR00'' 

SGFQOO" 

seqloo" 

3NEQ00'' 
3UEQ00'* 
31.SSO0- 
STIMES" 
3SCI00'' 
3SAN00" 
3SCS00" 

sfifLd" 

4CASE0'* 



PRLI 
NOPI 

"FF.f.. 

•♦[I 

"]# 

»>* 

•♦># 

•♦«# 

"#l 



X564 
X566 
«568 
X570 
X572 
«574 
X576 
%57B 
X580 
X582 
X584 
X586 
X588 
X590 
X592 
X594 
Z596 
X598 
X600 
X602 
X604 
Z606 
X608 
X61O 
X612 
X614 



X618 
X621 
X624 
X627 
X630 
X633 
X636 
X639 
X642 
X645 
X648 
X650 
X652 
X654 
X656 



X112- 

xn5- 

X115» 



09 


124700 • 


r 0073 


t0026ll 


09 


124800 1 


r 0073 


IO028I1 


09 


124900 1 


r 0073 


1002811 


09 


125000 ' 


r 0073 


1002811 


09 


125050 1 


r 0073 


1002811 


09 


125100 ■ 


r 0073 


1002811 


09 


125200 ' 


r 0073 


1002011 


09 


125300 1 


r 0073 


1002811 


09 


125400 • 


r 0073 


l0028tl 


09 


125500 1 


r 0073 


1002811 


09 


125600 1 


r 0073 


1002811 


091 


125700 1 


r 0073 


1002811 


091 


125800 ] 


r 0073 


1002811 


09] 


125900 1 


r 0073 


1002811 


09] 


126000 1 


r 0073 


1002811 


09 


126100 1 


r 0073 


1002811 


09] 


126200 1 


r 0073 


1002811 


09] 


126300 1 


r 0073 


1002611 


09] 


[26400 1 


r 0073 


1002811 


09] 


[26500 1 


r 0073 


)002Bil 


09] 


[26600 1 


r 0073 


1002811 


09j 


[26700 1 


r 0073 


1002611 


09i 


26800 1 


r 00731 


002611 


09] 


26900 1 


r 00731 


OO26II 


09i 


27000 1 


r 00731 


002811 


091 


27100 1 


r 00731 


002811 


09] 


[27200 1 


r 0073 


002611 


09] 


[27300 1 


r 0073) 


[002811 


091 


.27400 1 


r 00731 


002611 


09] 


[27500 1 


r 00731 


002611 


09] 


[27600 1 


r 00731 


002611 


091 


27700 1 


r 00731 


002611 


09] 


[27800 1 


r 00731 


002611 


091 


27900 1 


r 00731 


002611 


091 


28000 1 


' 00731 


002611 


091 


[28100 1 


' 00731 


002611 


09] 


[28200 1 


r 00731 


002611 


09] 


28300 1 


r 00731 


002611 


09] 


28400 1 


r 00731 


002611 


091 


28500 1 


r 0073 


OO26II 


09] 


[28600 F 


» 00731 


002811 


091 


28700 F 


» 00731 


002811 


091 


28800 F 


» 00731 


002611 


091 


28900 1 


r 00731 


002811 


09] 


29000 1 


r 00731 


002811 


091 


29100 1 


r 0073 


1002611 


091 


29200 1 


r 00731 


002611 


09i 


29300 1 


r 00731 


002611 


09i 


29400 1 


' 00731 


002611 


09i 


29500 1 


' 00731 


002611 


09i 


29600 1 


' 00731 


OO26II 


091 


29700 1 


00731 


002811 


091 


29800 1 


00731 


002611 


091 


29900 1 


r 00731 


002811 


091 


30000 1 


* 00731 


002611 


091 


3O1OO 1 


' 00731 


002611 


091 


30200 1 


• 00731 


0028U 



0» 



% END OF TNFO fill. 



FOR gT?«-256 STeP qTI^LiNK WHILE NOT BOOLEAN( QT 1 .FORM AD DO 

PUT(CGTl*TAKF(GT2))»GT2t35l35U31.GT2)l 
FOR GTl*GT2 STEP 6T2,L|NK WHILE: GT2,LlNK#0 00 

PUT((GT2*TAKE(GTl))*STACKHEADfGT3*TAKE(STl+n.[l2l363 
MOD 125]t35l35U3],STACKHEADtGT33*GTn> 
COMMENT THIS IS IHF FILL FOR ThE SPECIAL CHARACTORSI 
FILL SPECIAL!*] WyTH 
OCT12OOOOOOOO2OOOOO, COMMENT *t OCTOOOOOOOOOOIOOOOO, COMMENT 



OCTOOOOOOOOOOOOOOOO, 

0CT137O44O450002763. COMMENT >l 

0CTl400ft40200000000. COMMENT +1 

OCTI22OOOOOOOO6OOOO. COMMENT ,1 

OCTI25OOOOOOOOOOOOO. COMMENT &) 

OcT1370<l50450003571, COMMENT <l 

0CT1410441000000000, COMMENT k| 

OCT0000000000040000, COMMENT »l 

OcTl400flfl0600000000, COMMENT -I 

OCT06?0000000000000, COMMENT ,,l 
OCTOOOOOOOOOOOOOOOO, 



OCT1I6OOOOOOOI2OOOO, COMMENT II 

OCT1370440250002662, COMMENT >> 
OCTOOOOOOOOOOOOOOOO, 

OCT1210000000000000, COMMENT tl 

OCT0450000000000000. COMMENT (> 

OCT1330401040000000» cOMMeNT *t 
OCTOOOOOOOOOOOOOOOO, 

OCT0470000000000000, cOMMeNt ♦» 

0CTl2a0000000l6Q00O, COMMENT }) 

0CT1370450250003470, COMMENT <l 

OCTi4l0442000000000, COMMENT /t 



09130300 
09130400 
09130500 
09130600 
09130700 
09130800 
09130900 
09131000 
09131100 
09131200 
09131300 
09131400 
09131500 
09131600 
09131700 
09131800 
09131900 
09132000 
09132100 
09132200 
09132300 
09132400 
09132500 
09132600 
09132700 
09132800 
09132900 
09133000 
09133100 
09133200 
09133300 
09133400 
09133450 
09133500 
09133600 
09133700 
76 IS 147 LONG 
09133800 
09133900 
09134000 
09134100 
09134200 
09197000 
09198000 
09199000 
START OF SEGMENT 
09200000 
09201000 
09302000 
09203000 
09204000 
09205000 
09206000 
09207000 
09206000 
09?09000 
09?i0000 



0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
NEXT 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 

0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 



00261 
00261 

00261 
0026t 
00261 
00261 
00261 
00261 
00261 
00261 
OO28I 
00261 
0026t 
OO26I 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
00261 
0026t 
00261 
00261 
00261 
00261 
00261 
SEG 
0026« 
003410 
004010 
004513 
OO4912 
005312 
005312 
0053»3 
•* 77 
005411 
005411 
0054U 
005411 
005411 
005411 
005411 
005411 
005411 
005411 
00541 1 



OCT 1170000000000000. 
0CTl3704«l050002561 , 
OCT1230000000000000* 
OfOl 



COMMENT .1 OCT00OOOO0OOOO?0OOOi COMMENT 
COMMENT #; 0CT1370451050002460, COMMENT 
COMMENT U 0CT0000000000i40000» COMMENT 



mi 
"I 



FILL 



MACROr*) 

ocTom. 



WITH 



OCT 
OCT 

Oct 
Oct 

OCT 

Oct 

Oct 

OCT 

Oct 
Oct 
Oct 

OCT 

Oct 

OCT 
OCT 
OCT 
OCT 
OCT 

ocTooa?o 

OCT 
OCT 
OCT 
OCT 
orT 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



0116. 

OOOOf 

0140. 

0130. 

0ll7t 

0000. 

0000. 

00310143. 

00160143. 

00470143. 

00400143. 

00300143. 

00170143. 

0000. 

0000. 

0l53» 

0l04. 

0i50. 

1430042. 

0122. 

0106. 

0000. 

0000. 

0056, 

0000, 

0000, 

0000. 

0000, 

0007. 

0000. 

0000, 

0115. 

0114. 

0154. 

0l4l J 



COMMENT SFS A 



rOMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

COMMpN 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



FILL OPTTONSr*) WITH •♦5CHECK'', 0, 



•♦6DEBU 
••4DECK 
••6F0RM 
•♦91NTR 
♦•5LIST 
"4LIST 
"SLIST 
"3MCP0 

••4TAPE 
♦•4NEST 
"SNEWO 



G-.O, 
0-,0. 
A^.O, 
I^.O. 
A-.O. 
0",0. 

p-.o, 

0",0, 

o-.o, 
o^.o. 

0",0, 



SFD A 
SYNTAX 
INC A 
SRS A 
SRD A 
SYNTAX 
SYNTAX 
CRF A. 
CRF A* 
T CRf 
CRF A. 
CRF A. 
CRF A* 
SYNTAX 
SYNTAX 
RSA A 



00 

01 

ERR0R02 

03 

04 

05 

ERR0R06 

ERR0R07 

SFS 008 

SFD 009 

At JFW 

INC Oil 

SRS 012 

SRD 013 

ERRORlA 

ERR0R15 

16 



10 



A 

A 

0, 

A 

A 



RDA 

RCA 

SEC 

SES 

SED 

SYNTAX 

SYNTAX 

TSA 

SYNTAX 

SYNTAX 

SYNTAX 

SYNTAX 

TDA 

SYNTAX 

SYNTAX 

SSA A 

SOA A 

SCA A 

STC A 



% 
% 
% 
% 

% 
I 

X 
X 

X 
X 
X 



17 

IB 
CRF A. SEC 

20 

21 
ERR0R22 
ERR0R23 

24 
ERR0R25 
ERR0R26 
ERR0R27 
ERR0R28 

29 
ERR0R30 
ERR0R31 

32 

33 

34 

35 



19 



X 0,1 



2i3 

4.5 

6i7 

8.9 

10,11 

12«13 

14,15 

16»17 

IB, 19 

20.21 

22.23 



09211000 
09212000 
09213000 
09214000 

77 IS 32 LONG 

09215000 
09216000 
START Or SEGMENT 
09217000 
09218000 
09219000 
09220000 
09221000 
09222000 
09223000 
09224000 
09225000 
09226000 
09227000 
09228000 
09229000 
09230000 
09231000 
09232000 
09233000 
09234000 
09235000 
09236000 
09237000 
09238000 
09239000 
09240000 
09241000 
09242000 
09243000 
09244000 
09245000 
09246000 
09247000 
09246000 
09249000 
09250000 
09251000 

78 IS 36 LONG 

09251208 
START Or SEGMENT 
09251212 
09251214 
09251216 
09251218 
09251220 
09251224 
09251228 
09251230 
09251232 
09251234 
09251236 



0073100541 
0073100541 
0073«0054l 
0073I0054J 
NEXT SE6 
0073100541 
0073100551 

0073100561 
0073100561 
0073100561 
0073100561 
0073I00S6I 
0073100561 
0073»0056t 
0073»0056t 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073(00561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
0073100561 
NEXT SES 
0073100561 

00731005610 
00731005610 
OO731OO5BIO 
00731005810 
00731005810 
00731005640 
00731005610 
00731005810 
00731005810 
00731005810 
OO731OO56IO 



6 



"^NEWlN^.O. 


X 


24 


• 25 


•M0MIT0",0, 


X 


26. 


.27 


•MSOOOO",0, 


X 


28< 


29 


''3PRT00'',0, 


X 


30i 


.31 


"SPUNCH^.O, 


X 


32, 


.33 


"SPURGE"*©! 


X 


34« 


35 


••4SEGS0'',0, 


X 


36i 


.37 


"SSEflOO^^O, 


X 


38i 


.39 


'•6SEttER"»0. 


X 


40« 


41 


♦•6SINSL'',0, 


X 


42. 


43 


••5STUFF"»0. 


X 


44i 


45 


"^VOlDO^pO. 


X 


46< 


47 


"SVOIDT^.O* 


X 


46i 


49 


"4BENdO".0» 


X 


50i 


51 


•♦«XREFO'',0. 


X 


52. 


53 



0» 

DO UNTIU STEPl » BEGINVI 
GTl *-♦♦ "» 

intog «• intog and TRUe» X 

DISKadR * IF INTOG THFN INTRINSICADR ELSf 2> 
MDEScCGT1.INfO[LASTSEOROW»LASTSEQUENCE1)> 
MDESCfGTlf INfO[LASTSEQROWiLaSTSEOUENCE''1])I 
MdESC(GT1. INfO[LASTSEQROW»LASTSEQUENCE''21)> 
STMT! 
UOCKfSTUFFX 

closf(CaRd»ReleaSf); 

IF LASTUSeD jt 1 Then CLOSE(TAPEfRELEASE)) 

IF nfwtog Then lOck(Nfwtape#*)i 

IF T«.(CU*3)DIV 4) + CORAOR > 4080 THEN FtAQC040)f 
IF NOT NOhEAOINr THEN X PRINT ThfSe THINGS IF ANY 

begin x listing has been done, 
strfam procfdure pan(T,fiel»ner»lsq)i value NFR.TJ 

PRT(662) « *SEGMENT DEScRlPTOR* 



X108« 
X108- 



09?51240 
09251244 
09251248 
09251252 
09251256 
09251260 
09251264 
09251268 
09251272 
09251276 
09251278 
09251280 
09251284 
09251285 
09251286 
09251288 



79 IS 55 LONGi 



09252000 
09253000 
09253050 
09253100 
09253500 
09254000 
09255000 
09275000 
09281000 
09281500 
09282000 
09282500 
09282600 
09362000 
09363000 
09364000 



0073 
0073 

0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
NEXT 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 



1005810 
:0058I0 
:0058I0 
•005810 
1005810 
1005810 
1005810 

tooseto 

1005810 

(005810 

:005810 

<0058IO 

1005810 

1005810 

1005610 

1005810 

SEG 73 

t0056l0 

1006011 

1006113 

1006410 

1006713 

1006913 

1007210 

1007411 

•007512 

•007611 

100761 1 

1006113 

1008411 

•008811 

{008912 

•006913 



PRTC663) » PAN 



START OF SEGMENT *«*«♦**»»* 



80 



BEGIN DI • FIELl 44(DS*2LIT« •• ) ; 

Si * lsq; d5 * wDSi Si *fiel* ds ♦ 3 wds; 

DI * FIFLI DS* ?8 LIT"NUMBER OF ERRORS DETECTED • "> 
Si «■ LOC NFR» DS ♦ 3 DEC* DS * 22 LiT •♦ . COMPILATION 
SI «■ LOc T» DS *• 4 DECl DS ♦ 9 LIT " SECONDS,"! ENDl 



Time 



09365000 
09366000 
09367000 
09368000 
09369000 



T 00801000010 

T 0060(000112 

T 0060«000210 

T 0080J000610 

T 00601000913 



PRT(664) B PEN 



STREAM PROCEDURE PFN(F I L tPRT S y Z, BASr ,C0RE lOl SK ) 1 

VALUE PRTSiZ.BASe»CORE.OiSKI 



BEGIN DI«-FIL1 DS 
DS ♦ 3 DFCl 
S1--L0C BASEj 
SI*L0C COrEi 
Sl*LOC DISKI 

END pen; 



■ 9 LlT"PRT 
DS*i4 LIT" 



0S«.4 
DS«.4 
OS4.5 



DEC! 
DEC! 
DEC; 



SIZE«"I Sl*LOC PRTSIZJ 
BASF ADDRESS*"! 
DS*iO LIT" CORE REQ»»"; 
DS*lO LIT" DISK REQ«"1 
DS*61 LIT " "I 



09370000 T 0080(001210 



09371000 
09372000 
09373000 
09374000 
09375000 
09376000 
09377000 



0060 
0060 
0060 
0060 
0060 
0060 
0080 



1001210 
•001210 
1001410 
1001610 
1OO18IO 
1002010 
1002611 



STRFAM PROCEDURE F iN ALaX (L I Nf» N« SeQ 3 1 VALUE Nj 



09378000 T 00801002912 



PRT{665) » F?NALAX 



BFGIN DI .. I.INEJ 15(dS * 8 LlT " •♦ ) ; 

ni ♦ LINEI DS * 3i LIT •'NUMBER OF ACCIDENTAL ENTRIES 

S| * LOC n; DS ♦ 3 DEO DI * DUBI 

Si * SFO? Si 4. Sl-161 DS * 8 CHRI 
ENDJ 



09379000 T 
09380000 T 
09381000 T 
09382000 T 
09383000 T 



00601002912 
0060t0031<2 
00601003513 
0060)003610 
00601003712 



IF AXNUM ^0 THEN 
BEGIN 

FTNALAX(LlNr03#AXNUM.TNF0[LASTSEQR0W,LASTSE0UENCE3)» 
WR1TELINE» 
ENPI 
SCRAM tB tTlME(l)»TlMEl)/60l 

PAN(SCRAM,LlN[0]iERR0RC0UNT»INF0tLASTSEQR0W,LASTSEQUENCE'n) 
} 
KRiTELlNEJ 

PFN(LINr0].PRTlMAX,T»«(L+3)niV 4» T I sCORAOR+T, 
((T+29)niV 30+DISKaDR)x30)» 

wRiteline* 

LOCK(LINE»RELEASf)» enoi 
PRTC666) « *SEGMfNT DEScRtPTOR* 

if fRROrcount # Then i*o/o flse 

BEGIN 

ARRAY SAVlNFOtOI3l»0«255]» 
PRT(667) • ♦SEGMENT DESCRIPTOR* 

STACKfF*2) • SAVINFO 
STACK(F*3) s INFO 



09384000 
09384050 
09384100 
09384500 
09384600 
09385000 
09386000 
09386500 
09387000 
09388000 
09389000 
09389500 
09390000 



00601 
00601 
0080? 
0080t 

ooeot 

00601 
00801 
00601 
00601 
00601 
00801 
00601 
0060( 



0037J2 
003611 
003912 
004113 
005210 
005210 
005410 
005712 
005713 
006713 
007113 
007410 
006411 



INF0t0i?OO,05255]» % FOR LARGE MCP^S, 

INTEGER SaVNDX»NONSAVNDXiNJ 



STACKfr+4) s SAVNDX 
STACKfF+5) s NONSAVNDX 
STACK(F*6) « N 

INTEGER Q»J»K.MI 
STACKrF+7) s Q 
STACKrF+lO) w J 
STACKfF*in « K 
STACK(F*12) s M 

BOOLEAN TSST0G> REAL T; 
STACK(F*13) s TSSTOG 
STACK(F+14) u T 

REAL PROCEDURE PUSHER< GRI NCh »GOT. XMAS) I VALUE XMASI REAL XMASJ 
PRT{670) m PUSHER 

ARRAY GOTfOjJ ARRAY GRINCH tO.O]| 
BEGIN 
RFAL WhO»WhATI 



80 IS 87 LONGi NEXT SEG 73 

09391000 T 0073«0092t0 

09392000 T 0073«0094ll 

09392300 T 0073»0095«2 

START OF SEGMENT *»♦*♦•♦*♦♦ 81 

09392500 T 006lJ0003»2 

09393000 T 0081«0005I3 

09393010 T 008ll0005«3 



09393020 T 00611000513 



09393050 T 00611000513 



09393060 T 
09193070 T 
09393080 T 



0061(000513 
00ei>0005i3 
OO61IOOO513 



STACKfF*3} m WHO 
STACK(F*4) « WHAT 



START OF SEGMENT *««******4i 



82 



DEFINE LINKR « [32l6]#; 

IF WhOi»XMAS,LiNKc < 225 ThEN 
BEGIN 



09393090 T 
09393100 T 
09393110 T 
09393120 T 



00621000010 
00821000010 
0062>0000l0 
0082>0001I3 



MOVEC30,GRINcHr)(MAS,LiNKR.WHO],GOTtO])l 
PUShfR««XMAS + 3O1 

END 

fuse: begin 

M0VEcWHAT»»256-WH0»GRrNCH[XMAS.LlNKR»WH0].G0Tt03)» 
XMASIkXMAS 4- whaTi 

M0VEfWH0t»30-WHAT, GR i NCH t XMAS.L iNKR, 0] , 60T[WHAT3)» 
PUSheR«»XMAS ♦ WHO* 

end; 
end pusher! 



82 IS 



09393130 T 
09393140 T 
09393150 T 
09393160 T 
09393170 T 
09393180 T 
09393190 T 
09393200 T 
09393220 T 
09393230 T 
20 LONG* 



00621000210 
0062(0005(2 
0082(0006(1 
00821000611 
0062(0007(2 
0062(001112 
0082(001210 
0082(0016(0 
0062(0017(3 
0062(00i7(3 
NEXT SEG 81 



PRT(671) » pUShEE 



STACKtr+2) « I 
STACKfF+3) s J 
STACKfF+4) » X 



PROcEniiRF pu5hfe(GRinch.n,b.y)» Value n,b.y( real n.b.y; 

ARRAY GRINCH[0»0]; 

BEGIN 

REAL ItJfX; 



OFFINE LINKR « t32(8]#) 
J(i»Y( 

I («B + n; 

WHILE B < I DO 
BEGIN 

IF Y(i.B,LlNKC < 225 ThEN 
BEGIN 

M0VEt30,C0DEf J),GRINCh[B,LINKR.Y])( 
J(«J 4> 30; 

B{bB * 30) 
END 
ELSE BFGIN 

M0VE(X(«256-Y,C00ECJ)»GRlNCHrB.LlNKR,Y])( 
B(8B * XI 
J(*J 4- XI 

M0VE(Y«»30-X,C00F(J>»GRlNCHtB.L!NKR,0])( 
B(8B + Y( 
J(»J + Y» 

end; 
FNo; 

END PUSHEF' 



09393240 T 0081(0005(3 



09393250 

09393260 

09393270 

START OF SEGMENT 



09393280 
09393290 
09393300 
09393310 
09393320 
09393330 
09393340 
09393350 
09393360 
09393370 
09393380 
09393390 
09393400 
09393410 
09393420 
09393430 
09393440 
09393450 
09393460 
09393470 



T 008110005(3 
T 0081(0005(3 
T 0061(0005(3 
iti***iii*4>*>»« 83 



T 0083(0000(0 

T 0063(0000(0 

T 0083(0000(1 

T 0063(0002(0 

T 0063(0003(2 

T 0063(0003(2 

T 0083(0005(2 

T 0063(0005(3 

T 0083(0011(2 

T 0063(0012(0 

T 0083(0013(3 

T 0063(0013(3 

T 0063(0014(0 

T 0063(0020(1 

T 0083(0021(3 

T 0063(0023(2 

T 006310029(3 

T 0063(0030(1 

T 0083(0032(0 

T 0083(0032(0 



09393480 T 0083(0032(1 



83 IS 35 LONGi NEXT SEG 



61 



STREAM PROCEDURE FTXHORfF.N); VALUE N; 
PRTC672) » FIXHDR 

BEGIN Sl*FI SuSl-24; DULOC FI DS*.WDS; 

si*f; i4(Si*si + 8); duloc f; ds*wosi 

DI*FI DUDl+38; Si* LOC Nl 
Sl*Sl4.7; DSiiCHRi 

END fixhdr; 



09393700 T 0081(0005(3 



09393710 
09393720 
09393730 
09393740 
09393750 



T 0061(0005(3 

T 0081(0007(2 

T 0061(0008(1 

T 0081(0009(2 

T 0081(0009(3 



BF6IN 



IF NOT iNTOg ThfN 

L*(L+3)DIV 4> COMMENT L*NUM, OF WORDS 
FILL SAVlNFOfO**] WITh 

OCT7700000000000015. 

0CT02530l0477527705i 
0CT005100000O000000. 
OCTO«41070001000062| 

Q •• -1 1 
PUSHFFfSAVlNF0.L»4»5)j 
SAVNoXisL) 



IN OUTER BLOCKI 



START 



84 



FNo; 



DO BEGIN 



BEGIN 



rewinoccodts 

IF REED=0 
N*FETCh(MkA 
IF B00LEAN( 



PUSHEE(SAVINFO»N» 
SAVNDXIaSAVNoX +N 
END ELSE BEGIN 

IF DECKTOG ThEN 

stackhe 

PUSHEEdNFO* 
NONSAVNDXtsC 



THEN GO TO EOF* 
BS(C0DE(0)))-1I 
FETCH(MKABS(CODEtl)))) THEN 

SAVNnX*!)! 
I 



AD[Q*Q+1] ♦ 1024XN0NSAVNDX+NJ 

N«N0nSAVNDX«1 }I 

(NONSAVNDX + N ♦ 29)DlV 30)x30l 



ENDI 
END 



UNTIL. FALSE! 

FOFJ N*.(SaVNDX + ?9 

OCCUPIED BY 

IF INTOG AND NOT QECKT 

BEGIN % INTRINSIC FUNCTI 

FOR ji.usfropinx step 

IF OPTiONStJ] » "PTIME 
REGJN TSST0G»«B00LEAN( 
I «• PRTBASE + 1? J ♦ O 

no IF gti * PRTtn *o 

BEGIN 

J * j-m 

SAVlNFOCj.LlNKRf 
0&GTl[8»8JiO] 
RGTir33tl8il5]l 

END UNTIL n«i +1 a PB 

SAVlNFOtO»0] ♦ J| 

savnox * maxintRinstc* 

END ELSE BEGIN 

I»-PRTBASE» D 

Begin if Gti.tns 

BEGIN IF (qTUGTi* 
GT1*gTU( 
ENO> 

MDESCCGTlfSA 

END ELSE SAVlNFOt 

M0ESCC08H2J 



) DIV 30» COMMENT NUMBER OF OlSK SEGMENTS 
SAVf PROCEDURES AND ARRAYS* 

OG Then 

ON OPTION 

2 UNTIL OPARSIZf DO % IS TIMESHARING SET 

S" Then 

OPTiONSrJ+l3)> Jt«OPARSiZE END> 

» I 

THEN 



J.LINKCI * 



TIMAXJ 
X # OF INTRINSICS 



IF GTi*PRTti 1*0 Then 
]#lofs then 

f GT 1. [ 33 » 15 3 ♦Li t 33 t 33 1 15]), [6 J 2] It 3 Then 
GTl,rl8»15)*N)tl8l33»l5JI 

VINFOCI.LINKRiI,LINKC]}I 

NLINKR.I,LINKC]I*0 UNTIL I I "I ♦liPRT I MAX| 
47«n»SAVlNF0[0iPRTBASE-ll)» 



09394000 


09394100 


09394200 


09395000 


09395100 


09395200 


OF SEGMENT 


09395300 


09395400 


09395500 


S 


4 LONG 


09395700 


09396000 


09397000 


09397100 


09398000 


09399000 


09400000 


09401000 


09402000 


09402100 


09403000 


09404000 


09405000 


09405500 


09406000 


09407000 


09408000 


094 


L2000 


094 


13000 


094] 


14000 " 


0941 


L4010 


094] 


14020 


094] 


[4022 


0941 


14024 


0941 


14026 


0941 


14030 


094! 


14040 


0941 


14050 


0941 


4060 


0941 


14070 


0941 


14080 


0941 


[4090 


094] 


lAlOO 


094] 


14110 " 


094] 


14120 


094] 


14130 


094] 


5000 ' 


094] 


15500 


094] 


16000 ' 


094] 


7000 ' 


094] 


7500 ' 


094] 


8000 " 


094] 


9000 ' 


094] 


9100 ' 



T 008 


llOOlOl 


T 008 


llOOlOt 


T 008 


iioon> 


T 008 


Mooin 


T 008 


1100131 


T 008 


1100141 


**)|i*4t«l 


li*** 


T 008 


llOOlSI 


T 008 


l»00l5« 


T 008 


llOOlSl 


» NEXT 


SE6 


T 008 


llOOlSl 


T 008] 


nooi6i 


T 0081 


llOOlSt 


T 008] 


Il00l9| 


T 0081 


Il00l9l 


T 008] 


ItOOgll 


T 0081 


1100221 


T 008] 


110028' 


T 006] 


lt0033« 


T 008] 


1100341 


T 008] 


1100361 


T 008] 


1100371 


T 008] 


1I003BI 


T 008] 


1100381 


T 008] 


1100421 


T 008] 


1100441 


T 008] 


1100471 


T 008] 


1100471 


T 008] 


1100481 


T 0081 


toosoi 


T 008] 


lOOSOt 


T 0081 


100521 


T 0081 


100531 


T 008] 


100551 


T 0081 


lt0056l 


T 0081 


100611 


T 0081 


100631 


T 0081 


100651 


T 0081 


I0065t 


T 008] 


[100661 


T 006] 


100691 


T 008] 


100701 


T 008] 


[I0071> 


T 0081 


100731 


T 0081 


100751 


T 008] 


100761 


T 0081 


100781 


T 0081 


t0081l 


T 008] 


100821 


T 008] 


100861 


T 0081 


100891 


T 0081 


100891 


T 008] 


100921 


T 0081 


100971 







2 

3 

2 



84 

2 

2 

2 

81 

2 



I 

2 

2 

2 

I 

I 

3 





3 



I 

I 

I 

3 

3 



I 

1 

1 

2 

2 



2 

2 

2 

3 

1 

2 



2 

3 

3 





2 

1 

1 

2 

2 



2 



end; 



SAVNOX # 30 K Nl 



I • 0» J ♦ -II 



IF 

BEGIN 
DO 

BEGIN 

I« 
Ji 
WR 

END UNT 
H 
WH 

Reg IN 
i« 

j« 

WR 
ENDJ 

N 



NOT DECKTOG ThEN 



FI 

LO 

END Ft 

BEGIN E 

D 



sPUSHER(SAVlNEO#ELBAT.I)l 
«J + a 

lTE(DlSK,30#ELBATt*ni 

IL I > SaVNDX) 

mOt 

Ht 1 < NONSAVNDX DO 

*pusheR(iNeo»eibat»i )I 

lTECDlSK.30iEL8ATr*l)J 

IF INTOG Then if tsstog then 

TSSlNTYPE ELSE DCINTYPE ELSE MCPTYPE* 
XHDR{OISk»N)» 
CK(DISK»*)| 
SE 



■ SE 

:UBATtO]*OI I«-16l 

10 BEGtN M0vE(8,SAVINF0fI,LlNKR.I,llNKC]»ELBATril)l 
ELBATr9]*B2D(I+96)&itii t 471 1 1 &( 1 +96 ) [ 23f 35 M 3 I 
wRlTE{OFCK»lO»ELBATr*])> 
END UNTIL I*I*8iSAVN0X; 
ILL ELBATt*] WjTh 0» 



0CT7500 
OCTOOO/J 
0CT7O06 
0CT7700 
0CT0253 
OcTOOSl 
0rT044l 
0CT0040 
OCTOOOI 



00000 

53553 
OOOftO 
00000 
01047 
00000 
07000 
41310 
00000 



0000012» 
0611765» 
4210435* 
0000015* 
7527705, 
4410046* 
1000062, 
0000000. 
OOOOlOll 



PRT(673) * *SEGMENT 



END 
DESCRIPTOR* 



WR I TE ( DECK, lO, ELBATt*])* 
EUBATtO] *04REAL(DECKT0G)tl«l9ll7]) 

FOR I • STEP 1 UNTIL 00 

BEGIN K * STACKHEAD[I],t23ll5]| 
M 4. STACKHEAOtI J, [3811011 
F©R J •• STEP 8 UNTIL M DO BEGIN 

M0VEt8,iNr0[(J+K).LlNKR,(J+K),LlNKC]» 

EL8AT [13)1 
ELBATt93 ♦ B20( J)&"3l O^n « 31 1 1 73 I 
WRITE(DECK,10.ELBATr»3) END* 
END* 
END END PROrRAM* 



09420000 
09420010 
09420020 
09420100 
09421000 
09421500 
09422000 
09423000 
09424000 
09425000 
09425900 
09426000 
09427000 
09427100 
09427200 
09427500 
09428000 
09429000 
09430000 
09430050 
09430060 
09430075 
09430100 
09431000 
09432000 
09433000 
09434000 
09435000 
09436000 
0943T0O0 
START OF SEGMENT 
09436000 
09439000 
09440000 
09441000 
09442000 
09443000 
09444000 
09445000 
09446000 
85 IS 10 LONG 
09447000 
09447010 
09447020 
09447030 
09447040 
09447050 
09447060 
09447070 
09447080 
09447090 
09447100 
09448000 



T 0081 


lOlOll 


T 0081 


101021 


T 0081 


101021 


T ooei 


101041 


T 0081 


101041 


T 0061 


101051 


T 0081 


101061 


T 0081 


101061 


T 0081 


101061 


T 0081 


(01091 


T 0081 


lOllOt 


T 0081 


I0U4I 


T 0081 


1 Oil 51 


T 0081 


101161 


T 0061 


t0ll8t 


T 0061 


101181 


T 0081 


101211 


T 0061 


101221 


T 0081 


(01261 


T 0081 


"01271 


T 0081 


101261 


T 0081 


101311 


T 0081 


101321 


T 0081 


101341 


T 0081 


01341 


T 0081 


101371 


T 0081 


I0l40t 


T 0081 


t0l45t 


T 0081 


101491 


T 0081 


101511 


«**«*»«**« 


T 0081 


0153« 


T 0061 


101531 


T 0061 


01531 


T 00611 


101531 


T 0061 


10153* 


T 0061 


101531 


T 0081 


0153* 


T 0081 


0153* 


T 0081 


10153* 


, NEXT ! 


iEG 


T 0081 


10153* 


T 00811 


0157* 


T 00811 


0160* 


T 0081 


0162* 


T 00811 


(0163* 


T 00811 


01651 


T 00811 


0166* 


T 00811 


01691 


T 006H 


0170* 


T 00611 


0173* 


T 00611 


01791 


T 008H 


0182* 



81 
73 



IS 

IS 



186 
101 



LONG* 
LONG, 



NEXT 

NEXT 



SE6 
SCG 



3 

I 

1 

1 

1 

3 







2 



1 

3 

I 





2 

I 

1 

2 

1 

3 

1 

1 

1 

2 

1 

2 

3 

3 

65 

3 

3 

3 

3 

3 

3 

3 

3 

3 

81 

3 

) 

I 



3 

2 



3 

X 

2 

3 



73 
3 



commfnt this srcTroN contains renfratoRs used by the block routinfi 

PROCEDURE OEFINEGFNf MACRO, j)j VALUE MACRO. J< BOOLEAN MACRO; REAL J» 

PRT(674) » nEFlNEGEN 

or ft I M 

OWM INTEGER CHARCqUnjT. REmCOUnTI 



PRT(675) s CHARCOUnT 
PRT(676) k rEMCOUNT 

COMMENT CHARCOUNT CONTAINS NUMBER OECHARACTORS OF THE DEFINE THAT WE 

HAVE PUT INTO INFO. REMCOUNT CONTAINS NUMBER OF CHARACT- 

ORS REMAINING IN THIS ROW Op iNpOJ 

procedurf putogeTheR(Char); real cmar; 

PRT(677) * PUTOfiFTHER 

BEGIN 
STREAM PROCEDURE PACKI NFOri NfO . I SK| P .COUnT , ASKl P . ACCUM) I 



10000000 
10?28000 

l0?29000 
10?30000 
START OF SEGMENT 



PRT(700) » PACKINFO 



START 



Value iskip.count,askipj 

Begin di *■ infoi di ♦ di + iskipi 

Si * accum;si ♦ si+askipi si ♦ si+3j 

DS •• count CHR end PACKINFO) 



10?31000 
10P32000 
10233000 
10P34000 

10?35000 

10236000 

OF segment 

10237000 
10238000 
10239000 
10240000 



T 0003I0S05I3 
T 00031050513 

T 0003»0505«3 
T 0003»0505»3 

4i4<****)li*** 86 



T 00861000010 

T 0086t0000l0 

T 00861000010 

T 00861000010 

T 00861000010 

T 00861000010 

iK4c««**4i**« 67 

T 00871000010 

T 0087«0000I0 

T 0087(000011 

T 00871000113 



STACKfF+2) 
STACKfr+3) 



COUNT 
SKiPCOUNT 



INTfGER count, SKIPCOUNT; 



IF (COUNT * CHAR,ri2«6]) + CHARCOUNT > 2047 

Then begin FLAGfi42); tbi* true end 

ELSE BEGIN 

IF COUNT > REMCOUNT 
THEN BEGIN 

SKiPCOUNT ♦ COUNT-(COUNT*REMCOUNT)J 
REMCOUNT ♦ 2047 END 
ELSE REMcOuNT * ReMCOUNT-COUNT ; 
GTl - CHARcOUNT OIV 8 + NEXTINFOJ 

PACKINf0(INF0[GT1.LINKR,GT1.LINKC3,CHARC0UNT.[45|3]» 
COUNT. O.CHAR)! 

IF skipcount # Then 

PACKlNF0(lNF0[NEXTlNFO.LlNKRfl,Ol,O.SKIPCOUNT. 
COUnT.CHAR)! 
CHARCOUNT * CHARcOUNT+SKI PCOUNT+COUNT END 

END putogetheR; 



10241000 T 00871000211 



87 IS 



10242000 T 0087 

10243000 T 0087 

10244000 T 0087 

10245000 T 0087 

10246000 T 0087 

10247000 T 0087 

10248000 T 0087 

10249000 T 0087 

10250000 T 0087 

10251000 T 0087 

10252000 T 0087 

10253000 T 0087 

10254000 T 0087 

10255000 T 0087 

10256000 T 0087 

10257000 T 0087 

32 LONG. NEXT 



1000211 
1000411 
1000712 
1000912 
1000912 
tOOlOlO 
1001210 
1001211 
1001610 
tOOlBiO 
'0021I2 
10022*0 
1002312 
1002611 
I0027«2 
1002912 
SEG 86 



PRTC701) B SCAN 



STREAM PROCEDURE SC AN(0 » S, Q.N. J) ; VALUE J.N.QJ 
BEGIN DI*D>ni*01+n;SUSIST*Sl + 3l 

IF N scbDc Then 

IF sc>»'0" Then 

Begin di*loc jj di*di+7i 



10257100 T 0086l0000i0 



10257200 
10257300 
10257400 
10257500 



T 00861000010 

T 0086(000112 

T 00861000113 

T 0086(0002(1 



END END 



IF sc<Dc Then 

BEGIN JaSMOIoJJSULOC QfSl 

di»S)dudi+2;ds«-chri 

E.NDI 



.si+6JDS*chr; 



10?57600 
10?57700 

lOpsT-aoo 

10?57900 



T 0086«0003I3 

T 00861000410 

T 00661000610 

T 00861000611 



STACKfF+2) a LASTReSULT 



STACKfF43) 
STACKrF+4) 
STACK(F+5) 



K 
H 
EUCUASS 



BACK! 
SKSCI 



FINALJ 



Packjni 



iNTp-GER LASTRESULT* 

Real k»n»euclassi 



DEFINE I»NXTeLBT#) 

label final»packin» 
Label back*sksc*exiT{ 
tbi* false* 

ChARCOUNT*{ Next tNfO-L AST TNF0)x8; 

DEFINECTR ♦• It LASTRESULT » ?l 

RfMCOUNT * (256 - NEXTINFO MOD 256) x 8| 

NcXTlNFO^LASTlNrOj 

IF J#0 THEN N»TAKE(LASTiMFO+l),t J2«6]; 

K*0> 

stopoffine«-true; 

ELCLASS»TABLEfNXTELBT)l 

NXTEL0T»NXTelBT-1; 

IF MACRO THEN 

BEGIN IF ELCLASS«cOMMa THEN 

IF K«0 THEN 

BEGIN PUTOfiETHERflfOOOO")! GO TO EXIT END 

flse GO pacKinj 

IF ELCLaSSbLeFTPaREN or ELCLASSaLFTBRKET THEN 

BEGIN K*.K+ll GO TO PACKIN END* 

IF ELCLASS.RTPARfN OR ELCLASSbRTBRKET THEN 

IF K.-K-KO Then go final else go packini 
IF ELCLASS. Semicolon then 

begin FlA6(i4P3J GO To FINAL END ELSE 



10258000 T 
10258100 T 



00661000712 
006610007)2 



ENDJ 



IF 
IF 



Ji*0 THEN 

AccUM[ii,[i2i6]'"i8N Then 

SCAN(tNfO[LaSTINFO. LINKR 
ACCUM[i],N+770,N.J); 



GO PACKIN 



#LASTINF0. LINKC]» 



IF 



COMMENT INSERT 



Result * 4 
then begin 
" marks - 2130706432 is decimal for 1"0000| 

PUTOGtTHERC 21 30706432); 
PUTOGETHER(ACCUM[n)| 

PUT0GETHERC2130706432) END 
FLSE BEGIN 

IF BOOLEaN(RESULT) and BOOLEAN(LASTReSULT) 

THEN PuTOGEThERCI OOOO**); COMMENT INSERT BLANKI 
PUTOGFTHFR(ACCUMtl J) FNDI 

IF TBI Then go to exiTi 

LASTRESULT * RESULT) 

IF MACRO Then go back* 

IF ElCLASS. DECLARATORS AND ElBAT t I ], ADDRESS • OEFINEV 



10?58200 
10258300 
10259000 
10260000 
10261000 
10262000 
10263000 
10263100 
10263110 
10263200 
10263300 
10263400 
10263500 
10263600 
10263700 
10263800 
10263900 
10264000 
10264100 
10264200 
10264300 
10264400 
10264410 
10264420 
10264500 
10264600 
10264700 
10264800 
10264900 
10264910 
10265000 
10266000 
10267000 
10268000 
10269000 
10270000 
10271000 
10272000 
10273000 
10274000 
10275000 
10276000 
10276500 
10277000 



0066* 
00861 
0086t 
0086t 
00861 
00861 
00861 
0086 t 

ooe6t 

0086* 
0066* 
00861 
0086* 
0086* 
0066* 
00661 
0086* 
0066* 
0086* 
0066* 
0086* 
0086* 
0086* 
0086* 
0066* 
0086* 
0086* 
0066* 
0066* 
0086* 
0086* 
0086* 
0066* 
0066* 
0086* 
0086* 
0066* 
0066* 
00661 
0066* 
0086* 
0066* 
0066* 
0066* 



0007 
0007 
0007 
0007 
0007 
0009 

oou 

0013 
00l4 
00l7 
0018 
00i9 
0021 
0022 
0022 
0023 
0025 
0029 
0029 
0030 
0033 
0034 
0038 
0036 
0040 
0040 
0041 
0043 
0046 
0048 
0049 
0049 
0050 
0050 
0051 
0052 

0052 
0055 
0055 
0057 
0058 
0059 
0059 
0060 



EXITI 



PND 



THEN BEGIN DEFlNfCrR «. OEFlNECTR+H 
IF ELCLASS # CROSSHATCH THEN GO BACKI 
IF DEFINECTR * 1 

THEN BEGIN STOPDEFINE ♦ TRUE; 

IF ELCl-ASS»TABLE(I)itCOMMA THEN 
DEFINFCTR*DEFINECTR-1I GO SKSC 
DEFINECTR*- Ol 

nfxttnfo «-(chaRcount*7) div 8+nextinfoi 

DFFINETiENI 



60 BACK ENDI 



end; 



86 IS 



10?78000 T 0086 

10279000 T 0086 

10?S0000 T 0086 

10281000 T 0086 

10282000 T 0086 

10283000 T 0086 

1028AOOO T 0086 

10285000 T 0086 

10286000 T 0086 

81 LONG. NEXT 



t0062<l 
J0067I2 
1006810 
1006811 
1007010 
»0072t0 
1007410 
•0075I3 
1007810 
SEG 3 



STACKfr+2) e S 
STACK(F+3) a T 



PROCEDURE DBlSTMTj 
BEGIN 
REAL S,TJ 



LABEL Ll»L?»L3,EXiTI 
S»0] 

TF STEPI#LEFTPAREN ThEN ERR(?81) 
ELSE 
Lit BEGIN 

IF STEPI»C0MMA THEN 

BEGIN 

DPT0fi*-TRUE» 

IF STEPi»ADOP Then stfpit; 

PMlTNUMfNLO)! 

EMITNUMcIF ELBATCl-13. ADDRESS -SUB THEN -NHI ELSE NHI); 

OPTOf,*-FALSEJ 

STEPlTI 

GO TO L2; 

end; 

IF TABLECI + DwCOMMA ThEN 
BEGIN 
IF ELCLASSsADOP OR ELCLASS.MULOP THEN 

BEGIN 

EM|TOfELBATrl],ADDRESS+n; 

IF S*S-1$0 THEN FLAG(282); STEPiT; 

GO TO L3; 

end; 
IF euclass.assignop Then 

BEGIN 

IF S#l THEN FLAG(263); S*0; STEPlTl 
DO 

BEGIN 
IF ELCLASS #C0mMA THEN BEGIN ERRf284)IG0 EXIT END; 

stepiti 

IF ELCLaSS<tNTID and ELCLASSiREALID THEN 
BEGIN EMITNtELBATin. ADDRESS); STEPIT fNO 

ELSE VARIABLE(rL); 
EMITO(STD) END UNTIL S#-S + i.2 t 
IF ELcLaSSj*RTPaREN then ERR(285) ELSE stepit; 

go to exit; 
end; 



START 



12002000 

12003000 

12004000 

OF SEGMENT 



T 0003I0505J3 
T 0003I0§05I3 
T 000310505(3 



12005000 

12006000 

12007000 

12008000 

12009000 

12010000 

12011000 

12012000 

12013000 

12014000 

12015000 

12016000 

12017000 

12018000 

12019000 

12020000 

12021000 

12022000 

12023000 

12024000 

12025000 

12026000 

12027000 

12028000 

12029000 

12030000 

12031000 

12032000 

12033000 

12034000 

12035000 

12036000 

12037000 

12038000 

12039000 

12040000 

12041000 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



00881 
00861 
00881 
00881 
00881 
00881 
00881 
00881 
0088t 
00881 
QOfiBt 
00881 
0088t 
00881 

ooaei 

00881 
00881 
0088 t 
00881 
00681 
0088* 
00881 
0088; 
00881 
0088t 
008&; 
0088; 
00861 
00681 
0086; 
00661 
0086; 
0068; 
0088; 
00681 
0068; 
00681 



oooo;o 

00004 

oooo;i 
ooo2;i 

0003;2 

ooo4;o 

000512 
000513 

ooo6;o 
ooo6;o 

0009; 2 
00l3;2 

ooi4;o 

0014H 
00l5;2 
00l5;2 

ooi6;i 

00i7(2 
00l9;2 
00i9;3 
002M3 
0025;2 
0025;3 
0025;3 
0026;0 
0026;i 

oo3o;o 
oo3o;o 
oo»oio 

0032;i 
003312 

0034; 1 
0037;2 
003011 

0041(3 
0044(1 

0045(2 



L2« 

EXIT«FND 

END 



IF ElCLA5S<InTID AND ElClASS^BOO 1 D THEN 

BEGIN 

CHECKFRfT*.ELBAT[n); 

STEPITJSTEPlTl 

AEXPI 

EMlTVfT, ADDRESS); 

GO TO L2> 

END* 
END I 

aexp; 

IF ELCLaSS^cOMMA then begin ERR(2B4)I60 E^fT 

ENDI 
STePITI AEXPI EMITO(XCH); 

s^s+i ; 

IF ELCLASS#COMMa then begin FRR(284)IG0 TO EXjT END; 
60 TO Li; 

dblstmt; 



1?042000 
12043000 
12044000 
12045000 
12046000 
12047000 
12048000 
12049000 
12050000 
12051000 
12052000 
12053000 
12054000 
12055000 
12056000 
12057000 
12058000 
12059000 



88 IS 65 U0NG» 



0088 
0088 

0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 
0088 

0088 

NEXT 



I0045»2 
1004611 

«0047»2 
I0048U 
10049)3 
1005010 
10051(3 
10052(0 
1005210 
t0052(0 
10052(1 
(005512 
10055(2 
10056(1 
10056(0 
(0061(3 
(0062(0 
10062(0 
SEG 3 



RFAL PROCFOURE FlXDFFINElNFOrT); 
BEGIN REAL K,S,P,j,El( 



Value t; real t; 



STACKfF+3) 
STACKfF*4) 
STACKfF+5) 
STACKfF+6) 
STACK(F+7) 



K 
S 

p 
J 

EL 



START 



PRT{702) n SET 



STRfAM PROCEDURE SET ( S, D# K» F ) ( VALUE K.e; 

BEGIN si*s;si*si*ii;Di*D;Df«'Di+3;DS«-K chR; 

si*Loc e; Si*Su6» DS*2 CHR; 
end; 



12101000 

12102000 

OF SEGMENT 



T 0003(050513 
T 0003(0505(3 

«4i4,«4>«4>**# 89 



12103000 T 0089(000010 



12104000 
12105000 
12106000 



T 00891000010 
T 0089t0001(3 
T 0089(0002(0 



macroid*true; 

P*(FIXDEFINEINFo*T).ADORESS; 

k*count; 
s*scram; 

5TREAMT0G*TRUE « STREAMT0G[ 1 t 3» 45] ; 

stopoffine»true; 
el*table(NXTelbt); 

NXTELBT»NXTELBT-l; 

IF ELitLEFTPAREN AND EL^LFTBRKeT THEN 

FLAG(141) 
ELSE DO BEGIN J»J*i; 

SET(lNF0rT;LlNKR,T,LINKC].ACCUM[l].K#64XJ*12); 

ArcUMtl3.tl2(63*-K*2; 

ACCUMtOl^Oi 

accuhco],class«>definedid; 

C0UNT«-K*2; 
SCRAM*ACCUMtl] MOD 125; 



12107000 
12108000 
12109000 
12110000 
12110100 
12111000 
12112000 
12113000 
12114000 
12115000 
12116000 
12117000 
12118000 
12119000 
12120000 
12121000 
12122000 



0089( 
00891 
00891 
0089( 
00891 
00891 
00891 
00691 
0089( 
0069) 
0089( 
00891 
0089) 
0089) 
00891 
0089) 
0069) 



0002(1 
0003)3 
0005)3 
0006)0 
0007)2 
000611 
0009)3 
OOlOll 
0012)0 
00i3)3 
0014)1 
00i7)2 
0022)0 
0025)2 
0026(0 
0028)1 
0030)0 



fnd; 



OEFINEGEM(TRUE»0)J 
END UNTIL EL»ELBATtNXTEt.BT],CLASS#COMMAI 

IF el#rtpaRen and el#rtbrket or j#p then 
macro?d*fausei 

STREAMT0G*STREAmT0G.[1»453 » 



FUAGf Hl)| 



12123000 
12124000 
12125000 
12126000 
12127000 
12127100 
12126000 



T 008910031(3 

T 00891003210 

T 0069t0033l2 

T 00891003513 

T 00891003913 

T 00891004010 

T 00891004210 



89 !S 46 LONG. NEXT SEG 



PROCEDURE SCATTERELBATI 
BFGIN 

Rfal T» 



STACKfF+2) 



END 



T * ELBATrni 

KLASSF * T,CLASS< 

FORMALF ♦ BOOLEANfT, FORMAL)! 

VONF ♦ BOOLEAN(TiV0)l 

levelf * t.lvl; 

ADDRSF * T.AOORfSSI 
INCRF ♦ T.INCRJ 

Linkf ♦ t.Link; 
scattfRelbati 



13197000 

13198000 

13199000 

START OF SEGMENT 

13200000 
13201000 
13202000 
13203000 
13204000 
13205000 
13206000 
13207000 
13208000 



T 00031050513 
T 0003I0505«3 
T 00031050513 



0090 
0090 
0090 
0090 
0090 
0090 
0090 
0090 
0090 



tooooio 

tOOOl 12 
I0002«0 
1000313 
I 0004 11 
1000610 
•000712 
1000811 
1000913 



90 IS 12 LONG. NEXT SEG 



PROCEDURE chksob; 

PRT(703) s CHKSOB 

IF GTAl[J«-J-n!tO Then fLAGC23)I 



13209000 T 0003«0505«3 
13210000 T 00031050513 



STACKfF*3) 
STACKrFf«) 
STACKfF+S) 
STACK(F*6) 
STACKfF+7) 



DEFINE 

A00C»532480I, 
SUBC««l58i056#. 
rMlTSTORE«EMlTPAlR#l 
PROCEDURE PURGE(STOPPER)» 
VALUE STOPPER' 
REAL STOPPER? 



STACKfF+2) « 



BEGIN 
INTEGER 



POINTER 

LABEL 



POINTERl 



13211000 T 0003*050913 



13212000 
13213000 
13214000 
13215000 
13216000 
13217000 
13218000 
13219000 



00031 
00031 

00031 
00031 
00031 
0003« 
0003i 
00031 



0509t3 
050913 
050913 
050913 
050913 

050913 
0509(3 
050913 



START OF SEGMENT ♦♦♦•♦♦•*♦♦ 



91 



RFCOVI DEFINE ELCLASS » KLaSSF#; 
REAL J.N.OCR.TL.ADDI 



J 

N 

OCR 

TL 

ADD 



13220000 
13221000 



T 00911000010 
T 00911000010 



pointer*lastinfoi 



13222000 T 009l«0000l0 



While: pointer > stopper 

DO 

BFGIN 



Rrcovj 



TF ELCLAS5*-(GTUTaKE(POINTER)),CLASS»N0NLITNO 

Then begin 

NCIUNClI-n 

EMITNUM(TAKE(P01NTER*1))I 
FMiTSTORe(MAXSTAcK,STD)» 
MAXSTACK»(C.»MAXSTACK) + 1I 
J«-LI L*GTl,LlNK» 
DO 

BEGIN 

GT4*Gf:T(U)I 
EMiTVfG) 
END 
UNTIL (U«-GT*)»«095» 

POiNTER*POtNTER-fiTl.INcR 

END 
ELSE 
BEGIN 
IF NOT 800LEAN(rJl. FORMAL) 

Then begin 

IF elclass s labflid 

THEN BEGIN 

ADD * rTi, address; 

IF NOT B0OLEAN(OCR*TAKECGIT(POlNTER))),fim 
THEN IF OCR, [361123 # OR ADO # 

THEN BfGIN GTl ♦ l60j GO TO RECOV FNDI 

IF ADO * Then 

PROGDESCBLORf A0D»TRUE,0CR.i:36ll0],LDES) 
ELSE IF FALSE 

THEN BEGIN 

IF TAkE(P0InTER + 1)' < 

THEN BEGIN GTl * 162> GO TO 
OCR ♦fJ ♦ TAKECGITCPOINTER))) 
N ♦ GeT( (J*J,t36ll2J)+4)l TL * LI 
IF ADO • GTl, ADDRESS * 

Then begin 

IF OCR * 

Then begin l#.ocr-2i callswitchcpointeR); emitocbfwjifndi 

L*J+11) fMITL(15)I FMlT0(RTS)l 
FOR J ♦ 4 STEP 4 UNTIL N 
DO BEGIN 

EMITLCGNAT(GET(L)x4096 + GET{L+n))J 

emito(RTS) end end 
else begin 

L «■ J4-13) 

FOR J ♦ 4 STEP A UNTIL N 
nO BEGIN 

GTl ♦ GET(L)x4096+GET(L+l)l 
s0GENC6T1»BFW) ENOUNDi 
L ♦ TL END 
ELSE IF ELcLASS > PROCiD AND ELCLASS < INTPROCIO 

Then ir taKfcpointeR+u < o 
Then begin gti ♦ i6ii 

M0VEf9»INF0rP0lNTER.LINKRiP0INTER.LINKClf ACCUM)! 



END 



RECOV ENDI 
.[?4«12J| 



13223000 

13224000 

13225000 

13226000 

1322^000 

1322SO00 

13229000 

13230000 

13231000 

13232000 

13233000 

13234000 

13235000 

13236000 

13237000 

13238000 

13239000 

13240000 

13241000 

13242000 

13243000 

13244000 

13245000 

13246000 

13247000 

13248000 

13249000 

13250000 

13251000 

13252000 

13252500 

13253000 

13254000 

13255000 

13256000 

13257000 

13258000 

13259000 

13260000 

13261000 

13262000 

13263000 

13264000 

13265000 

13266000 

13267000 

13268000 

13269000 

13270000 

13271000 

13272000 

13273000 

13274000 

13277000 

13278000 

13279000 

13280000 

13281000 



T 0091 


tOOOOl 


T 0091 


iOOOli 


T 0091 


100021 


T 0091 


(00021 


T 0091 


I0004t 


T 0091 


100051 


T 0091 


»0006t 


T 0091 


100081 


T 0091 


t0009i 


T 0091 


I00ll« 


T 0091 


(00131 


T 0091 


I00l4t 


T 0091 


I00|4I 


T 0091 


I00l5« 


T 0091 


lOOlSt 


T 0091 


100161 


T 0091 


100171 


T 0091 


looiei 


T 0091 


t00l8( 


T 0091 


(00201 


T 0091 


(0020( 


T 0091 


(0022( 


T 0091 


(0022( 


T 0091 


(00231 


T 0091 


100231 


T 0091 


(00241 


T 0091 


(0026( 


T 0091 


(0028( 


T 0091 


(00301 


T 0091 


(0033> 


T 0091 


(0033( 


T 0091 


(0036( 


T 0091 


(0037( 


T 0091 


(00371 


T 0091 


(0038( 


T 0091 


(0041( 


T 0091 


(0043( 


T 0091 


(0047( 


T 0091 


(0048( 


T 0091 


(0049( 


T 0091 


(0049( 


T 0091 


(0049( 


T 0091 


(0053( 


T 0091 


(00561 


T 0091 


(00561 


T 0091 


(00571 


T 0091 


I0060( 


T 0091 


(0063( 


T 0091 


(0066( 


T 0091 


(0067( 


T 0091 


|0067( 


T 0091 


(0068( 


T 0091 


(00711 


T 0091 


100741 


T 0091 


100751 


T 0091 


100781 


T 0091 


{0080( 


T 0091 


(0082( 



1 

2 


1 
3 
I 
1 
3 
2 
2 


2 
3 

3 
1 
1 




3 
3 
1 



1 

2 

3 

2 
3 
1 
2 
3 
2 
1 
3 
3 
3 
3 


2 

1 
3 

2 
2 

2 
I 
2 


I 




END> 



Q * AcCUMtlJJ FLAGCGTDI ERRORTOT, ♦ TRUE END 



XRFFnUMPfPOlNTER); X nUMP XREF INFO 

GT2*TaKe(P0iNTER+UI 

GT3*r,T2,PURPTJ 

STArKHrAnrco«GT?ri2« 12136]) mod i?5j*take(P0inteH),link; 

POfNTER*P0lNTER-GT3 
END 
END i 
LASTfNFO^POINTERl 

nexttnfo*stopper 

END! 



91 IS 



13282000 T 

13283000 T 

13283500 C 

13264000 T 

13285000 T 

13286000 T 

13287000 T 

13288000 T 

13289000 T 

13290000 T 

13291000 T 

13292000 T 
105 LONG* 



0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
NEXT 



1008610 
1006912 
1008912 
1009112 
1009211 
1009410 
1009713 
1009810 
I0099t2 

1009913 
tOlOOlO 
lOlOOlO 
SEG 3 



STACK{F+2) « 
STacK(F+3) » 



PROCEDURE n 

COMMENT 

F tS The PROCEDURE WHICH PLACES AN ENTRY IN INFO AND 
hOOKS iT INTO STaCkhEAO. THE PREVIOUS STACKHEAD LINK 
IS SAVED IN THE LINK OF THE ELBAT WORD IN THE NEW ENTRY 
E PREVENTS AN ENTRY FRoM OVERFLOWING A ROW. STARTING AT ThE 
BEGINNING OF THE NEXT ROW IF NECESSARY 

Q r* r 1 KJ 

REAL W0RDC0UNT,RINX; 

WORDCOUNT 
RlNX 

IF RlNX*(NEXTINF0+W0RDc0uNT*fCOUNT+l8)DlV 8 ),LlNKR # 
NEXTlNFO.LlNKR 
THEN BEGIN PUT (1 25S f R I NXX256-NEXT I NfO ) [ 27 » 40 J 8] , NEXT I NFO ) J 
NFXTlNF0«.256xRlNX FNol 

IF spectog Then 

IF NOT MACROID TMeN 
UNHOOK) 



«CCUMi:0],iNCR«-WORD 

IF NOT INLINETOG 

ACCUMfOJ.LlNK .-ST 

ACCUMrlJ.PURPT*NF 

MO VE ( WORDCOUNT I ACCUM. INFO IN 

TF XREF THEN % MAK 

% IF (ACCUMrOJ.CLAS 

% booleancaccum 

BEGIN 

XREFlNFOtNEXTf 

IF SPECTOG T 
XREFINFOtE 
ELSE 

((XLUN f« 
IF SPECTOG THE 

XMARKfDECLRE 
ELSE 

XREFlTfNEXTl 
THE 



count; 

r macroid then begin 

ACKHEADISCRAMJiSTACKHEADtScRAMlfNEXTiNrO 
FNDI 

xttNfo-lastinfoi 
extinfo,linkr»nextinfo,linkc]); 
e declaration reference 

S I* DEFlNEDiD OR NOT 

[0], FORMAL)) THEN % NOT DEFINE PARAMETER 



I 



NFo3 »« 

HEN 

LBaT[I]J 

XLUN +1)4 
N % JUST GO 
F) 



SGNO SEGNOF)! 
BACK AND FIX UP 



XREF ENTRY 



NF0«CARDNUMBER»IF PTOG AND NOT STREAMTOG 

N normalref else declref); 



XI 

XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 



13293000 T 0003»0509I3 

13294000 T 0003i0509t3 

13295000 T 00031050913 

13296000 T 0003«0509I3 

13297000 T 0003*050913 

13298000 T 0003*050913 

13299000 T 00031050913 

13300000 T 0003»0509I3 

13301000 T 0003«0509I3 

START Of segment *♦♦♦♦♦♦**♦ 92 



13302000 T 0092(000010 

13303000 T 00921000312 

13304000 T 0092*000312 

13305000 T 009210007*3 

13305100 T 009210009*2 

13305200 T 009210009*2 

13305300 T 0092*0010*0 

13306000 T 0092*0011*2 

13307000 T 0092«001H2 

13307500 T 0092*0013*3 

13308000 T 009210015*2 

13308500 T 0092»00i9*2 

13309000 T 0092*0019*2 

13310000 T 0092*0022*0 

10« 13310050 C 0092*0025*3 

lO- 13310075 C 009210026*1 

10« 13310080 C 00921002611 

10» 13310100 C 0092*002611 

10- 13310200 C 0092*0027*2 

lO- 13310300 C 0092(0029*3 

10- 13310350 C 0092(0030*0 

10- 13310400 C 0092*0033*3 

10- 13310450 C 009210034*0 

10- 13310500 C 0092(0037*2 

lO- 13310525 C 0092*0037*2 

lOw 13310550 C 0092*0042*0 

10- 13310575 C 0092*0042*0 

10- 13310580 C 0092*0042*0 



% 

% 



rND> 



END 
FLSE % DFFINE PARAMfTfRS - DONT CROSS REF, 

XREFlNFOrNfXTlNFO] Is 
ELSE 

IF DEFINING. tl»l] THEN j; WE ARE DOING XREFING 
XReFINfO[NeXTtNFO] «« 0> 
LASTlNFO«.NFXTlNFOI 
NFXTiNFO«-NFXTINFO + wORDCOUNT 



fllO. 
JSllO" 
XllO' 
JtllO- 
«110« 

mio- 



1331 
1331 

1331 
1331 
1331 
1331 
1331 
1331 
1331 



0600 
0700 

0750 
0800 
0900 
0950 
1000 
?000 
3000 



00921 
00921 
00921 
00921 
00921 
00921 
00921 
00921 
0092» 



004712 
004712 
004712 
004712 
004712 
004611 
005211 
005312 
0053«3 



9? IS 57 LONGt NEXT SEG 



PROCEDURE FNT 
VAL 
REA 

COMMENT 

fntry 

tS BE! 
ACCORD 
A SPEC 
FOR TH 
BEGIN 

J*OI 1*1- 
DO 

BEGIN 
S 

I 



RYfTYPE)> 
UE TYPEI 
L TYPfi 

ASSUMfS THAT t IS POINTING AT AN IDENTIFIER WHICH 
NG DECLARED AND MAKES UP THE ELBAT ENTRY FOR IT 

TO TYPE !lF THE ENTRY IS AN ARRAY AND NOT 
IFICATION ThEn A DeSCRiPTqR \S PLACED IN ThE STACK 
E UPCOMING COMMUNICATE To GET STORAGE FOR THE ARRAY{S) 

U 



TOPDE 

F FOR 

THE 

BE 

I 



klassf*tyPe»m 

EN 
ELS 

BE 

I 

THE 

■ I 

V 

FO 

IF XRe 

XRE 

YPE> 

MALE* 

DORSF 

F STO 

Then 



klassf^t 

IF ((FOR 
THEN A 
FLSF I 



PUT(TAKE(LA 
ENn END 



FINE ♦TRUEJ STEPITJ SCATTfRELBAT ; 

MALF*5PECT06 

N 

GIN 

F ELCLASS^SfCRET 

Then flagtoo?)! 

BUP«-BUP + 1 
AKEUPACCUMI ElJ*J*l» 

F 
GIN 

F flclass>idMax and ei-class<mulop 

N IF ElCLASS* POLtSHV ThEN ELCLASS»TYPE 
F LEVEtF»LEVEL 

THEN FLAG(00i)» 
ONF*P?; 
RMALF*PTOG» 

F AND NOT SPECTOG THEN % ERASE 
FPT*XR£FPT»REAL(ELBAT[I]|iO)l % 
MAKEUPACCUMlEl J«.J+li 
PTOG) OR(STREAMTOG AND NOT STOPGSP)) 
♦PJ*PJ+1 
PGSP 

ADDRSF*0 

ELSE AD0RSF»»6ETSPACE(P2»LASTlNF0*ni 
STINF0)& ADDRSFtl6l37lll],LA5TiNrO)l 



ELSE 



K112' 
FLAG(3)1 



PREVIOUS XREF ENTRY, 
GET RIO OF LAST CREF 



AND NOT P? 



UNTiL STEPU'COMMA OR STOPpNTRYl gTA1[0]*J 



END* 



13314000 
13315000 
13316000 
13317000 
13318000 
13319000 
13320000 
13321000 
13322000 
13323000 
13324000 
13325000 
13326000 
13327000 
13328000 
13329000 
13330000 
13331000 
13332000 
13333000 
13333500 
13334000 
13335000 
13336000 
13337000 
13338000 
13339000 
13340000 
13341000 
13341100 
13341200 
13341300 
13342000 
13343000 
13344000 
13345000 
13346000 
13347000 
13348000 
13349000 
13350000 
13351000 
13352000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00031 
00031 
00031 
0003t 
0003* 
00031 
00031 
00031 
00031 
00031 
0003« 
00031 
00031 
00031 
00031 
0003* 
0003( 
0003* 
00031 
0003t 
00031 
0003* 
00031 
0003> 
00031 
0003) 
00031 
00031 
00031 
00031 
00031 
0003? 
00031 
00031 
0003* 
0003* 
0003* 
00031 
0003* 
00031 
0003* 
0003* 
0003* 



0509 
0509 
0509 
0509 
0509 
0509 
0509 
0509 
0509 
0509 
0509 
0512 
0512 
0512 
0513 
0513 
0514 
0515 
0515 
0517 
0517 
0521 
0521 
0521 
0521 
0522 
0527 
0527 
0529 
0530 
0530 
0532 
0534 
0537 
0539 
0541 
0543 
0S44 
0547 
0549 
0549 
0549 
0552 



*3 
«3 
13 
*3 
*3 
«3 
«3 
»3 
*3 
*3 
*3 
10 
*0 
iO 
*3 
»3 
*1 
*2 
12 

(2 
*2 
»2 
>2 
*2 
«3 
11 
«2 
»3 
(2 

to 

»1 
*0 

»1 

*3 
*3 
*2 
12 
»0 
t2 
*3 
*3 
*3 
10 



PROCEDURE UNHOOKJ 
COMMENT 

UNhOoK ASSUMfrS THAT THE WORD 

FOR aParamf:Tfr,its job tS TO 

E WILL WORK AS NORMAL. 
BEGIN 

Real LlNKTtA.LlNKP» 



IN rLBATtl ] 
UNHOOK THAT 



POINTS TO A 
FALSE ENTRY 



PSUEDO ENTRY 
SO THAT 



STACKfF+2) a L 
STACKrF+3) m A 
STACKfF+fl) » I 



inkt 

INKP 



LABEL LI 



L» 



ENDI 



13353000 
13354000 

13355000 
13356000 
13357000 
13358000 
1 3359000 
START OF SEGMENT 



T 00031055312 

T 0003l0553»2 

T 0003(055312 

T 00031055312 

T 00031055312 

T 0003«0553«2 

T 0003»0553»2 



i^*^,****^^** 



93 



LlNKT«.STACKHEADtSCRAM] ; L I NKP*EUBATn 1 . II NKI 
IF LINKT»LINkP THEN STACKHE ADf 5CRAM]*TAKE( LI NKT ) , L I NK 
ELSf 

IF A*TAKE(LINkT).LINK«LINKP 

THEN PUT((TAKf(LINKT))8.(TAKE(A))[35«35i131»LINKT) 

ELSE BEGIN LINKT»A1 GO TO L END! 



13360000 T 00931000010 
13361000 T 00931000010 



13362000 
13363000 
13364000 
13365000 
13366000 
13367000 



T 00931000211 

T 0093(000513 

T 0093(0006(0 

T 0093(0008(1 

T 0093(0012(0 

T 0093(0014(1 



93 IS 17 LONGf NEXT SE6 



PROCEDURE MAKEUPACCUMI 
BEGIN 

IF PTOG 

THEN GTl*LEVrLF ELSf GTULEVfL? 
ACrUMrO]* ABS(eLBAT[I] t KLASSf[2«41i7J S REAL(F0RMALF)r9(47»n 

& REAL(V0NF)Cl0l47in & 6Tirilt43l53 &AODRSFt 1 6 ( 37 ( 1 1 ] 
) 
END) 



13368000 
13369000 
13370000 
13371000 
13372000 
13373000 
13374000 
13375000 



0003( 
0003« 
0003i 
0003» 
0003( 
00031 
0003( 
0003( 



0553(2 
0553(2 
0553(2 
0554(0 
0556(1 
0559(3 
0562(0 
0562(1 



PRT(704) B ARRAE 



PROCEDURE ARRAE( 

BEGIN 

INTEGER SAVEINFOJ 



13376000 T 0003(0563(3 



STACKfF+2) n SAVEINFO 



START 



LABEL BETAK 

TYPEV*REALARRAYln( 
IF TuGTAlIJ*J-i]«0 TmEN J*J+l 

ELSE 

IF TlsOWNV THEN 
BEGIN 

P2*TRUE(ir SPECTOG THEN 
FLA6(13) 
END 

ELSE 
TYPEV*REALARRAYID*T1-REALV( 



13377000 




0003(0563(3 


13378000 




0003(0563(3 


OF SEGMENT 


**«****««* 94 


13379000 




0094(0000(0 


13380000 




0094(0000(0 


13381000 




0094(000011 


13382000 




0094(0004(0 


13383000 




0094(0005(2 


13384000 




009410006(0 


13385000 




0094(0006(1 


13386000 




0094(0007(3 


13387000 




009410006(1 


13388000 




0094(0009(2 


13389000 




0094(0009(2 



BrTAll FNTfR(TyPEV)I 

TF FLcLASS#LFTBRKET ThEN fUAG(16)| 

TF sTrPi.tiTNO Then 
Begin 

SAVElNFO^ELBATrn.ADDRESSi 

IF STEPI^RTBRKET Then FUAGf53)» 

FILUSTMT(SAVEINFO)) 
SAVEINF0*1» 

END 

ELSE 
BEGIN IF ELCUASS^ASTRISK ThEN FLAG(56)I 
SAVEINFO*!! 

While stepi#rtbrket do 

BEGIN IF ELCLASSjtCOMMA AND 

STePIj«ASTR|SK then FLAG(56); 

&aveinfo*-saveinfo+i 
end;stepiT; 

END I PUT c Take f LA ST I NFO)& save info [27 140*8 3, LA ST INFO) I 
J ♦ 1 > GTAltO] ♦ ; 

IF elclass»comma Then besin stepitjgo to betai end 

END ARRAEI 



94 IS 



13390000 T 

13391000 T 

13392000 T 

13393000 T 

13394000 T 

13395000 T 

13396000 T 

13397000 T 

13398000 T 

13399000 T 

13400000 T 

13401000 T 

13402000 T 

13403000 T 

13404000 T 

13405000 T 

13406000 T 

13407000 T 

13408000 T 

13408500 T 

13409000 T 

13410000 T 
41 LONG* 



0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
NEXT 



1001112 
1001211 
1001411 
iOOiSta 
IOO16IO 
t00i7»3 
IOO2OIO 
lOOSOl 1 
I0021I3 
1002113 
1002113 
1002410 
1002411 
t0026tl 

I0027»2 
1002913 
IOO3OIO 

10032(0 
1003210 

1003411 
1003611 

toosdii 

SEQ 3 



PROCEDURE 



BEGIN 



END I 



PIJTNBUMP(X); 
VALUE XI 
REAL XI 



INFOfNEXTlNFO.LlNKR.NFXTINFOfLlNKC] 
NFXTINF0*NEXTINF0+1 



X) 



13589000 
13590000 
13591000 
13592000 
13593000 
13594000 
13595000 



00031 
00031 
00031 
00031 
0003J 
00031 
00031 



056313 
056313 
056313 
056313 
056313 
056712 
0567»2 



PROC 
COMME 



IF NO 

BEGIN 

IF 

BE 

EN 



eduRe jumpchkxj 

NT This procedure is called at the start of any executable coof 
WHICH The block might emit.tT determines whether any jumps 
arrouno nonexecutablf Code may be waiting and whether it 
IS The first executable codei 

t spectog then 

ajump 

THFN 
GIN ADJUSTi 

EMITB(BFW,SAVEL'L) 
D fLSF 

IF FlRSTX«4095 

Then 

BEGIN 

ADJUST! 

FIRSTX*LJ 
END> 

aJump*false 



13596000 
13597000 
13598000 
13599000 
13600000 
13601000 
13602000 
13603000 
13604000 
13605000 
13606000 
13607000 
13608000 
13609000 
13610000 
13611000 
13612000 
13613000 
13614000 



00031 
00031 
0003 1 
0003» 
0003( 
0003> 
0003> 
00031 
00031 
00031 
0003t 

00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



056811 
056811 
056611 
056811 
056811 

056811 
056913 
057010 
057010 
057010 
057112 
057210 
057211 
057312 
0573»3 
057410 
057411 
057513 
057513 



fNo> 



13615000 T 0003«0575»3 



PROC 
COMMF 



IF NO 

BEGIN 
IF 



fnd; 



edijRf jumpchknx) 

NT JllMPCHKNX DFlERMlNpS WHFTHER ANY EXECUTABLE CODE HAS BEEN 
EMITTED AND IF SO WHETHpR IT WAS jUST PREVIOUS TO THE 
NON EXECUTABLE ABOUT TO BE EMITTED. IF BOTH THEN L IS BUMPED 
AND SAVED FOR A LATER BRANCH? 

T SPECTOG THEN 

FIRSTX#4095 

thfn 

BFGIM 
IF NOT AJUMP 
THEN 

5aveL*bumpl; 
ajump*truf 
endiaojust 



13616000 
13617000 
13618000 
13619000 
136?0000 
13621000 
1362?000 
13623000 
13624000 
13625000 
13626000 
13627000 
13628000 
13629000 
13630000 
13631000 



00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



057810 
0576t0 
0578J0 
057810 
0S76i0 
057810 
057811 
057912 
057912 
057913 
0560)0 

oseoto 

056011 
0563*2 
058312 
058313 



PROCEDURE SEGMEnTSTARTCSAVFCODE)! VALUE SAVECODE I BOOLEAN SAVECOOFJ 
BEGIN 
STRfAM PROCEDURE PRi NT f SAVECODE. ADR» F I EL ) » VALUE SaVECODEi ADRI 



PRTC705) ■ PRINT 



Lll 



START 



BEGIN 
LABEL l\t 

di«»fiel; dsi»6 liT" «j 

SI««FIELI DSI«9 WdS; Di«*Di-3I 

SAVEC0DE(DSIp38 LiT ^START OF SAVE SEGMENT! BASE ADDRESS m "I 

JUMP OUT TO li)i 
DSJ.38 LIT " START OF REL SEGMENTI DISK ADDRESS » ••» 

SpaLOc ADR« DSJ»5 DfC|. 
END PRiNTj 



13632000 


T 


00031056610 


13632100 


T 


00031056610 


13633000 


T 


00031056610 


SEGMENT 


**«*«*4i4i*4i 93 


13634000 


T 


0095tD000f0 


13635000 


T 


00951000010 


13636000 


T 


0095J0000I0 


13637000 


T 


00951000113 


13638000 


T 


0095t0002t0 


13639000 


T 


0095>0008l0 


13640000 


T 


00951000912 


13641000 


T 


00951001410 


13642000 


T 


0095lOOi4IO 


13643000 


T 


00951001411 



MOVFf liSAVECODF.CODECO))} 

IF SAVECODE AND INTOG AND NOT DfCKTOG THEN FLAGC57)I 

IF LISTER OR SfgSTOG ThEN 

BEGIN 

PRINT(SAVEC0DE,IF SAVECODE THEN CORADR ELSE OlSKADRiLl N[ • 1)1 

IF NOHEADlNG ThEN DATImEI WRITELINEI 

ENDI 

END segmentstart; 



13651000 
13651100 
13652000 
13652500 
13653000 
13653500 
13654000 
13655000 



0095« 
00951 
00951 
0095t 
00951 
00951 
00951 
00951 



00l4«l 
00l9l2 
00221 1 
002410 
002411 
002713 
003912 
003912 



95 IS 40 LONG. NEXT SE6 



PROCEDURE SEGMENT(Si7E^FR)J VaLUE SiZE^FR? INTeGER SiZE»FR» 



13657000 T 0003«0566«0 



begtn 

STRrAM 



PROCrOURF PR|NTf SIZE.FIFLX VALUF SfZE* 



PRTf706J » PRINT 



START 



BEGIN 
OIUFIELJ 



0I««FIELJ DSi«8 LIT" "? 
SpaFlFLI DSJ»14 W0S| 
DU«DI-16l 0St»6 LlT^SlZE" •♦ ; 
Sll»LOc SiZFI dS|«4 DFC^ DS«« 
FN'D PRiNTi 



«6 llT" WORDS" 



13660000 

13661000 

OF SfgMENT 

13663000 
13665000 
13667000 
13668000 
13670000 
13673000 



T 0003tOSS6IO 

T 0003J0586J0 

T 0096t0000i0 

T 00961000010 

T 00961000113 

T 00961000210 

T 00961000312 

T 00961000411 



PRTC707) s nOlT 



STRrAM procfourf doiT(c,a,i ,s,f.W)> Value c.a.f»wi 

BEGIN LOCAL NJ 

ni««Sl 0Sl«8 LiT" "J SpsSj DS»*9 WDSl 

DM«0I»8» SIIpLOC W» DS««4 OFC; 

Sllsll SH.Si+lOlOI »»LOC N> DI»»DI*7l DSlwCHRl 

ni»*si siiwLoc F; sii«si*7i ds«»chr» sn«LOc c; 

DSIB3 DECJ DSI»4 DEClSllalJ Sl J «SI * 1 1 1 OS J*N CHRI 
FND D0|T; 



13673100 T 00961000512 



13673150 
13673200 
13673250 
13673300 
13673350 
13673400 
13673450 



00961 
00961 
0096< 
00961 
00961 
00961 
00961 



000512 
000512 
0007 « 2 
000713 
000912 
OOlOtO 
00ll«3 



WRITELINEI 
LEVEL>1 THEN 



IF LISTfR OR SfgSTOg TheN 

BEGIN 

PRlNT(SlZF.LlNt*])l 

TF NOHEADiNG ThEN DATIME? 

EIMDJ 
IF STUFFTOG ThfN IF FR>0 THFN IF 

BEGIN 

Kl A SSFJ -TAKE (PRO INFO), CLASS I 
IF FR > 1024 Then FR*FR-10?4I 

D0lT(KLASSF»FR»lNF0tpR0lNF0.LlNKR#PR0lNF0.LlNKClf 
TWXAtOl.SAF.SlZF)! 

WRiTE(STUfF»10,TWXA[*])) 

ENDI 
IF SIZF>SE6S1ZEMAX THEN SfGS 1 ZEMAX I «Si ZE* 
END SFGMENTi 



96 IS 



13674000 T 

13674500 T 

13675000 T 

13676000 T 

13677000 T 

13677100 T 

13677150 T 

13677200 T 

13677250 T 

13677300 T 

13677400 T 

13677500 T 

13677600 T 

13678000 T 

13681000 T 
47 LONG* 



0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
0096 
NEXT 



1001210 
t00l3t2 
1001313 
1001512 
1002611 
«0026U 
1002913 
iOOsOtO 
i0032t0 
l0034tl 

1003713 
1003912 
1004312 
1004312 
'004512 
SEG 3 



STREAM PROCEDURE MOVECODE (EDoC • TEDoC ) > 
PRT(7lO) m MOVECODE 

BEGIN LOCAL Tl»T2»T3) 

si*fdoc>ti»si» 

Sl»TE00C»T2*Sl) 
Sl«.LOC EDOCI 
Sl#.Sl4.3» 
DI*L0C T3I 
DI*DI*5) 

Skip 3 dbi 



13683000 T 00031058610 



13684000 
13685000 
13666000 
13687000 
13686000 
13689000 
13690000 
13691000 



0003> 
0003t 
0003> 
0003> 
00031 
00031 
0003> 
0003t 



0586<0 
058610 
056611 

058712 
056712 
056713 
058713 
056810 



iSfiF SB Then os* i spT ^LSr os*i resetiskip i sb)i 

Si* Lot EDOCJ 
01* LOC T?l 
OS* 5 CHRI 

3(ir SB Then ds»i set nsp os*i resetiskip i sb)i 

D!«-T3I 
SULOC T2J 
OS«.WDSl 
Dl*i.OC T3; 

Dunubt 

SKIP 3 OB) 
Sl*LOC TEOOCI 

si*si*3; 
i5(ir SB Then ds«-i set else ds* i reseTjskip i sb)i 

Si* LOC TEDOCI 
DI* LOC Til 
OS* 5 CHRI 
3(TF SB Then 0S«.1 set else DS*1 RESeTISKtP 1 SB)I 
DI*-T3) 
Sl*|,OC Ti» 

DS4.WDS 

ENOI 



13692000 
13693000 
13694000 
13695000 
13696000 
13697000 
13696000 
13699000 
13700000 
13701000 
13702000 
13703000 
1370*000 
13705000 
13706000 
13707000 
13708000 
13709000 
13710000 
13711000 
13712000 
13713000 



00031 
0003» 
00031 
00031 
00031 
OOO3I 
00031 
0003» 
0003> 
0003> 
0003« 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
OOO3I 
00031 

0003> 
00031 



0586*0 
059010 
059011 
05901 1 
059JI2 
059312 
059312 
0593»3 
059313 
059410 
059410 
059411 
0594U 
059512 
059712 
0597«2 
059713 
059713 
059913 
060010 
060010 
060011 



PROCEDURE ENTER(TYPE)I 

Value type» 

REAL TyPEI 



BEGIN 



G*(5TAltJ*J-ni 
IF NOT SPECTOg 
THEN 
BEGIN 

IF NOT P2 

Then if P2*rG«oWNV) 

Then G*-GTAicj*J-n; 

IF NOT P3 

Then if P3*fG»SAVEV) 

THEN G«'GTA1[J*J-13 
END! 
TF r,?«0 THEN FLAGC25) pLSE ENTRY(TyPE) 



end; 



13714000 
13715000 
13716000 
13717000 
13718000 
13719000 
137?0000 
13721000 
13722000 
13723000 
13724000 
13725000 
13726000 
13727000 
13728000 
13729000 
13730000 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



1060011 
1060011 
1060011 
t0600ll 
1060011 
IO6O312 
1060312 
(060313 
1060410 
1060410 
1060512 
1060811 
t0608li 
1061010 
;06l2tl 
1061313 
IO616IO 



PROCEDURE HTTE0AP(G0TST0RAGE» RE LAD, STOPPER. PRTAD)» 
PRT(7il) « hTTeOAP 

VALUE GOTSTORAGE»RfLAD» STOPPER. PRTAOi 
BOOLEAN GOTSTORaGEI 

Real Relad. stopper, prtadi 

BEGIN 

IF FUNCTOg 

Then 

BEGIN 

EM1TVC513)» 



13731000 T 0003l06l7l2 



13732000 
13733000 
13734000 
13735000 
13736000 
13737000 
13738000 
13739000 



0003 
0003 
0003 
OOO3 
0003 
0003 
0003 
0003 



»06l7l2 
»06l7t2 
1061712 
1061712 
1061712 
»06l7l2 

1061712 
«06l7«3 



EMITO(RTn) 
END 
ELSE 

EMlTO(XiT)» 
CONSTANTCLEANl 
PURGF(STOPPER) J 
MO\/E(lfCOOFfO),Z)l PR0GDFScBLDRCPRTAD»B00LEANCZ).a*3)0lV 4.PDFS)I 
ENn HTTEOAPJ 



13740000 T 

13741000 T 

13742000 T 

13743000 T 

13744000 T 

13745000 T 

13746000 T 

13747000 T 



0003» 
00031 
00031 
00031 
00031 
00031 
00031 
00031 



061611 
061811 
06l9«2 

061912 
062011 
062112 
062113 
062610 



PROCEDURE INLINEJ 
BEGIN 
INTeGfR SNltLN.P»l,SiJI BOOLEAN MKSt; 

STACK(F*2) m SN 
STACK(F+3) * LN 
STACK(F+4) m P 
STACK(F+5) » LS 
STACKfF*6) X J 
STACKfF+7) s MKST 

BOOLEAN FLfPFLOPi 
STACKfF4lO) a FLiPFLOP 

INTfGER 
STACKfF+11) » PN 



13748000 

13749000 

13790000 

START OF SEGMENT 



T 0003<0628ll 

T 00031062611 
T 00031062811 



PNI 



LABEL LliL2»L 
PN*i I 

FLIPFL 

IF STEPH«LEF 

IF TaBLF(I+1 

Lll IF STFPI>I0 

ArCUMfO]* 

FMF F 

IF STE 

Then begi 

elSf if e 
afxpi 
l?» if elclas 
bfgin if 

IF 

fPN 
END ELSE 
IF ELCLAS 
IF ELCLAS 
IF NOT MK 
BFGiN 
IF STpPl # 
E 



3> 

0P*1NLINE 
TPAREN TH 
)«COLON T 
MAX THEN 
08Pri6l37 

lipflop T 

PlaCOMMA 
N I*I-2?S 

lclass#as 

SsCOLON T 

MKST Then 

TABLECI*! 
«-2l 

p*p+l> 
s»comma t 
s^Rtparen 
ST Then 

J*-LiL«'LSl 

semicolon 

MIT0C584) 



TOG«-TrUEIP*OIMKST*FALSE)LS«.LJEMITOCNOP)J 
en FLaG(59)| 

HEN begin STEPiTIGO TO L2 END I 
BEGIN FLAG(465)I GO TO L2 END I 
nn«L0cLIDr2l41 j7]iSCRAMr35i35ll3]| 
HEN BfGiN FLIPFL0P*fALSE?LN*SN4.LASTiNF0 

or elclass»colon or ELCLASS«RTPAREN 

TEPIT END 

SiGNOp THEN FLAGC60) elSE STePiTI 



end» 



HEN 
FLAG(99); MKST*TrUEI EMITOCMKS)! 

)#rtpaRen Then go to li» stepit 



HEN GO TO Lll 

Then flag(61)5 



p*p+?> 



EMtTO(MKS)IL*J endi 
Then flag(62)» 



L3«ELRATrn*TAKE(SN)jSCATTERELBATjAD0RSF*P*ADDRSF» 

PuT(FLBATrn«AD0RSF[l6«37»injSTACKHEAD[LINKF]t33l33«l5],SN)l 
5TACKHFAD[L1NKF]*SNJ SN*SN*INCRfJ 

fF addrsf»»pn Then go to L3 i 

INLINETOG* false; 



13750500 T 0097 
13750600 T 0097 



13751000 
13751100 
13752000 
13753000 
13753100 
13754000 
13755000 
13755500 
13756000 
13757000 
13758000 
13759000 
13760000 
13761000 
13761100 
13761110 
13761200 
13762000 
13763000 
13764000 
13765000 
13766000 
13766100 
13766200 
13766300 
13766400 
13766500 
13767000 
13768000 
13769000 
13770000 
13770500 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 
0097 



OOOOtO 

OOOOtO 

OOOOtO 
000010 
000011 
000512 
000712 
OOiOtl 
001313 
001810 
002112 
002313 
0026« 1 
003010 
0030«1 
003113 
003611 
003811 
004010 
004113 
004312 
004512 
0045 > 3 
0049(2 

0051»2 
00&2I0 
005210 
005210 
005210 
005210 
0055*3 
005611 
006112 
0062t0 



STREAMTOG«.TRUElSTRE;AMWOROSnF STeP [''BEG I NV THEN STreAMSTMT 
ELSE BEGIN STEP I T | COmPOUNDTA I L ENDJ 
STREAMT0G*FAlSE»PURGECPN)ISTREAMW0RDSJPURGE(LN)1EMITU(iA)I 



END INLtNEI 



13770600 
13771000 
13772000 
13773000 
13773500 
13774000 



T 00971006312 

T 0097«0063»3 

T 0097«0066«1 

T 0097t006Sll 

T 0097I0072«0 

T 00971007210 



97 IS 76 LONG. NEXT SEG 



COMMENT THIS SpCTlON CONTAINS THE BLOCK ROUTINE i 
PROCEDURE BLOCKrSOP)J 
VALUE SOP> 
BOOLEAN sop; 
COMMENT Sop is true IF THE BLOCK WAS CALLED BY ITSELF 
PROCEDURE DECLARATION-OTHERWISE IT WAS CALLED 
The BLOCK ROUTINE iS RESPONSIBLE TOR HANDLING 
STRUCTUBE OF AN ALGOL PROGRaM-SEGMENT I NG EACH 
ALL DECLARATIONS. DOING NECESSARY BOOKKEEPING 



THROUGH The 
BY STATEMENT, 
THE BLOCK 
BLOCK. HANDLING 
REGARDING EACH 



BLOCK, AND SUPPLYING THE SCANNER WITH ALL NECESSARY INFORMATION 
ABOUT DECLARED IDENTIFIERS, 
IT ALSO WRITES EACH SEGMENT ONTO THE PCT; 
BEGIN 

LABEL ownerr.saverr.booleandec.realDec.alphadec.integerdec. 

labfldec»dumpdec»subdec.ouTdec,inoec.monitordec» 
switchdec.proceduredec.arraydec.nameoec.fileoec. 

GoTSCHK.FTELDDEC.AUXmEMERR* !!112' 

streamerr»defineoec.callstatement.hf.starti 
switch oeclsw * ownfrr.saverr.booleanoec.realdec.integerdec.alphadec. 

labeloec.oumpdec.subdec.outdec. indec.monitoroec. 

SWtTCHDEC.PRoCeDURfDEC'ARRAYDEC.NAMEDEC.FILEDEC. 
STREAMERR»0EFINEDEC.AUXMEMERR»FIELDDECI XI 12' 

DEFINE NLOCSstOi,LOCBEGlN«PRTTl, 
LBP«r36ll2]l. 
SPACEITOQWn « WRlTE(LlNE[PAGE])#i 1:902' 

BOOLEAN GOTSTORAGEI 
STACK(F+2) m GOTSTORAGE 

INTEGER PINFOO.BLKADI 
PINFOO 
BLKAO 

COMMENT LOCAL TO BLOcK To SaVE WHERE A PROCEDURE IS FMTEREO 
IN INFOJ 

REAL maxstacko.lastiNfot.Relad.lo.tsublevel.stackctroj 
maxstacko 



96 



STACK(F+3) 
STACK(F+A) 



14000000 T 0003106261 

14001000 T 0003106281 

14002000 T 0003(06201 

14003000 T 000310626? 

14004000 T 0003106281 

14005000 T 0003106281 

14006000 T 0003106281 

14007000 T 0003106261 

14008000 T 0003106281 

14009000 T 0003i0626t 

14010000 T 0003106281 

14011000 T 0003*06281 

14012000 T 0003I0628J 

14013000 T 0003106281 

START OF SEGMENT ♦***♦*♦♦»♦ 

14014000 T 0098«0000l0 

14013000 T 00961000010 

14016000 P 0098I0000I0 

14017000 T 00981000010 

14018000 T 00961000010 

14019000 T 0098«0002»1 

140?0000 T 0098«0002tl 

140?1000 P 00981000211 

140?2000 T 0098«00l3n 

140?3000 T 00981001313 

14023100 P 00981001313 

14024000 T 0096l00l3t3 

14025000 T 0098t00l3«3 

14026000 T 00981001313 



STACKfF+5) i 
STACKfF;6) , 
STACKfF+7> : 
STACKfF+lO) 
STACKfF+11) 
STACK(F+12) 

STACK(F+13) 
STACKfF+14) 
STACKfF4l5) 
STACKfF+16) 



LASTINFOT 
. RELAO 

a LO 

» TSUBLEVEL 

» STACKCTRO 

INTEGER SGNOO.LOLD.SAVELO.PRTIO.NINFOOI 

« SGNOO 

« LOLD 

s SAVELO 

• PRTIO 



14027000 
14028000 
14029000 



T 00961001313 
T 0096»00l3l3 
T 00961001313 



14030000 T 0098l00l3«3 



STACKfF*l75 > NjNFOO 

TNTeGfR NCIIOJ 
STACKfF+20) s NCIIO 

INTEGER PROAO i 
STACKfF*21) « PROAD 

INTFGFR FIRSTXOI 
STACKfF4-22) a FIRSTXO 

BOOLEAN FUNCTOfiO.AJUMPOJ 
STACKfF+23) « FUNCTOGO 
STACK(F*24) a AJUMPO 

BFGINCTR-BEGINCTR+I; 
IF SOP 

Then begin blkao*proado> 

IF LASTfNTRy # 

Then begin gTi*bumpl> 

constantclean* 

EMITB(BFW»GTl»l) 
END 
END 
ELSE BEGIN 8LKAD I «GETSPACE ( TRUE ^-6) ; % SEG. DESCR, 



ENPI 



FIRSTXO-FIRSTXJ 
FIRSTX^OJ 

level*levfl+ij 

lol,d«.l»functogo*-functogiajumpo*ajumpiprtio*prti>sgnoo*sgno; 

SAVELO«-SAVFLIAJUMP«.FALSEJ L*0l NI NF00»NFXT I NFOl 

NCI io*Ncin 

NCII*0) 
STACKrTRO«.STAcKCTRI 

ELBAT[ii;cLASS<.SEMlCOLONl 
STARTl tF tablet DitSEMlCOLON 
THEN 
BEGIN 

FLAGCOI 
I*I-1 
ENOI 
RTAirO]«.J*0> 
IF SPECTOG 

then 
begin 

IF BUP«PJ 

Then 

BEGIN 

BEGIN LABEL GETLP; 
PRT(7i2) • *SEGMfNT DESfRlPTOR* 



14031000 T 0098t00l3»3 

H032000 T 00981001313 

14033000 T 0098l00l3»3 

14034000 T 00981001313 



IF strfamtog Then f*o else 

F*rZER0l 

BUP«-LASTINF0; 

oo 



START 



14035000 
14036000 
14037000 
14038000 
14039000 
14040000 
14041000 
14042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14046000 
14049000 
14050000 
14051000 
14052000 
14053000 
14054000 
14055000 
14056000 
14057000 
14056000 
14059000 
14061000 
14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
14069000 
14070000 
14071000 
14072000 
14073000 
14074000 
14075000 
14076000 

OF SEGMENT 
14077000 
14078000 
14079000 
14080000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0096t 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00961 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
0098( 
00981 
00981 
009e> 
00981 
0098f 
00981 
00981 
00981 
00981 
00981 
0098t 



001313 
001512 
00l5»2 
001611 
001712 
001913 
OOgOiO 
002112 
0021«3 
002113 
002313 
0023»3 
002313 
002313 
0023«3 
002313 
002313 
002411 

002512 
002611 
003010 
003312 
003410 
0034U 
003513 
003513 
003513 
003610 
003611 
003912 
003913 
004011 
004011 
004113 
004313 
004313 
004J«3 
004410 
004411 
004512 
004513 



*««**»**** 99 
T 00991000010 
T 0099I000U3 
T 0099I0002U 
T 0099I0003»3 



BEGIN 
IF NOT STREAMTOr, THEN 
BUP#-UASTlNrO< 
GETLPI G»TaKE(BUP)| 

if k*g,aodress#pj 

Then 

BEGIN 
IF BLIP * BUPjaBUP- TAKEfBUP + D.PUHPT THEN 

60 TO GETUP 

end; 



TYPrV*G. CLASS? 



PRT(7l3) • *SEGMENT DESCRIPTOR* 



END 
UNTIL 
END* 



G.ADDRESS^F^F+n 
PUTfG.BUP)! G,INCR».GT1I 
PUTf6»MARK4-PJ) 
>BUP«-BUP-TAKE(BUP+1),PURPT 

PJ«-PJ"1S80 



GO 
FND 
ENDI 

STACKCT 



TO 



specTog«-falses 

HF 



Oj 



While 

DO 
BEGIN 
fiTAlC 
STOPD 
ENn) 
IF J »0 ThfN 
P2*P3*FA 
GO TO DE 
OWNERR«FLAGf 

saverr»flag( 

auxmemerrjfl 
streamerri 

DE 



STEPfsDECLARATORS 



J*J+l]*ELBAT[I].ADDRESSj 
EFlNE*rRRORTOG*TRUEJ 

GO TO callstatemfnt; 

lse; 

CLSWCGTA1[J33» 
20)JJ*J+1IG0 TO RfALDECI 
?1J»J*J+IIG0 TO ReAlOEO 
AG(6l8)?JI»J-»-lJG0 To REALDEC? 

IE ELCLASS > UEFTPARfN THEN 
GIN 

I «■ I - I* 

GO TO callstatfment» 



ENDI 



REALDECIP3*T 
ALPHADEr«P3«- 
BOOLEANnEClP 
INTEGERDECIP 
MONI 



FUAG(22}} 

J * J + 1< 

GO TO PROCEOURfOFC? 
RUEIENTeR{REALIO)|GO To START; 
TRUE>ENTER{ALrAlD)lGO TO START! 
3#.TrUE)ENTER(B00ID)IG0 TO STARTi 
3*TRUEIENTERtlNTlD)lG0 TO STARTi 
TOROECIIF SpECTOG 

THEN BEGIN COMMENT ERROR 463 MEANS THAT A MONITOR 

declaration appears in the specification 
Part of a procedure? 

FLAg(463)J 

enoi 

DO UNTIL FALSE* 
nUMPDEC IF SPECTOG 





14081000 T 


00991000410 




H082000 T 


00991000410 




14083000 T 


00^91000411 




14084000 T 


00991000513 




14085000 T 


00991000712 




14086000 T 


00991000811 




14087000 T 


0099l00o9t2 


X102- 


14088000 P 


00991000913 




14089000 T 


00991001211 




14090000 T 


00991001211 




14091000 T 


00991001312 




14115000 T 


00991001411 




14116000 T 


00991001712 




14117000 T 


00991002010 




14118000 T 


00991002011 




14119000 T 


00991002313 




14120000 T 


00991002410 




14121000 T 


00991002513 




99 IS ?7 LONGf 


NEXT SE6 98 




14122000 T 


00981004610 




14123000 T 


00981004611 




14124000 T 


00961004712 




14125000 T 


009810047(2 




14125500 T 


00981004712 




14)26000 T 


00981004610 




14127000 T 


00981004811 




14128000 T 


0096100491) 




14129000 T 


00961004913 




14130000 T 


00961005211 




14131000 T 


00961005313 




14132000 T 


00961005410 




14133000 T 


0098I0055I3 




14134000 T 


00981005611 




14135000 T 


00961005912 




14136000 T 


0096I0061U 


j:ii2- 


14136100 C 


0098I006AI1 


X 6 


14137000 T 


00981006713 


% 6 


14137100 T 


00981006611 


% 6 


14137200 T 


00961006912 


% 6 


14137300 T 


00961007011 


X 6 


14137400 T 


00961007112 


% 6 


14137500 T 


00961007112 


% 6 


14137600 T 


00961007113 


% 6 


14137700 T 


00961007312 




14136000 T 


0096(007313 




14139000 T 


009810076(0 




14140000 T 


00961007610 




14141000 T 


00981008010 




14142000 T 


00981008210 




14143000 T 


00981006210 


N 


14144000 T 


0096t0062U 




14145000 T 


00961006211 




14146000 T 


00961006211 




14147000 T 


00981006313 




14148000 T 


00981006313 




14149000 T 


00961006411 



THEN BEGI^J COMMENT ERROR 464 MEANS A DUMP DECLARATION 

APPEARS IN The Specification part of a 
procfdurei 

FLAG(A6fl); 
ENDf 
DO UNTIL FALSE? 
ARRAYDEC ARRAEJ go TO START) 
FILEDECI INDEC« OUTDFC 

r,OTSCHK:GOTSTORAGE* NOT SPfCTOG OR fiOTSTORAr.EI GO TO STARTI 
NAMEOECJ IF T 1 *gTA i r J*J- 1 l^ARRAyV ThEN J*J*l» 
TYPeV*NAME!DJ 

IF TuGTAitJ»J-n*o Then j*j+i 

ELSE 
IF Ti*0WNV 

Then 

BEGIN 

P2*TRUEI IF SPECTOG THEN 
FLAG(013) 
END 
ELSE 

typev*nameio+ti-realvi 

ENTfR(TYPEV)) GO to STARTI 
SUBOECJ 

BEGIN REAL TYPeViT) 
PRT(7i4) 8 ♦SEGMENT DESCRIPTOR* 

STACKfF+25) « TYPEV 
STACK(F+26) » T 

IF GTAirj*J-l]«REALV THEN TYPeV*REALSUBI D ELSE TYPEV*SUBI0I 
STOPGSP4.TRUEI 

JUMPCHKNXJENTRYCTYPE^)) IF ELCLASS»»SEMI COLON THEN FLAG{57); 

st0pgsp4.falsej 
stfPit; 

t*nextinf0i 

PUTNBUMPfL)* STmTI EM!T0(LFU)| If TYPEVbREALSUBI D ThEN 

IF GETfL»2)^533 THEN FLAGf 58 ) ; PUT( TAKEC T )lLt ?* « 36 1 1 2 J , T) ) 
CONSTANTCLFAN) 
END; 
PRT(7l5) » *SEGMENT DESCRIPTOR* 

GO TO START* 



14150000 
14151000 
14152000 
14153000 
14154000 
14155000 
14156000 
14158000 
14160000 
14161000 
14161010 
14161020 
14161030 
14161040 
14161050 
14161060 
14161070 
14161080 
14161090 
14161100 
14161110 
14161120 
14162000 
14163000 
14163500 

START OF Segment 



14164000 

14164500 

14165000 

14166 

14166000 

14166500 

14167000 

14168000 

14168500 

14169000 

100 IS 21 LONG 
14170000 
14171000 
14172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
14184000 
14165000 



0098 
0098 
0096 
0096 
0098 
0096 
0098 
0096 
0096 
0096 
0096 
0098 
0098 
0096 
0096 
0096 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 
0098 



t0085 
10085 
10085 
t0085 
10086 
t0066 
10067 
10089 
(0069 

10091 
10095 
10096 
10099 
lOlOO 
lOlOl 
•OlOl 
10102 
IO1O3 
10103 
10104 
10104 
10104 
10106 
10107 
lOiOS 



*4i*)|[4i4>*«* 



OlOO 
OlOO 
OlOO 
OlOO 
OlOO 
OlOO 
OlOO 
OlOO 
OlOO 
OlOO 

NEXT 
0098 
0096 
0098 
0096 
0098 
0096 
0098 
0098 
0096 
0098 
0096 
0096 
0098 
0096 
0098 
0098 



10000 
10004 
10005 
10006 
10009 
10009 
lOOlO 
I00i3 
I00i9 
t00l9 

SE6 

10109 

10109 

10109 

10109 

t0l09 

10109 

10109 

10109 

t0l09 

10109 

10109 

I0l09 

10109 

10109 

«0l09 

10109 



2 

3 
3 
3 

1 
1 
3 
2 
2 
2 
2 

2 

2 
3 

2 
3 




I 

3 



00 





1 

2 
1 
2 
3 
1 
2 
2 
3 

98 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

9 

3 

3 

3 

3 

3 



PRTcftd) 



LABFLOFrMF SPECTOfi AND FUncToG THEN FUAG(?4)I 

stopfntry^stopgsp*truej 

DO 

BEGIN 

STOPdfF!NE*TRUEI 
STEPlTl 

FNTRY(LABEtlD)i 
PUTNBUMP(O) 
END 

UNTIL elci..ass#comma; 
stopentry«.stopgSp*falSe* 

GO TO STARTl 
SWiTCHDFCt 
BEGIN 

LABfL STARTl 
♦SEGMENT DESCRIPTOR* 



STACKfF+25) » GTl 

STACKfF + 26) ts GT2 

STACKfF+27) m 6T4 

STACKfF*30) s GT5 

STACKfF+31) s TBI 



tNTFGER GT1,gT2»gT<»,gT5» 



START 



BOOLEAN TBiI 

SToPEmTRY*nOT spectog>stopgsp«-truej 
SCATTERELBAT} gtuoj tbi-falsei 
entrycSwitch!D)j 

GT2*NEXTINF0I PUTNBUMP(0)» 
00 

BrGlN 

IF STEPI^LABELIO OK eLBAT[ i ] , LVL#LEVEL ThEN FLAG(63)J 
PUTNBUMP(ELBATrn)>GTl«.GTl + l 
END 

COMMENT 
UNTIL STEPU»COMMA» 



P|)T(GT1.GT2)> 

stopentry «. stopgsp * falsei 
end switchdeci 

PRT(7l7) > *SEGMfNT descriptor* 

GO to STARTl 
DEFINfOFCI 

BEGtN LABEt STaRTJ 
PRT{7?0) b •SEGMENT DESCRIPTOR* 



H186000 
14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14194000 
14195000 
14196000 
14197000 
14198000 
14199000 
14200000 
14201000 
14202000 

OF SEGMENT 
14203000 



00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
00981 
0098) 
00981 



010913 
010913 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



2t0 
312 
411 
312 
512 
513 
610 
712 
712 
713 
912 



012010 
012011 
012112 
0121»2 



T OlOllOOOOlO 



14204000 T OlOllOOOOlO 



14205000 
14206000 
14207000 
14217000 
14216000 
14219000 
14?S!0000 
14221000 
142?2000 
14222500 
14223000 
14223500 
14224000 
14251000 
14252000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



OlOl 
0101 
0101 
0101 
OlOl 
OlOl 
0101 
OlOi 
OlOl 
OlOl 
OlOl 
OlOl 
OlOl 
OlOl 
OlOl 



1 000010 
1000113 
1000313 
1000411 
1000610 
1000610 
(000610 
lOOlOlO 
1001112 
1001210 
t00i2l0 
1001313 
|00l3l3 
1001411 
1001610 



lOl IS 



17 LONG* 
14253000 T 
14254000 T 
14254050 T 



NEXT SEG 96 
00981012210 
0098I0122>1 
00981012312 



STACKfF+25) • J 
STACKfF+26) » K 

PRT(72l) • PARM 



REAL JtKI 



BOOLEAN STREAM PROCEDURE PARMC Si D.K# J) I VALUE KjJI 
BEGIN SI*S|SI*.SI + 2I D I ••Dl D I ♦D I ♦21 

IF K scfDc Then Tally»ii 
Dialog jidi*oi*7i 

IF SC^DC THEN TaLLY«-1I 



START OF SEGMENT ♦♦♦♦•*♦•♦* 102 
14254100 T 01021000010 



14254200 T 0l02t0000l0 



14254300 
14254400 
14254500 
14254600 



T 01021000010 

T 01021000112 

T 01021000210 

T 01021000211 



paRm«.tally; 



ENDS 



14?54700 
14254800 



T 01021000312 
T Ol02«0003l3 



STOPENTRY*STOPGSP*TRUEl I*|-i; 

DFFINING IB BOOUEANfREAUCOrFlNING) & It47t47tl])» X106- 

DO 

bfgin 

stopdffine*truei 

STePiTj M0VE(9.ACCUMrn»GTAni 
K»COUNT*i; J*GTAlr0l| eNTRyCDEFINEOID)! 

GTAirOi*.j+»'tooooo'»i j*o; 

IF elclass.leftparen or elclassblftbrket then 

BEGIN 

DO BEGIN ST0PDEFINE*TrUe; 

STEPlTj 

IF (J«-J4.1)>9 OR PARMCACCUMtl ].GTAl»Kf J) OR 

K>62 THEN BEGIN ERR(141); GO TO START ENDI 

ST0PDEFINE*TRUE» 
END UNTIL STeP!#COMMA) 

IF ELCLASS^RTPAREN ANn ELCLaSSi«RTBRKeT then ERR(14nj 
STOPDEFlNE*TRUn 

steptti 

PUT(TAKE(LASTlNF0)&Jtl6l37lin,UASTlNF0)l 
ENPJ 
IF ELCUASS#RELOP 
THEN 

BEGIN 

FLAGf 30); 
I*I-1» 
ENot 
MACROln*TRUEI 
DEFlNERENfFALSE»J)J 
MACROin*FAUSEI 
END 
UNTIL STEPl'tCOMMAI 

DEFINING l« BOOLEANfREAU(DFFlNlNG) & 0r47l47ll])l Xl08« 

STARTI ST0PENTRY*ST0PGSP*-FALSEI END) GO TO START] 
PRT(722) » ♦SEGMENT DESCRIPTOR* 



14255000 
14255500 
14256000 
14257000 
14258000 
14259000 
14259010 
14259015 
14259020 
14259030 
14259060 
14259070 
14259080 
14259090 
14259100 
14259110 
14259120 
14259130 
14259140 
14259150 
14259160 
14260000 
14261000 
14262000 
14263000 
14264000 
14265000 
14265900 
14266000 
14266100 
14267000 
14269000 
14268500 
14269000 



T 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
T 



01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
0l02» 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
0l02t 
01021 
01021 
Oi02l 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
01021 
0l02t 



000411 
000713 
000912 
OOlOlO 
OOlOlO 
OOiOll 
001312 
001610 
OOldll 
002010 
00201 1 
002113 
002210 
002611 
0031<2 
0031)3 
003312 
003610 
003712 
0037»3 
004010 
004010 
004010 
004011 
004112 
004210 
004312 
004312 
004410 
004512 
004513 
004513 
004712 
004912 
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96 



FIELDOErl 
BEGIN 

Real saveinfo. s8» nbi 

PRTC723) P ♦SEGMENT DESCRIPTOR* 



i;ii2- 

X112" 
XU2' 



14269020 
14269040 
14269060 



T 0098I0124U 

C 00981012411 

C 00981012512 

C 00981012512 



STACK<r+25) m SAVEINFO 
STACKfr+26) « SB 
STACKfF4.27) ■ NB 

BOOLEAN FoUnDlB; % TRUE IF lEF"T-BRACKET WAS USED IN FIELD SpEC,«112. 
STACK(F+30) K FOUNDLB 

LABEL EXIT. SAVEITI X112. 

STOPENTRY 1« STOPGSP I« TRUEl «112' 

I »« ? - 1» X112' 

DO 1112. 



START Of Segment ♦*♦♦♦»•♦♦♦ 103 



14269080 C O1O3IOOOOIO 



14269100 
14269120 
14269140 
14269160 



c 01031000010 

C 01031000010 

C 01031000112 

c 01031000211 



BFGIN 

STOPDEFiNE lit TRUEI 
STEPITI 

fNTRYCriELDiD)! 
SAVFINFO U LASTINrO; 

IF FLCUASS » RELOP AND ACCUMtl] « "isOOOO" THEN 
BEGIN 

IF STEPI « LFTbRKfT THEN % REMEMBER THIS 
BEGIN 

FOUNDLB «» TRUEl 
STrPlTl 

END 
ELSE 

FOUNDtB «« FALSrI 
IF ELCLASS » FIELDID THEN 
BEGIN 

SB l« ELBATt IlfSBlTrl 
NB t« ELBATtn.NBITrl 

GO TO saveit; 

ENOJ 
IF ELCLASS « UlTNO THEN 
IF STePI * COLON THEN 
IF STePI « LITNO ThfN 

IF (SB l« ELBATt 1-23. ADDRESS) x 

(NB !• rLBATtll. ADDRESS) # AND 
SB ♦ NB < 48 THEN 
BEGIN 

saveiti 

PUT(TAKE(SAVElNFO) & SB SBlTF & NB NBlTF, 

SAVEINfO)! 
STEPiT; 

IF FOUNdLB THfN % BETTER HAVE RIGHT BRACKET. 
IF ELcLaSS » RTBRKET THEN 
BEGIN 
STEPITI 
GO TO EXIT» 
END 
EL.SE % MISSING RIGHT BRACKET. 
ELSE 

GO TO EXITI 
ENDI 

END) 
FLAGCIU); 

DO STEPiT UNTiU ELCLASS « COMMA OR ELCLASS * SEMICOLON! 
EXiTi 
END 
UNTtL 

ELCLASS * COMMAI 
STOPENTRY t* STOPGSP (• FALSE* 
ENDI 
PRT(7?4) s *SE6MFNT DESCRIPTOR* 

60 TO START; 
PROCEDUREOECI 
BEGIN 

LabfL staRT.staRtii 

P«T(725) « *SEGMfNT DESCRIPTOR* 



% 


112- 


14269180 C 


010310003 


(2 


% 


112- 


14269200 C 


010310003 


12 


% 


112- 


14269220 C 


010310003 


(3 


% 


112- 


14269240 C 


010310004 


(0 


% 


112- 


14269260 C 


010310005 


n 


% 


112- 


14269280 C 


010310005 


13 


% 


112- 


14269300 C 


010310007 


(3 


% 


112- 


14269320 C 


oi03>oooe 


10 


% 


112- 


14269340 C 


010310009 


12 


% 


112- 


14269360 C 


010310009 


13 


% 


112- 


14269380 C 


0l03»00l0 


11 


%] 


112- 


14269400 C 


010310011 


12 


% 


112- 


14269420 C 


010310011 


12 


XI 


112- 


14269440 c 


010310011 


12 


X1 


112- 


14269442 C 


0103100131 


3 


X 


112- 


14269444 C 


0l03t00i4) 


11 


S] 


112- 


14269446 C 


0l03l00l5l 


2 


X] 


112- 


14269448 C 


010310016 


11 


XI 


112- 


14269450 C 


0l03t00lBi 





X! 


112- 


14269452 C 


0l03i00i8i 


1 


Xl 


112- 


14269460 C 


0103100181 


1 


XI 


112- 


14269480 C 


0l03t00i9J 


2 


Xl 


12- 


14269500 C 


010310020) 


1 


XI 


112- 


14269520 C 


0l03t0022l 





XI 


[12- 


14269540 C 


0103100241 


1 


XI 


112- 


14269560 C 


0103100271 


2 


X] 


112- 


14269580 C 


O1O31OO2B) 


I 


X] 


112- 


14269590 C 


0103100291 


2 


XI 


112- 


14269600 C 


0103100291 


2 


XI 


112- 


14269620 C 


0103100321 





X] 


112- 


14269640 C 


0103(00321 


1 


XI 


12- 


14269660 C 


0103100331 


2 


XI 


12- 


14269680 C 


0lO3i0033l 


2 


Xl 


112- 


14269700 c 


O1O31OO341 


1 


XI 


12- 


14269705 C 


0103100351 


2 


XI 


12- 


14269710 C 


O1O31OO351 


3 


XI 


112- 


14269715 C 


0103100361 





X] 


12- 


14269720 C 


0103(00361 





XI 


12- 


14269740 C 


Ol03<00361 





XI 


12- 


14269760 C 


O1O3IOO36I 


1 


XI 


12- 


14269780 C 


O1O3IOO36I 


I 


X] 


12- 


14269800 c 


Ol03t0036< 


1 


X] 


[12- 


14269820 C 


0103100361 


1 


X] 


12- 


14269840 C 


0103100371 


2 


XI 


12- 


14269860 c 


O1O31OO4OI 


1 


X] 


112- 


14269880 C 


0103100411 


2 


X] 


12- 


14269900 c 


0103100411 


2 


XI 


12- 


14269920 C 


Ol03t0041l 


2 


XI 


12- 


14269940 C 


0103100421 





X] 


12- 


14269960 c 


Ol03t0043l 


3 




103 


IS 44 LONG* 


NEXT SE6 


98 


X112- 


14269980 C 


0098101261 









14270000 T 


0098(01261 


1 






14271000 T 


0098(01271 


2 






14272000 T 


0098(01271 


2 



LABEL START2J 
BOOLEAN FWDTOGI COMMENT THIS TOGGLE IS THE FORWARD DEC TNDICATORI 
STACKfF+25) ■ FWDTOG 

IF NOT SPECTOG THEN FUnCT0G*FALSE > 
FWDToG*FALSE ; 

maxstacko* maxstack; 

IF g*gtai t J«-J-1 ]»STREAMV 
Then 

BFfilN STReAMTOG*TRUej 

IF G*GTaUJ*J'1]«0 thfn TYPeV*STRPROCIO 

FLSE 
BrGiN 
IF TYPfV»PROCIO +G>lNTSTRPROCin OR 
TYPeV <B00STRPR0CID 

Then flag(004)i 
IF NOT spectog Then 
functog*truei 
chksob 

end end 

ELSE 

IF g»savev or gsO then t yPfv*-proc I d 
flsf 

IF TYPEV*REALSTRPR0rlD+G<B00PROCID OR TYPEV> I NTPROC T D 
THEN FLAG(005) 
FLSe BEGIN FUNCT0G«-TRUEl6*GTAl[J*J-nJ 
END! 
IF NOT STREAMTOG THEN SEGMENTSTART( GpSAVEV) I 
SAF •• GkSAVEVi 



mode*mooe+i> 
l0«-projnfoj 
rcatterflbatj 
comment check to sff if declared forward previously i 

IF LFVFLF-LFVfL 

thfn 

BEGIN 

IF G#-TAKECLlNKF+l)iO 

THEN FLAGC006)> 
FWDT0G*TRUE> 

xmarkfdeclref)! i procedure declared forward, mark last illo- 

% xref entry as a declaration, %\\0' 

proad*addrsf; 

PROTNrO*ELBAT[i3)MARK*LlNKF+lNCRF»STEPlT 
iPUT(..6.LlNKF + ni 

fnd 

ELSE 

BEGIN SToPENTRY#.TRUe; P2*TRUe* 
ST0PGSP»LEVEL>1 AND STREAMTOGI 
ENTRY (TYPeV); MaRK«-NEXT jNeO IPUTNBUMP (0 ) I 
STOPrSPt-rAi Sf*! 
PR0iNF0*TAKF(LASTiNFO)S LASTlNF0t35l35ll3JJPR0A0*A0DRSFI 

p?*stopentry*false 
fndi 

PJ*0| LEVEL*LEVEL+il 



START 



OF SEGMENT 


^^^,^^,mwl***1^* 


104 


14?73000 


T 


104«0000 


(0 


I4?7ft000 


T 


104*0000 


(0 


14275000 


T 


10410000 


(0 


14276000 


T 


10410001 


13 


14277000 


T 


104(0002 


11 


14278000 


T 


104(0003 


12 


14279000 


T 


104>0005 


(2 


14260000 


T 


104(0005 


(3 


14281000 


T 


104(0007 


12 


14282000 


T 


104(0010 


(0 


14283000 


T 


104(0010 


«l 


14284000 


T 


|04(00il 


12 


14285000 


T 


I04l00i3 


(2 


14286000 


T 


l04(00i3 


12 


14287000 


T 


l04(00i5 


12 


14288000 


T 


I04(00l5 


13 


14289000 


T 


I04(00l7 


12 


14290000 


T 


104(0017 


12 


14291000 


T 


I04(00l7 


13 


14292000 


T 0] 


I04t00l7l 


13 


14293000 


T 


104(0020 


11 


14294000 


T 


104(0021 


12 


14295000 


T 0! 


[04(0023 


t3 


14296000 


T 


[04(0025 


12 


14297000 


T 


104(0028 


'1 


14298000 


T 0] 


[04(0028 


11 


14299000 


T 0] 


[04(0031t 


12 


14300000 


T 01 


[04(0032 


10 


14301000 


T 


[04(0032 


10 


14302000 


T 


[04(0032< 


10 


14303000 


T 01 


[04(00321 





14304000 


T 0] 


04(00331 


13 


14305000 


T 01 


[04(00341 





14306000 


T 03 


[04(00341 


1 


14307000 


T 


[04(0034^ 


( 1 


14308000 


T Oi 


[04(00351 


2 


14309000 


T 01 


[04(00351 


3 


14310000 


T 01 


[04100361 





14311000 


T 01 


104(00371 


3 


14312000 


T 01 


[04(00391 


3 


14312100 


C 0] 


[04(00401 





14312101 


C 01 


04(00441 


I 


14313000 


T 0] 


[04(00441 


1 


14314000 


T 0] 


[04(00451 


2 


14315000 


T 01 


[04(00471 


3 


14316000 


T 01 


[04100491 


3 


14317000 


T 01 


[04(00491 


3 


14318000 


T 01 


04(0049( 


J 


14318500 


T 01 


[04(00511 


3 


14319000 


T 01 


[04t0053( 


•| 


14319500 


T 01 


04(0055( 




14320000 


T 01 


04100561 




14321000 


T 01 


04* 0059 ( 




14322000 


T 01 


04(0059( 




14323000 


T 01 


04I0060( 





IF 

IF 
COMMFNTj 



LA 



IF STRFAMTOG THEN STRfAMWORDS* 
FLCLASS»SfMICOLON THFN go to STARTll 

FLCLASS#LEFTPAREN THEN FLA6f007)> 

STATEMENTS FOOL ThE 
ENTRIES In the ZERO 



EN 
IF F 



the following 8 

formal parameter 
rri*nextinfoi 
stinf0t*last1nf0; 

putnbump(0)j 

PT0G*TRUEJ l*-l*li 
TRY(SeCRET)| 

wdtog Then 

BFGIN 

IF GTll»TAKE(MARK),t40l83 
% NUMBER OF PARAMETERS, 

END 



SCANNER AND BLOCK. PUTT I N6 

ROW OF info; 



LASTINF0*NEXTINF0*1I 



# PJ Then FLAG(46)i I WRONG 

WE don«t want to clobber info. 



ELSE 

PUT{Pj,MARK)l 
P*PJ| 
IF fLCLASS)»RTPAREN 

Then fla6(008)» 
IF steph'semicolon 

THEN FLA6t0093J 
COMMENT MARK PARAMfTeRS VALUE IF ThfRE IS A VALUE PARTI 
IF STEP?»VALUEV 

Then 

BEGIN 
DO 

IF STEPI^SECRET 

Then flag(Oio) 

ELSE 

BEGIN 

IF G*ELBATtl],ADORESS*0 OR G>PJ 
THEN 

FLAGfOlO)? 

G*TAKe(ELBATCI])J 
PUT(G&ltl0l47in.ELBAT[n) 
END 
UNTIL 

stepi^commaj 

IF ELCLASSi«ScMicOLON 
then FLAGtOin 

fLSF stepit 

ENDI I*I-U 
IF STRFAMTOG 
THEN 
BEGIN 

BUP«.PJI SPfCT0G*TRUE'60 TO STARTl 
END 
FLSF 
BEGIN 

SPECTOG«-TRUE* 
BUPfOI 

if elclass#declarators 
Then flagcOiz) 
rNoi 

STaRTiPt0g*FALSe;LASTiNf0*L.ASTINF0T|NEXTINF0*1F FWDTOG THEN RRl eLSF 
MARK+PJ*ll 



143P4000 
14325000 

143?6000 
14327000 
14328000 
14329000 
14330000 
14331000 
14332000 
14333000 
14333100 
14333200 
14333300 
14333400 
14333500 
14333600 
14334000 
14335000 
14336000 
14337000 
14338000 
14339000 
14340000 
14341000 
14342000 
14343000 
14344000 
14345000 
14346000 
14347000 
14348000 
14349000 
14350000 
14351000 
14352000 
14353000 
14354000 
14355000 
14356000 
14357000 
14358000 
14359000 
14360000 
14361000 
14362000 
14363000 
14364000 
14365000 
14366000 
14367000 
14368000 
14369000 
14370000 
14371000 
14372000 
14373000 
14374000 



1041 
IO4I 

104( 
lQ4i 
1041 
104> 
l04t 
1041 
1041 
l04t 
1041 
1041 
1041 
1041 
1041 
l04i 
l04t 
1041 
I04t 
1041 
1041 
104» 
IO41 
l04t 
104> 
l04t 
IO4I 
1041 
1041 
1041 
1041 
1041 
1041 
1041 
l04t 
1041 
l04t 
1041 
1041 
104 1 
1041 
IO4I 
1041 
1041 
1041 
104< 
104 1 
l04t 
IO4I 
1041 
I04t 
1041 
I04t 
I04t 
1041 
1041 
1041 



0062 
0064 

0065 
0067 
0067 
0067 
0068 
0070 
0070 
0072 
0073 
0073 
0074 
0077 
0077 
0077 
0077 
0079 
0080 
0060 
0082 
0082 
0084 
0084 
0084 
0085 
0085 
0066 
0086 
0067 
0068 
0088 
0091 
0091 
0093 
0094 
0096 
0096 
0096 
0098 
0098 
0099 
0100 
0102 
0102 
0102 
0103 
O1O5 
0105 
0105 
0105 
0106 
0107 
0107 
0108 
0109 
0113 



STARTHPINF004.NEXTTNF0I 
START2I ENDI 
PRT(7?6) » ♦SEGMENT OFScRiPTOR* 

IF SPrCTOG OR STREAMTOG 
THEN 

GO TO START! 
COMMENT IF SPeCTOq iS ON TheN ThE BLOcK WILL PROCESS THE SPECIFICATION 
PART SIMILARY To DECLARATIONS WITh A FEW NECESSARY VARIATIONS! 
HF» 

BEGIN 

LABEL START»STOPl 
PRT(7?7) m *SEGMrNT DESCRIPTOR* 

DEFINE TESTLEV « LEVEL>2 *t 
IF STrEAMToG 
THEN BEGIN 
IF TESTLEV THEN jUMPtHKNX ELSE SEGMENTSTART( TRUE) I P J*PI 

PTOG*FALSE> 
PUT(TAKE(GIT(PR01NFO))»LC?8»36H2],GIT(PROINFO))> 
IF TESTLEV THEN BEGIN EMlT0(58ft)l ENQI 

IF stePi«bcginv 

THEN 

BEGIN 

WHILE STePtsDECLARATORS OR ELCLASS«LOCALV 
DO 
B r r T pu 

IF ELBATrn.ADDRESS-LABELV 

Then 

BEGIN 

stopdefine*stopgsp*stopentry«-truei 

DO begin STOPDFFlNE*TRUE!STFP!TJENTRYcSTLABlD)lPUTNBUMPf 0) END UNTI 
ELCLA5S#c0MMA|ST0PGSP*ST0PeNTRY*FALSe 

END 
ELSE 
BEGIN 

I*U1) 
ENTRYfLOCLiD) 
END 
END! 
IF FUNCTOG THEN 

PUT (( Z*T AKE ( PRO I NFO))gLOCL 10 [2141173 i 

( pj4.2 + re al( testlev)) 1161 37 1 11 j.proinf 0)1 
compounoTail 

END 

ELSE 
BFGIN 

IF FUNCTOG THEN 

PUT(( Z*TAKE(PR0INF0))4 LOCLI Dt 21 41 1 7U 

(Pj*2+REAL(TESTLEV))C16l37lin,PR0lNF0)j 
STREAMSTMTl 
ENOI 
COMMENT THE FOLLOWING BLOcK CONSTITUTES THE STREAM PROCEDURE PURGEI 
BFGIN 

Real nlociNLabi 

PRT(730) 9 ♦SEGMfNT OEScRiPTOR* 
STACKfF*25) « NLOC 



14375000 T 
14376000 T 



0l04l0l}4 
0l04l0ii5 



104 IS 117 LONG. NEXT SEG 



14377000 T 

14378000 T 

14379000 T 

14380000 T 

14381000 T 

14382000 T 

14383000 T 

14384000 T 

START OF SEGMENT 

14384100 T 
14385000 T 
14386000 T 
14387000 T 
14388000 T 
14388100 T 
14389000 T 
14393000 T 
14394000 T 
14395000 T 
14396000 T 
14397000 T 
14398000 T 
14399000 T 
14400000 T 
14401000 T 
14402000 T 
14403000 T 
14404000 T 
14405000 T 
14406000 T 
14407000 T 
14408000 T 
14409000 T 
14410000 T 
14411000 T 
14411100 T 
14411200 T 
14411300 T 
14412000 T 
14413000 T 
14414000 T 
14415000 T 
14415100 T 
14415200 T 
14415300 T 
14415400 T 
14415500 T 
14416000 T 
14417000 T 
14418000 T 



009810126 
009610128 
009610126 
009610129 
009810129 
009810129 
0098t0i30 
009810130 

OlOSlOOOO 
OlOSlOOOO 
0105)0000 
OlOSlOOOO 
010510004 
010510005 

oiostoooe 

OlOSlOOlO 

0105I0011 
oiosrooii 
010510012 

Ol05»00l4 

0105I0015 

010510015 
010510016 
OlOSlOOlf 
0l05t00l7 
010510019 
010510022 
0105(0024 
010510025 
010510025 
010510025 
010510027 
010510027 
010510027 
010510026 
010510026 
010510031 
010510034 
010510034 
010510035 
Ol05t0095 
010510035 
010510035 
010510036 

010510041 
010510042 
010540042 
010510042 
010510042 



I 
3 

96 





1 

3 

3 

3 





05 







1 

I 

2 

1 

1 

2 

3 





3 

3 

1 

2 

3 

2 

I 



2 

2 

3 

2 

2 

3 



1 

3 

1 

I 

2 

2 

3 

3 

1 

3 
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STACKfr*26) • NL.AB 

DFFINE SES«l8#,SED»6#.TRW.5lj 

DEFINE LOC»[ 36 »1?]#»lASTGT.[ 2a M23«« 
J* LASTiNFOJ 

NLOC*NUAB*Ol 

DO 

BEGIN 

IF(GT1*TAKE?J)).CLASS*L0CUID THEN 

BEGIN 

IF BOOUEANCGTl. FORMAL) THEN 
BEGIN 

IF GTi<o Then 

PllT(TAKE<GT2*MARK + P-GTl,A0DRCSS*l)«;FaEIDC2lftll7] 
»GT2)I 

END 
ELSE NL0C*NL0C<,1| 
FND 
FISE 

BEGIN 

IF r,Tl ,ADDReSS#0 THEN NLAB«-NLAB+1 > 

TFfGT3»TAKE(6lT(vl))).LASTGT#0 AND GTS.UOC aO THEN 

BEGIN 

M0VEf9»lNF0[0,J],ACCUM[0]); 

04-ACCUHri]l 

FLA6(26r)) 

errortog*truej 

ENDi 

END! 
XREFDUMP(J)I X DUMP XReF INFO IllO- 

G«-CGT?*TAKE(J+1)).PURPT» 
IF GTI, 12183 # STLABIDX2-H THEN 

STACKHEADt(0«GT?tl2M2«36J)M00 1 25 ]*TAKEf J) , Ll NKI 
END UNTIL J*J-G^1I 

IF testlev Then begin emitcci.o); emitocbfw) end 

ELSE EMIT(0)I 
PUTcTAKF(MARK)&NL0ctl»«2'6l&Lrl6«36n2]&Pt40M0l8]»MARK)J 

IF FUNcTOG Then 

put(z. pr0inf0)j 
streamwordsi 
streamtog*false» 

IF NOT TeSTLev THEN BEGIN PROgOESCBLDR (PROAD , TRUE. (L + 3)D I V 4»ChAR)I 

Segment ({L+3)D IV 4,proinfo,aoorcss)i 

RIGHT(L)I L*0J 
ENol 
IF LISTER AND FORmAToG THEN SPACEITDOWNI 
ENDI 
PRT(731) . ♦SEGMENT DESCRIPTOR* 

lastinfo*lastinfoTinextinfo»mark*p+ij 

END 
ELSE 

bfgin 
IF stepi«forwaRdv 

THEN 
BEGIN 

XREFtT(PR0INF0.0.F0RWARDREF)< % WE NEED THIS SO WE CAN FIND 
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14419000 
14«?0000 
14421000 
14422000 
14423000 
14424000 
14425000 
14426000 
14427000 
14428000 
14429000 
14430000 
14431000 
14432000 
14433000 
14434000 
14435000 
14436000 
14437000 
14438000 
14439000 
14440000 
14441000 
14442000 
14443000 
14444000 
14445000 
14445100 
14446000 
14447000 
14448000 
14449000 
14450000 
14451000 
14451100 
14451200 
14452000 
14457000 
14460000 
14461000 
14461100 
14461200 
14461300 
14461400 
14461500 
14462000 

67 LONG 
14463000 
14464000 
14465000 
14466000 
14467000 
1446B000 
14469000 
14469100 



0l06« 
0l06t 
Ol06f 
01061 
0l06t 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
0l06< 
01061 
01061 
01061 
01061 
01061 
0l06t 
0l06t 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
0l06r 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 
01061 



0000 
0000 
0000 
0000 
0002 
0002 
0002 
0004 
0004 
0005 
0006 
0006 
OOll 
0012 
0012 
0014 
0014 
0014 
0014 
00l7 
0021 
0022 
0024 
0025 
0026 
0027 
00S7 
0027 
0029 
0032 
0034 
0038 
0040 
0040 
0043 
0045 
0049 
0049 
0051 
0051 
0052 
00S6 
0058 
0060 
0060 
0066 



NEXT 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 



SE6 

10043 

10045 

i0045 

10045 

10046 

1OO46 

10047 

10047 



3 


1 
3 






1 

3 
3 



1 

3 

1 
2 
2 

2 

2 





I 

I 
1 

3 
2 

3 
3 
2 
3 

I 


1 





OS 

2 

3 

3 

3 



1 

2 

3 



X THE FORWARD OECL. DURING XREF 
PUTf-TAKE(G*PROiNFO.LINK+l )»G); 

PURGE(P|NFOO)l 
STEPiT 

END 
ELSE 
RFGIN 
PROAnO«-PROAD» 

tsubUfvel*subuevfi»sublevel*level >stackctro«.stackctri 

IF M00E»1 THEN FRSTIEVEL*Lf VELl STACKCTR*5l 3+REAL(FUNCT0G ) I 

if elclass « beginv then 
Begin 

CALLINF0*(CAlL.X«.CALLX + 1) + 1J 

nestctr^stackctri 

BLOCK(TrUE) 
I PURGE(PINFOO)| 

IF nestog Then 

BEGIN GT1*.TAKE( PRO INFO), address I 

NESTPRTrGTl]«.0iPRQlNFO[35l35«13UCAUUINF0t22l35ll3J» 
CALLtCALLlNF0'n*-CTAKE(GlT(PR0lNF0)) + NESTCTR-5in4 
CALLX[2?l35ll3]; 

end; 

LoOl 

GO TO STOP EMDI 
BEGIN 



FUAG{052)> 

STMTl 



RELAD^L » 



PRT(732) 



HTTEOaP(FAL.SE,RfL.AD#PINFOO»PROAD)I 
ENDI 
STOPi 

suplfvel^tsubLeveI-; 
stackctr«.stackctro> 

tF LISTER AND FORMATOG ThEN SPACt 1 TDOWNJ 
EN0» 
END J 
PR01NF0*L0J 

IF jumpctr«level 

THEN 

jumpctr*levfl»i; 
level.-level-1i 

MGDE*MOdE"U 

maxstack*-maxstackoi 
startiendi 

♦SEGMfNT DESrRlPTOR* 

GO TO STaRTI 

caulstaTementi fouled * It 

JUMPCHKXMF sop then begin Z*STACKCTR-513IWHILE Z*Z-1S0 

do EMlTLfO) end; 

IF spccTOG Then begin 

FLAGM2)»G0 TO HF 

eNdj 
beginctr «• beginctr-ii 

IF ERRORTOg 

THEN COMPOUNDTaIL 
ELSE 
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H«69l0l 
14470000 
14471000 
14472000 
14473000 
14474000 
14475000 
14476000 
14477000 
14476000 
14479000 
14481000 
14481100 
14481200 
14482000 
14483000 
14483100 
14483200 
14483300 
14483400 
14483500 
14483600 
14483700 
14464000 
14465000 
14486000 
14487000 
14488000 
14489000 
14490000 
14491000 
14492000 
14493000 
14493500 
14494000 
14495000 
14496000 
14497000 
14498000 
14499000 
14500000 
14501000 
14502000 
14503000 

101 LONG 
14504000 
14505000 
14506000 
14506500 
14507000 
14508000 
14509000 
14510000 
14511000 
14512000 
14513000 



01051 
0l05» 
01051 
01051 
0105J 
01051 
01051 
0105» 
01051 
01051 
01051 
01051 
01051 
01051 
OlOSt 
0l05t 
01051 
01051 
OlOSl 
0105» 
01051 
OlOSI 
01051 
01051 
OlOSt 
01051 
OlOSt 
OlOSI 
01051 
01051 
01051 
0105J 
01051 
Oi05< 
OlOSI 
0l05« 
OlOSI 
OlOSI 
OlOSI 
OlOSI 
OlOSf 
OlOSI 
OlOSI 
OlOSI 



0050 

0050 
0053 
0054 
0054 
0054 
0054 
0055 
0055 
0058 
0061 
0062 
0062 
0064 
006S 
006S 
0067 
0067 
0070 
0073 
0079 
0060 
0080 
0081 
0082 
0082 
0082 
0083 
0064 
0085 
0065 
0086 
0066 
0067 
0093 
0093 
0093 
0094 
0094 
0094 
0096 
0097 
0099 
0099 



NEXT SEG 
009810131 
009610131 
009610132 
009810137 
009810139 
009610140 
009610141 
009810141 
009610142 
009810142 
009610143 






2 



I 
1 
2 
3 

2 

1 
1 
3 
3 
2 
3 

3 
2 
I 
I 
3 


1 
3 

3 
3 

1 
3 
2 
2 
2 


I 
1 
3 
2 
3 

96 

2 

3 

1 

2 

3 



3 

3 

I 
1 
3 



BEGIN 
STMT! 
IF ELCL.ASS*TABl.E(l*l)»DECLARATORS 

Then 

BEGIN 

EtBATrl],CLASS*-SEMlcOLON; 
BEGlNcTR*BEGlNCTR*ll 
GO TO START 
END 
ELSE 

COMPOUNnTAlU 
ENDI 

functog*functogoi 

if sop then htteoapffalse.ftrstx,ninfoo»blka0) 

FlSF BEGIN IF NESTOG ThEN SORTNESTI PURGE (N INFOO ) I END; 
SEfiMFNTf (U+3)0lV fl,PROADO)l 

IF lfvel>i Then Rightcl)* 
IF l.rVEL * LEVeL-1 w thfn constantcueani 

ajump*ajumpo) 

EiRSTXi-FlRSTXO; 

savfl*savelo> 
stackctr*stackctro» 



END BLOcKl 
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14514000 T 
14515000 T 
14516000 T 
14517000 T 
14518000 T 
14519000 T 
14520000 T 
14521000 T 
14522000 T 
14523000 T 
14524000 T 
14525000 T 
14599000 T 
14600000 T 
14601000 T 
14602000 T 
14603000 T 
14604000 T 
14605000 T 
14606000 T 
14607000 T 
14608000 T 
14609000 T 
14610000 T 
14611000 T 
14612000 T 
14613000 T 
176 LONG* 



0098101 
0098101 
0098(01 
0098101 
0098101 
0098101 
0098101 
0098101 
0098101 
0098101 
009810} 
0098101 
0098101 
0096101 
0098101 
0098101 
0098t0l 
0098101 
0096t0l 
0098101 
0098)01 
0098:01 
0098101 
0098t0l 
0098101 
0098101 
0098101 
NEXT SEG 



4410 
4411 
4512 
4611 
47»2 
4713 
50t0 
51«3 
5210 
52(0 
5210 
52U 
5312 
5313 
5513 
59«2 
6112 
6312 
65 1 3 

6513 
6611 
66>1 
6712 
6810 
6811 
6811 
6811 



COMMENT THIS SfCTiON CONTAINS THE VARIABLE ROUTINE AND ITS SIOEKICKSI 



15000000 
15001000 
15002000 
15003000 
15004000 
15005000 
15006000 
15007000 
15008000 
15009000 
15012000 
15013000 
15014000 
15015000 
15016000 
15017000 
ISO18OOO 
15019000 
15020000 
15021000 
15022000 
15023000 
15024000 
15025000 
15026000 



00031 
00031 
00031 
OOO31 
00031 
0003* 
0003< 
0003< 
0003* 
0003? 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
00031 
OOOII 
00031 
00031 
00031 



06281 
06281 
0628) 
06281 
06281 

0626) 
06281 
0628) 
0628) 
0626) 
0628) 
0626) 
0626) 
0628J 
0626) 
0628) 
06281 
0628) 
0628) 
06281 
06281 
0628) 
06261 
0628) 
0628) 



comment thf followtnq block handles thf following cases 
Of Simple variabLfsi 

1. v ♦ exp »where v is formal-call by name. 

2. v ♦ exp ,all v except formal-name, 

3. v,ts«l3 * exp .where v is formal-call by name. 

4. v.csaj ♦ exp .all v except formal-name. 

5. V.[S»L] .ALL V, 

6. V .ALL V, 

CODE EMITED FOR ThE ABOVE CASfS IS AS FOLLOWSl 

1. vn.exp,m*.xch.*. 

2. EXP.M*.VL,*, 

3. vn.oup,coc.fxp,t.m»»xch.». 

4. VV.EXP,T»M*.VL.*, 

5. ZEROL.VV.T . 

6. VV . 

WHERE VN • DfSc V 

EXp. ARlTH, OR BOOLEAN EXPRESS I ON. AS REOUIRFO. 

M* • CALL ON MONITOR ROUTINE.IF REQUIRED. 

VL B LITC V 

VV m OPDC V 

•■ » STORE iNSTRUcTiONdSD.lSN.SNO OR STD). 

T « BIT TRANSFER CODE(D I A . D I B. TRB ) . 

ZEROL m LITC 

DUP.COC.XCH • THE INSTRUCTIONS DUP.COC.AND XCH. 
OF COURSE. EXP WILL CAUSE RECURSION. IN GENERAL. AND THUS 
ThF PARAMETER Pi AND THE LOCALS CAN NOT BE HANDLED IN A 

global fashion. 

The parameter pi is used to tell the variable routine 

who called it, some of the code generation and some 

SYNTAX CHECKS DePEND UPON A PARTICULAR VALUE OF Pj , 

I 
PROCEDURE VARIABLE(P1)J INTEGER Pl» 
BEGIN 

Real tall, comment elbat word for vaRiablei 



STACKfF+2) m TALL 

STACKcF*3) m Tl 

STACKrF+4) X T2 

STACK(F+5) 9 J 

REAL REMfMBfRSEONOI % RFMEMBfRS SEQUENCE NUMBER OF VARIABLE XllO" 
5TACKfF*6) a RfMeMBfRSfONO 

X ON LEFT HAND SiDE OF ASSIGNMENT SO WE «llO. 

% CAN XReF IT CORRECTLY. |!llO- 



Tl . COMMENT 1ST INTEGER OF PARTIAL WORD SynTAX» 
T2 . COMMENT 2ND INTEGER OF PARTIAL WORD SYNTaXI 
J t COMMENT SUBSCRIPT COUNTER » 



15027000 T 0003106281 

15026000 T 0003(06261 

15029000 T 0003«0626« 

15030000 T 0003t0626l 

15031000 T 0003106261 

15032000 T 0003106281 

15033000 T 0003106261 

15034000 T 0003106261 

15035000 r 0003106261 

15036000 T 0003106261 

15037000 T 0003106261 

15036000 T 0003106261 

15039000 T 0003106281 

15040000 T 0003106261 

15041000 T 0003106261 

15042000 T 0003106261 

15043000 T 0003>0626i 

15044000 T 0003106261 

15045000 T 0003106281 

15046000 T 0003106261 

15047000 T 0003106261 

15048000 T 0003»0626l 

15049000 T 0003106261 

15050000 T 0003>0628t 

15051000 T 0003106261 

15052000 T 0003I0628I 

15053000 T 0003106261 

15054000 T 0003(06281 

15055000 T 0003(06264 

15056000 T 0003(0626( 

15057000 T 0003106261 

15056000 T 0003(0626( 

15059000 T 0003I0626( 

15060000 T 0003l0626( 

15061000 T 0003(062B( 

15062000 T 0003106281 

15063000 T 0003l0626( 

15064000 T 0003(06261 

15065000 T 0003(0628( 

15066000 T 0003(0628( 

15067000 T 0003(0626( 

15066000 T 0003t062e( 

15069000 T 0003(06281 

15070000 T 0003(0628( 

15071000 T 0003(0626( 

15072000 T 0003(06281 
START OF SEGMENT **»••**»»* 107 

15073000 T 0107(0000(0 

15074000 T 0107(0000(0 

15075000 T 0107(0000(0 

15075550 C 0107(0000(0 

15075551 C 0107(0000(0 

15075552 C 0107(0000(0 



STACK(F+7) a SPCLMON 
STACKfF+lO) s DUPIT 



COMMENT 211 



LABEL EXir. NEXT* LASSI 11 H- 

DEFINE XIH' 

FORMALNAME » C9t2] s 2#i %\IU' 

LONGIO b NAHEtDl* XIH* 

PARTIALWORD « (Tl ^ 0)l» «il4' 
ERREXITCNUM) • BEGIN ERR(NUM)I GO TO EXITI END#» X114" 

BOOLEAN XIH' 

SPCLMON. XIH" 

OUPlTl % TRUf IF Wf ARE qOiNG UPOATE TYPe ASSIsN» 1114- 

X WENT* I,E.» I l» * ♦ 1,, XIH- 

TALL«-ELBATt n i 

IF ELCLASS < INTPROCIO THEN 
BEGIN 

IF Tail. LINK i»proinfo,link then 

BEGIN ERR(2ll)I 60 TO EXIT ENOI 

vaRiabie-function identifier used outside Of its scopf*» 

TALLf-TALL iCELCLASS + 4 ) [ 2 I 4 1 1 7 J & 5l 3[ 16 I 37 1 1 1] I 

END 
ELSE CHECKERCTaLL)* 

RfmembeRSeQno i* CARDNUMBER) %\ 

IF TALL. CLASS $ INTID THEN X SIMPLE VAR OR FORMAL NAME 



15076000 
15076100 
15076110 
15076120 
15076130 
15076140 
15076200 
15076300 



BEGIN % 

IF STEPI * ASSIGNOR THEN % 

IF PI « FL THEN % 

BEGIN ?! 

IF ELCUaSS < AMPERSAND THEN X 

EMiTNcTALL. ADDRESS) % 

ELSE % 

EMITVCTALL. ADDRESS); X 

GO rO FXITI X 

END X 

ELSE X 

IF ELCLaSS • PERIOD ThEN X PARTIAL WORD X 

IF D0TSvNTAX(Tl»T2) THEN X ERROR X 

GO TO EXIT X 

ELSE X 

STEPITJ X 

IF ELClASS m ASSIGNOR THEN X 

BEGIN X 

STACKCT l« II X 

IF PARTfALWORr) THEN X MAKE SURe LEFT-MOST X 

BEGIN X 

IF PI # FS THEN X NOT LEFT-MOST % 

ERReXIT(20i)I X 

XREFlT(TALL.REMEMBERSEQNOf ASSIGNREF)> X 

END X 

ELSE X 

XMARKfASSlGNREF); x 

IF TABLF(I*n • ASTRISK THEN X MIGHT BE UPDATE 

IF (DUPiTU(Ta8LE(1*2) i EflVOP AND TaBLECI*? 

i MULOP) OR TABLE(I+2) • AMPERSAND) THEN 

STEPITI I! STEP OVER ASTERISK x 

IF tallIformalname Then x formal parameter x 

BEGIN X 

EMiTNfTALL. ADDRESS)! x 



lO» 

14- 
14« 
14- 
14- 
1ft- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14" 
14- 
14- 
14- 
14- 
14- 
14- 
14- 



14- 
14. 
14. 
14' 



15076400 C 



15076500 
15077000 
15078000 
15079000 
15080000 
15081000 
15082000 
15083000 
15084000 
15085000 
15085100 
15085200 
15085400 
15085600 
15065800 
15086000 
15086200 
15086400 
15086600 
15086600 
15087000 
15087200 
15087400 
15087600 
15087800 
15088000 
15088200 
15088400 
15088600 
15088800 
15089000 
15089200 
15089400 
15089600 
15089800 
15090600 
15090800 
15091000 
15091200 
15091400 
15091600 
15091800 
15092000 
15092200 
15092400 
15092600 



107 


lOOOOl 


107 


lOOOOl 


107 


1 00001 


107 


lOOOOl 


107 


lOOOOl 


107 


lOOOOt 


107 


lOOOOl 


107 


lOOOOl 


107 


lOOOOl 


107 


lOOOOt 


107 


tOOOOl 


107 


lOOOll 


107 


t 00011 


107 


100021 


107 


1 00041 


107 


100051 


107 


00051 


107 


100091 


107 


00091 


1071 


OOiOl 


1071 


OOiU 


107 


00121 


1071 


00i2l 


107 


00i3l 


107 


00151 


107 


10015? 


1071 


00161 


1071 


00l7l 


1071 


00161 


1071 


00i9t 


1071 


00201 


1071 


00201 


1071 


00201 


1071 


00211 


1071 


00231 


1071 


00231 


1071 


00231 


1071 


00241 


1071 


00251 


107 


100251 


1071 


00261 


1071 


00271 


1071 


00271 


1071 


00261 


1071 


00301 


1071 


0032t 


1071 


00321 


1071 


00321 


1071 


00371 


1071 


00391 


1071 


0042t 


1071 


00451 


ion 


00461 


1071 


00461 


1071 


00461 



IF PARTIAlWORD or DUPIT THE>J % NFEO 

Begin 

EMlTOfDUP); 

EMITO(COC); 
ENDl 

END 
ELSE X ITS A SIMPLE VARIABLE 

IF PARTIALWORD OR OUPIT THEN 
EMITVCTaLL. ADDRESS)! 

IF parttalword and oupit then 

BEGIN 

EMIT0(DUP)» 
EMITI(0»Ti,T2)I 

END» 

stackct Is realcpartialword or DUPIT)> 
stepit; 

IF DUPlT then X already GOT FIRST PRIMARY 

simparith 

ELSE 

AEXP; 
EMITd('>8-T2»Ti,T2)I 
stackct Is Oi 
GTl l« tF TALLtCLASS * INTID THEN 

IF Pi • FS Then 
isd 

ELSE 
ISN 
FLSE 

IF Pi • FS Then 

std 
flse 
SNni 
IF tall.formalname then 

BEGIN 

EMIT0(XCH)I % TO GET DESCRIPTOR ON 
IF TALL, ADDRESS > 1023 THEN X SET 

EMITO(PRTE)i 
EMIT0(GT1)I 

END 
ELSE 

EMiTPAlRCTALL.ADDRESStGTDl 
END 
FLSe t NOT ASSIGNMENT TO SIMPLE VARIABLE 
BEGIN 

IF Pi J« FP ThfN X EXPECTED ASSIGNMENT 
ERREX|Tf202)j 

EMITl(TALL»Tl,T2)l X EMIT OP CALL AND 
ENDl X WORD CODE 

OF SIMPLE Variables 



VALUEXIM- 
XI 14* 
XIH- 
X114- 
XIH- 
X114- 
XU4- 
X114- 
X114- 
X114- 
X114- 
X114- 
Xlt4- 
X114- 
X114- 
X114- 
X114- 
X114* 

xn4- 

X114- 
X114* 
X114- 
XUft- 
X114* 
X114- 
X114- 
X114- 
XU4- 
XllA- 
X114" 
XIU- 
X114- 

xn4- 

X114* 
X114- 



END 
ELSE 

IF tall,class#Labelid Then 

COMMENT The FOLLOWING BlOCK HANDLES 
VARIABLESi 
1. Vt*] 



TOP 
VARIANTX114- 

xn4- 

X114- 
X114- 
X114- 
X114- 
XIH- 
X114- 
X114- 
X114- 

xn4* 

PARTIALXIM- 
X114- 
Xil4» 



THESE CASES OF SUBSCRIPTED 



2. VCR»*J 

3. V[R] 

4. V[R],[SIL1 



»ROW DESIGNATOR FOR Si NGLE-DI MpNSlON, 
»ROW DESIGNATOR FOR MULTI»DIMENSI0N, 
»ARRAY ELEMENT. NAME OR VALUE, 

.PARTIAL Word designator, value. 



15092800 

15093000 

15093200 

15093400 

15093600 

15094800 

15095000 

15095400 

15095600 

15095700 

15095800 

15095900 

15096000 

15096100 

15096400 

15096600 

15096800 

15097000 

15097200 

15097400 

15097600 

15097800 

15098000 

15098200 

15098400 

15098600 

15098800 

15099000 

15099200 

15099400 

15099600 

15099800 

15100000 

15100200 

15100400 

15100600 

15100800 

15101000 

15101200 

15101400 

15101600 

15101800 

15102000 

15102200 

15102400 

15102600 

15103400 

15103600 

15103800 

15128000 

15128100 

15129000 

15130000 

15131000 

15132000 

15133000 

15134000 



C 01071004913 
P 01071005112 
C OlO7IO051»3 
C 01071005210 
C 01071005312 
C 01071005312 

P 01071005312 

C 01071005312 

C 01071005411 

C 01071005611 

C 01071005713 

C 01071005810 

P 0l07t0059l2 

C 01071006010 

C 01071006010 

C Ol07»0062i0 

C 0107I0062U 

P 01071006211 

C 01071006312 

C 01071006313 

C 01071006411 

C 01071006611 

P 01071006712 

C Oi07»006Bll 

C 01071006913 

C 01071007011 

C 01071007112 

P 01071007112 

C 01071007113 

C 01071007211 

C 01071007312 

C 01071007313 

P 01071007411 

C 01071007513 

C 01071007610 

C 01071007712 

C 01071007810 

P 01071007913 

C 01071008010 

C 01071006010 

C 01071008010 

C 01071008210 

P 01071008210 

C 01071006210 

C 01071008211 

C 01071006313 

C 01071008512 

C 01071006611 

C 01071006611 

T 01071006611 

T 0l07t0086ll 

T 01071006810 

T 0107I006BI0 

T 01071006810 

T 0107 1 0068 to 

T 01071006810 

T 01071008810 



5. V[R] - ,A 

6. V[R].[SJL] «. »A 
R IS A K-ORDER SUbSCR 

In the case of no mon 
is emitted for the ab 

1. CASE #1 IS 
DIMENSION, 
VL»LOD 

execution! 
2, This code 
each subsc 

OF CODE* 
AEXp.U* 
»LOD, 
FOR A K"OR 
PRODUCED, 
The CODE P 
PROCEDURE 
[* RrFFRS 
NON-ZERO L 
EXPRESSION 
EXECUTION! 



SSIGNMENT TO ARRAY ELEMENT. 
SSlGNMENT To PARTIAL WORD* LEFT-MOST , 
IPT LIST»I,E« R« R1»R2»..,»RK. 
ITORING ON V» THE FOLLOWING CODE 
OVE CASES! 

A SPECIAL CASE OF #2« NAMELY, S I NGLE 

The CODE EMITTED ISI 

"places ARRAY DESCRTPTeR IN RES A. 
IS BASIC TO THE SUBSCRIPTION PROCESS. 
RIPT GENERATES THE FOLLOWING SEQUENCE 

,IF FIRST SUBSCRIPT THEN VN ELSE CDC 



E 
S 

BEGIN 
IF S 
BE 



For The remaining cas 
Sequences 

HoWEVERiTH 

one seoue 

K-1 SeQUE 
ELSE CDC, 
SUBSCRIPT 

AT This po 
And addiTi 
emitted. 

3. add the SE 

IF First 

EXECUTION! 

«. ADD THE SE 

IF FIRST 

XCH»T. 

5, ADD THE SE 

IF FIRST 

xch»«-. 

6. ADD THE SE 

IF FIRST 
EXPfT, 

xp,t,»»zerol»etc. HA 
implE variable Block 



OER SUBSCRIPTI 
THE AEXP IN EA 
RODUCED BY THE 
FOR THE ACTUAL 
TO THE CODE PR 
OWER BOUNDS FR 
(L* YIELDS NO 
PLACES ARRAY 
. The SPECIFIC 

values of the 
es. 

of code are em 
e actual seoue 
nce »(aexp»l*) 

NCEStClF FIRST 

lod»aexp,l*)» 

S»IF K>1. 

iNT, CASES #3- 

ON C0DE»PARTIC 



ONfK-1 SEQUE 
CH SEQUENCE 
ARITHMETIC 
SUBSCRIPT E 
ODUCED FOR S 
OM THE SUBSC 
CODE FOR ZER 

ROW oescript 

ROW DEPENDS 
K-l SUBSCRIP 



NCE ARE 

REFERS TO 

EXPRESSION 

XPRESSlONS, 

UBTRACTING 

RiPT 

BOUNDS). 

OR IN REG A 

UPON THE 
TS. 



ITED AS IN CASE #?, 
NCES ARE! 
fFOR THE 1ST 
SUBSCRIPT T 

FOR The Rema 



SUBSCRIPT. 
HEN VN 
INING 



6 ARE DIFFER 
UlAR TO EACH 



ENTIATED 
CASEf IS 



QUENCE! 
SUBSCRIPT 
THE ARRAY 

QUENCEl 
SUBSCRIPT 



THEN VV 
ELEMENT 



ELSE COC. 
IS PUT IN 



REG A. 



THEN VV ELSE C0C»ZER0L. 



OUENCE! 
SUBSCRIPT THEN VN ELSE CDC»EXPf 

OUENCE! 

SUBSCRIPT THEN VN ELSE CDCfDUP.LOD» 

XCH»», 
VE SAME MEANINGS AS DEFINED IN 
. I 



TEPI * LFTBRKET THEN X ARRAY ITEM NOT FOLLOWED BY X114* 

GIN % A SUBSCRIPT 1114- 

IF ELCLASS a PERIOD THEN XIH- 

IF D0TSYNTAXeTiiT2) THEN % ERROR IN PARTIAL WORD Xll*- 

GO TO EXIT 1(114- 

ELSE 1114- 

STePiTI X114- 

IF ELCLASS « ASSIGNOR THEN XlH- 



15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 



35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
46000 
49000 
50000 
51000 
52000 
53000 
54000 
55000 
56000 
57000 
58000 
59000 
60000 
61000 
62000 
63000 
64000 
65000 
66000 
67000 
68000 
69000 
70000 
71000 
72000 
73000 
74000 
75000 
76000 
77000 
78000 
79000 
80000 
81000 
82000 
83000 
83100 
83200 
83300 
83400 
83500 
83600 
83700 
83800 



1071 


1071 


1071 


1071 


1071 


107! 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


107! 


1071 


1071 


1071 


1071 


1071 


1071 


107! 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


1071 


107! 



1006810 

toossio 

1006810 
1008810 
1006810 
1006610 
lOOeBlO 
1008810 
1008810 
1006810 
1008610 
1006810 
1006810 
1006810 
1008810 

looeato 

1006610 
1008610 
1006810 
1006810 
1006810 
1006810 
1006810 
1008810 
1006810 
1006810 
1008810 
1006610 
1006810 
1006610 
1006610 
1006810 
1006810 
1008810 
1006810 
1008610 
1006810 
1006810 
1006610 
1006810 
1008610 
1006610 
1006610 
1006610 
1006810 
1006610 
1006610 

looeeio 

1006610 
1008811 
1008913 
1009010 
1009112 
1009211 
1009211 
100921 1 
1009313 



BEGIN X 

IF paRTialworo Then % 

BEGIN % 

IF PI # fs Then % partial word not left-mostx 

ERREX1T(209)I % 

xRefitctaul.remembeRseono.assignrefji % 

END % 

flse X assignment to id with no Partial word % 

XMaRK(ASSIgNREF)) X 

if TABLE(T+1) » ASTRISK TheN % 

IF (DUPIT «■ CTABLEd*?) i EQVOP AND TABUEfI+2> 

i MUlOP) or TABUE(I*2) » AMPERSAND) THEN % 

STepiTi % 

IF PARTIAUW0RO OR DUPiT THEN % NEED VALUE ON STAC 

IF Tall, CLASS < intarrayio then x not name item 

EMiTPAlRtTALLf ADDRESS»LOD) % 

ELSE % 

EMiTN(TALL. ADDRESS); % 

IF PARTIALWORD AND DUPiT THEN % 

BEGIN % 

EMIT0(DUP)I % 

EMiThO»Ti,T2)I % 

ENDI % 

STACKcT IK STAcKCT + REALfPARTIALWORD OR DUPIT) 

stepit; X 

IF DupiT Then x we handled first primary x 

SIMPARiTh X 

ELSE X 

AEXPi X 

EMlTD(«8-T2tTl,T2)» x 

EMiTPAlRfTALL, address. IF PI « FS THEN STO FLSEI 

SN0)I X 



14- 
14" 

la- 

14* 
14" 
1*- 
14- 
14- 
14- 
14- 

14- 
14- 



14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 

14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 
14- 



stackct i« o; X a and b are empty X 

END X 

ELSE X NOT ASSiGNMfNT x 

EMlTl(TALL,Ti,T2)l x 

GO TO EXITJ X 

END or ASSIGNMENT TO NON SIMPLE NON SUBSCRIPTED X 
VARIABLE) X 

J ♦ Ol 
STACKCT ♦ Ol 
COMMENT 207 VaRI ABLE-MI SS I Nr LEFTbRacKET ON SUBSCRIPTED VARIABLE *l 
NEXT« if STePI » FACTOP THEN 
BEGIN 
IF J*l# TAULtlNCR THEN 

BEGIN ERR(?03)IG0 EXIT END* 
COMMENT ?03 VARIABLE- THE NUMBER oF SUBSCRIPTS USED IN A ROW * 

ROW OESlGNATER DOES NOT MATCH THE ARRAY » 
DECLARATION. *} 

IF STePi * RTBRKET THEN 

BEGIN ERR(204))G0 EXIT END! 
COMMENT 204 VARIABLE" COMPILER EXPECTS A 1 IN A ROW DESIGNATER *I 

COMMENT 205 VARIABLE- A ROW OfSIGNATER APPEARS OUTSIDE OF A FiLU ♦ 

STATEMENT OR ACTUAL PARAMETER LiST, *| 

IF j«o Then 

Em I TP AIR (TALL. ADDRESS. L0D)1 

stepiti 



15183900 

15184000 

15184100 

15184200 

15184300 

15184400 

15184500 

15184600 

15184700 

15184750 

15184800 

15184850 

15185000 

15185100 

15185200 

15185300 

15185400 

15185500 

15165600 

15185700 

15185800 

15185900 

15186000 

15186100 

15186200 

15186300 

15186400 

15186500 

15186600 

15186700 

15186800 

15186900 

15187000 

15187100 

15187200 

15187300 

15187400 

15187500 

15187600 

15234000 

15234500 

15235000 

15253000 

15254000 

15255000 

15256000 

15257000 

15258000 

15259000 

15260000 

15261000 

15262000 

15263000 

15264000 

15265000 

15266000 

15267000 

15274000 



C 
P 
P 
P 
P 
P 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0107 
0107 
0107 
0107 
0107 

oior 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

01 07 

0107 

0107 

0107 

0107 

0107 

0107 

Ol07 

0107 

0l07 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0107 

0J07 

0107 

0l07 

0107 

0i07 

0107 



100941 1 

I0095I2 

1009513 

1009610 

1009712 

1009811 

1010112 

1010112 

1010112 

t0l06t0 

1010713 

tOiiOll 

»0li4ll 

1011513 

•011611 

•011811 

lOlSOlO 

1012011 

1012210 

1012313 

1012410 

1012411 

tOi26tO 

1012610 

1012810 

I0i28»l 

1012912 

1012913 

1013010 

I013U2 

1013211 

I0135I3 

1013610 

1013712 

1013712 

1013712 

1013811 

1013912 

1013912 

t0l39t2 

lOUOtO 

1014011 

1014011 

1014210 

I0U2II 

1014410 

1014610 

1014610 

1014610 

1014610 

1014712 

1014811 

1014611 

1014811 

1014811 

1014811 

1014913 

•015113 



AND 



lassi 



GO TO EXITI 
END OF ROW DESIGNATOR PORTION 
IF FLCLASS.LITnO and EL.9AT[ n,ADDRESS«0 
AND TAUL.CLASS>NAMEID THEN 

Begin 

i*i*ii 

ir stePI'assignop then begin 

IF Tu»0 THrN EMITV(TALU, ADDRESS)! 
STEPlTl AfXPJ rMiTD(48-T2.Tl,T2)l 
EMITNCTAUL. ADDRESS); 
EMITOCIF TaLL.CLaSS#NAMEID THEN 

IF PuFs Then isd else isn else 
IF PUFS Then std else 
stackct ♦ 0» 

GO TO exit end 

ELSE 

IF ELCLASS * PERIOD ThEN BEGIN 

IF D0TSYNTAX(TlfT2) THEN GO 
IF STEPi « ASSIGNOP THEN IF 
ELSE BEGIN ERR(209); GO EXIT 
EnDI 

IF Pi.FS THEN BEGIN ERRC2lO); GO EXIT END! 



TABLECI + DaRTBRKET 



SND)) 



TO EXITI 

Pl»FS THEN 
END I 



GO TO LASS 



COMMFNT 
IF J 



EMITKIF PlsFL THEN TALL ELSE TALL&REAL I D [ 2« 41 1 7 ] • Tl . T?) I 

GO TO EXIT) 

ENOJ 

AEXPJ 

STACKcT ♦ II 

J * J « 1 > 

IF ELCLASS » COMMA ThEN 
BEGIN 
4<*4i«« MONITOR FUNCTION M4 GOeS HE^E I 
m 1 THFN EMITVCTALL. ADDRESS) ELSE EM|T0(COC)l 



GO TO NpX 

END OF SUBSCRI 

IF ELCLASS # RTbRKE 

COMMENT 206 VARIABLE- MISSING R 

GTUIF TALLlCLASSiNAMElD 

IF J#GTl THEN 

BEGI 
COMMENT 206 VARIABLE- NUMBER OF 

ARRAY DEC 

IF STEPI * PERIOD T 

IF DOTSYNTAXdl.T 

GO TO EXfT 
ELSE 

stepit; 
if elclass • assign 

BEGIN 

IF PARTIALWORO 
IF PI * FS TH 
ERREXlTf209 

XREFIT(TALL.ReM 

IF J » 1 THEN % 

EMITN(TALL.AD 



TJ 

PT COMMA HANDLER I 

T THEN BEGIN ERR(206)IG0 EXIT FNDI 

IGhT bracket ON SUBSCRIPTED VARIABLE 

Then i euse tall.incri 



N eRR(208)|G0 TO EXIT END! 

SUBSCRIPTS DOES NOT MATCH WITH 
LARATlON, 

HEN f PARTIAL WORD 
2) THEN X ERROR 



OP THEN % ASSIGNMENT 

X VARIABLE 
THrN 
EN 

)l X PARtIALWORD not LEFT-MOST 
EMBERSEQNO*ASSIGNREr}l 

StNGLE-OIMENSIONEO 
DRESS) 



XI 
XI 
XI 
XI 
TO SUBSCRIPTED 
XI 
XI 
XI 
XI 
XI 
XI 
XI 



*l 



* 

*i 
14- 
H- 
14- 

14- 
14- 

14- 
14" 
14» 
14- 
1ft- 
14. 
14- 



15275000 


r 


107 


»0152» 


15276000 ' 


r 


107 


I0152« 


15276010 ' 


r 


107 


101521 


15276020 " 


r 


107 


101561 


15276030 ' 


r 


107 


lOlSBt 


15276040 ' 


r 


107 


101591 


15276050 ' 


r 


107 


(01601 


15276060 ■ 


r 


107 


101611 


15276070 


r 


107 


r0i64l 


15276080 ' 


r 


107 


\0i6Tl 


15276090 1 


r 


107 


101681 


15276100 ' 


r 0] 


107 


101701 


15276110 1 


r 


107 


101731 


15276115 1 


r 


107 


01751 


15276120 1 


r 01 


107 


101761 


15276130 1 


r 


107 


101771 


15276140 1 


r 0) 


107 


101771 


15276150 1 


r 01 


107 


01781 


15276160 1 


r 01 


1071 


oieot 


15276170 1 


r 01 


[071 


0l62« 


15276180 1 


r 01 


1071 


01841 


15276190 1 


r 01 


1071 


01841 


15276200 1 


r 01 


[071 


01871 


15276210 1 


r 01 


107( 


01871 


15276220 1 


r 01 


1071 


(01911 


15276230 1 


r 01 


107 


101911 


15276240 1 


r 01 


1071 


I0l91» 


15277000 1 


r 01 


1071 


01911 


15278000 1 


r 01 


1071 


01921 


15280000 1 


r 01 


1071 


01931 


15287000 1 


r 01 


[071 


01941 


15288000 1 


r 01 


L07I 


01951 


15289000 1 


r 01 


[071 


01951 


15290000 1 


r 01 


071 


01951 


15291000 1 


r 01 


071 


0l99t 


15292000 1 


r 01 


107« 


01991 


15293000 1 


r 01 


071 


01991 


15294000 1 


r 01 


1071 


01991 


15295000 1 


' 01 


071 


02021 


15295100 1 


r 01 


071 


02021 


15296000 1 


r 01 


071 


02061 


15297000 1 


r 01 


071 


02061 


15298000 1 


r 01 


071 


02081 


15299000 1 


r 0] 


071 


O2O8I 


15300000 F 


» Ol 


071 


02081 


15300100 C 


: 0] 


071 


02091 


15300200 ( 


: 01 


071 


02111 


15300300 ( 


: 01 


071 


02111 


15300400 C 


; 01 


i07« 


02111 


15300500 C 


; 0] 


071 


02121 


15300600 C 


; 01 


071 


02131 


15300700 C 


, 01 


L07I 


02131 


15300800 t 


; 01 


071 


02141 


15300900 C 


01 


071 


02151 


15301000 P 


* 01 


07t 


02171 


15301100 C 


; 01 


07J 


02191 


15301200 t 


01 


071 


02201 



ELSE 
BE 



ELSE 

FMITO(CDC)J 
IF TAUL, CLASS > LONGID THEN % EXPLICIT INDEX OP 

EMlTO(iNX)) % REQUIRED 

IF PI e FR THEN X CALLED FROM FOR STATEMENT 

GO TO eXITI 
IF TABLE(I+1) = ASTRlSK ThEN 

IF (DUPlTt«(TABLECI*2) i EQVOP AND TABLEd*?) 
< MULOP) OR TABLE(I+2) m AMPERSAND) THEN 
STEPlTJ 

IF partialwoRd or dupit Then % need value on st 

BEGIN 

EMIT0(0UP)J 

EMIT0(L00)> 
END? 
IF PARTIALWORD ANq OUPIT THEN 
BEGIN 

EMITOCDUPJI 
FMlTi(0,Tl.T2)» 

ENDI 

stepit; 

IF dupit THFN 

SiMPARlTH 
FUSE 

AEXPI 
FMITDC'»8-T2,Tl.T2); 
EMITOCXCH)! 
IF TALL. ADDRESS > 1023 THEN 

EMITO(PRTf)| 
EMITOdF TALL, CLASS MOD 2 » INTARRAYID MOD 2 TH 
IF PI • FS THEN ISO ELSE ISN 

ELSE tf pi • FS Then sto else sno)» 

STACKCT l« o; X A & B ARE EMPTY 

Pi IB Oj 

OF ASSIGNMENT TO SUBSCRIPTED VARIABLE 



GiN % 

SPCLMO 

IF J a 

TF T 

BE 



EN 

ELSE 

IF 

EL 

ELSE % 
EMIT 

IF PI 
ERRE 

STACKC 



HANDLt 

N Id p 

1 THF 
ALL.CL 
GIN 

EMfTNf 

EMiTOf 

IF SPC 

EMIT 

D 

% REF 

SPCLM 

EMiTVf 

SE 

EMiTNf 
MULTf 
OCIF S 
* FS T 
XlTf2l 
T «- 1 



Ng of NO ASSIGNMENT CASE 
1 « FP OR PARTIALWORD OR ELCLASS > 
AMPERSAND! 

N % Single dimensioned 

ASS i LONGID THEN % NAME I TeM 

TALL, ADDRESS)! 
INXJl 

lmon then 

O(LOD); 

ERENCE to single DIMENSIONED ARRAY 

ON Then 
Tall, ADDRESS) 

TAtt. ADDRESS) 

•DIMENSIONED CASE 

PCLMON THEN COC ELSE CDC)» 

HFN * EXPECTED AN ASSIGNMENT 

0)> 

I X bfcause Registers are non-empty 



X 


114- 


15301300 


C 


0l07l0222t0 


X 


114- 


15301400 


C 


01071022210 


% 


114- 


15301500 


C 


01071022313 


% 


114- 


15301600 


c 


01071022411 


% 


114- 


15301700 


c 


01071022610 


X 


114- 


15301800 


c 


01071022611 


X 


114- 


15301900 


c 


01071022712 


X 


114. 


15302000 


p 


01071022912 


X 


114- 


15302100 


c 


01071023210 


X 


114- 


15302200 


c 


Ol07t023St3 


ACK 




15302300 


c 


01071023611 


X 


114- 


15302400 


c 


01071023810 


X 


114- 


15302500 


c 


0l07l0238ll 


X 


114- 


15302600 


c 


01071023912 


X 


114- 


15302700 


c 


01071024010 


X 


114- 


15302800 


c 


01071024010 


X 


114- 


15302900 


c 


01071024112 


X 


114- 


15303000 


p 


01071024113 


X 


114- 


15303100 


c 


0107«0242I1 


XI 


114- 


15303200 


c 


01071024313 


X 


114- 


15303300 


c 


0107I0243«3 


XI 


114- 


15303400 


c 


01071024410 


XI 


114- 


15303500 


c 


01071024411 


XI 


114- 


15303600 


c 


0107(024512 


XI 


114- 


15303700 


c 


01071024513 


XI 


114- 


15303600 


c 


01071024611 


XI 


114- 


15303900 


c 


01071024810 


XI 


114- 


15304000 


p 


01071024912 


X] 


114- 


15304100 


c 


01071025010 


ENX1 


114- 


15304200 


c 


01071025113 


XI 


14- 


15304300 


c 


01071025410 


Xl 


14- 


15304400 


c 


01071025611 


XI 


14- 


15304500 


c 


01071025913 


XI 


14- 


15304600 


c 


01071026011 


XI 


14- 


15304700 


c 


01071026113 


XI 


114- 


15304800 


c 


01071026113 


XI 


114- 


15304900 


c 


01071026113 


XI 


14- 


15305000 


p 


01071026210 


XI 


14- 


15305100 


c 


0l07t0264l0 


XI 


114- 


15305200 


c 


01071026512 


Xl 


14- 


15305300 


c 


01071026610 


XI 


14- 


15305400 


c 


0l07|0267l3 


XI 


14« 


15305500 


c 


01071026810 


X] 


L14- 


15305600 


c 


01071026913 


XI 


14- 


15305700 


c 


01071027010 


XI 


14- 


15305800 


c 


01071027011 


XI 


14- 


15305900 


c 


01071027113 


XI 


14- 


15306000 


p 


0107J0271I3 


XI 


14- 


15306100 


c 


01071027113 


XI 


14- 


15306200 


c 


01071027211 


X] 


14- 


15306300 


c 


01071027410 


XI 


14- 


15306400 


c 


01071027410 


XI 


14- 


15306500 


c 


01071027513 


XI 


14- 


15306600 


c 


01071027610 


XI 


14- 


15306700 


c 


01071027811 


Xl 


14- 


15306600 


c 


01071027913 


XI 


14- 


15306900 


c 


010710281 1 2 



FXTT « 



IF partialwoRd Then 

REGIN 

EMlTi(0.Ti,T2)) 
Pi l» 0| 

ENDJ 

END Of no assignment casej 

END OF SUBSCRIPTED VARIABLES 
ELSE 

Begin comment laBeuidi 

TlUTAKECT2l«GIT(TALL)); 
PUT(L#T2); 

IF Ti«o Then tii»l> 

IF <T1*L-Tn DIV fl > 127 THEN BEGIN Tl »0| FUAG( 50 ) j END I 
EMIT(TlxA+3)j 

STEPITJ 

END OF LABEUIDJ 
END OF THE VARIABLE ROUTlNEI 



«114' 
X114" 

j;ti4« 
i:ii4' 



107 IS 



15307000 P 0107 

15307100 C 0107 

15307200 C 0107 

15307300 C 0107 

15307400 C 0107 

15307500 C 0107 

15376000 T 0107 

15376100 T 0107 

15376200 T 0l07 

15376300 T 0l07 

15376400 T 0107 

15376500 T Ol07 

15376600 T Ol07 

15376700 T Ol07 

15376800 T 0107 

15376900 T 0107 

15377000 T 0107 

302 LONGt NEXT 



t0282i0 
1028211 
J0283I2 
I0284M 
1028513 
1028513 
1028513 
1028513 
102850 
(028610 
1028810 
1028912 
1029112 
1029513 
1029712 
»0297I3 
1029713 
SE6 3 



STREAM PROCEDUReSI 
OF LABEL i 



COMMENT ThtS SEcTiON GENERATES CODE FOR 
COMMENT DO LABEL DECS UPON APPEARANCE 
PROCEDURE DECLARELABEL > 
PRT(733) « DECLARELABEL 

BEGIN 

KLASSF * STLABID* 

VONF •■ FORMALF ♦ FALSf* 

ADDRSF ♦ 0* 

MaKeuPACCUMJ El PUTNBUMP(0)l 

FLBATrn *. ACCUM[0]8; LASTlNF0r35l35M3]» 

ENDJ 



16000000 T 
16000050 T 
16000100 T 



16000200 
16000300 
16000400 
16000500 
16000600 
16000700 
16000600 



00031062811 
0003<0628tl 
00031062611 

00031062811 
0003I062BI1 
00031062913 
00031063112 
00031063113 
0003I0633U 
00031063610 



PROCEDURE STREAMSTMT I 
BEGIN 
DEFINE LFTPAREN»'LEFTPAREN#,t0C*t36n2]#.LASTGT»t24ll2J#i 



DEFINE 



L0CFLD«36«36l 1 2#» LGTFLD-24 I 24 f 12il 
DEFINE LEVELpLVL#.AD00PpAD0P#; 



START 



Jew 


m 


39#» 


COMMENT 


RCA 


s 


40#. 


COMMENT 


JRV 


s 


47*» 


COMMENT 


CRF 


■ 


35*. 


COMMENT 


bns 


a 


42#f 


COMMENT 


NOP 


B 


1#» 


COMMENT 


ens 


s 


4J#. 


COMMENT 


TAN 


a: 


30l« 


COMMENT 


BIT 


a 


31#. 


COMMENT 


JFC 


8 


37#» 


COMMENT 


SEO 


s 


06#i 


COMMENT 


RSA 


a 


43#. 


COMMENT 


TRP 


8 


60#« 


COMMENT 



7.5.5.1 JUMP FORWARD UNCONDITIONAL 
7.5,7,6 RECALL CONTROL ADDRESS 

7.5.5.2 JUMP REVERSE UNCONDITIONAL 
7.5,10,6 CALL REPEAT FIELD 

7.5.5,5 BEGIN LOOP 



7.5,5.6 
7.5.3.7 
7,5,3.8 
7,5.5,3 

7,5,7.6 



'',5. 
7.5,2 



7[n 
2 



END LOOP 

TEST FOR ALPHAMERIC 

TEST BIT 

jump forward conditional 
set destination address 
Recall source address 
transfer program characters 



16001000 
16002000 
16003000 
OF SEGMENT 
16004000 
16005000 
16006000 
16007000 
16008000 
16009000 
I6O1OOOO 
I6O11OOO 
I6O12OOO 
16013000 
16014000 
16015000 
16016000 
16017000 
16018000 
16019000 



T 0003 
T 0003 
T 0003 



0108 
0108 
0108 
0108 
O1O8 
0108 
0108 
O1O8 
O1O8 
0108 
0108 
0108 
0108 
0108 
O1O8 
0108 



1063610 

1063610 

1063610 

*** 108 

lOOOOlO 

tOOOOlO 

tOOOOfO 

tOOOOlO 

tOOOQiO 

fOOOOlO 

tOOOOlO 

iOOQOlO 

lOOOOlO 

lOOOOlO 

lOOOOlO 

lOOOOtO 

tOOOOlO 

lOOOOtO 

lOOOOiO 

lOOOOlO 



B5S 
BSD 
SFC 

JNS 



3*P 
38#» 



PROCEDURE adjust;; 

PRT(734) • ADJUST 



COMMENT ^,5.6.6 SKIP SOURCE BIT 
COMMENT 7,5.6,5 SKIP DESTINATION BITS 
COMMENT 7,5.10,1 SET COUNT 
COMMENT 7,5,5.7 JUMP OUT UOOP 



160?0000 
16091000 
1602P000 
16023000 
16023100 



T OlOStOOOOlO 

T OlOStOOOOlO 

T oioaiooooio 

T oioaiooooto 

T oioetooooto 



PRT(735) » FIXC 



COMMENT FiXc EMITS BASICLY FORWARD JUMPS, HOWEVER IN THE CASE 

Of INSTRUCTIONS INTERPTED AS JUMPS BECAUSE OF A CRF ON 
A VALUE 8 AND ThE JUMP ^ 64 SYLLABLES A JFW 1 AND 
A RCA L (U IS STACK ADDRESS OF A PSEUDO LABEL WHICH 
MUST ALSO BE MANUFACTURED) IS EMITTED, ; 
PROCEDURE FIXC(S)) VALUE S; REAL Sj 



BFGIN 

REAL SaVL.D»F; 



STACKfF+2) ■ SAVL 
STACKfF+3) M D 
STACKfF*4) a F 



END 



START 



IF D- CSAVL«-L) - (L*S)-1 
ELSE FLAGf700); 

u*SAVL ; 
Fixc ; 



^ 63 THEN EMlTCfD»GET(S)) 



16024000 T 

16025000 T 

16026000 T 

16027000 T 

16028000 T 

16029000 T 



16030000 
16031000 

OF SEGMENT 



Oioaiooooto 
oioaiooooio 
Oioaiooooto 
Oioaiooooto 
oioaiooooto 
oioatooooio 



T oioaiooooto 
T oioaiooooto 



109 IS 



16032000 T 
16033000 T 
16034000 T 
16057000 T 
10 LONGt 



01091000010 
0109100041 1 
01091000611 
01091000712 
NEXT SEG 108 



PROC 
PRT(736) « EMITJUMP 



STACKfF+2) a T 
STACK(F*3) a 

STACKfF+4) ■ ADDR 



ommfnt emitjump is called by gotos and jumpchain. 

This routine will emit a jump if the distance is < 63 

SYLLABLES ^OThERWiSE* IT GETS A PRT CELL AND STUFFS TrE 
STACK address INTO Thf LABEL ENTRY IN INFO AND EMtTS AN 
RCA ON THIS STACK CELL. AT EXECUTION TIME ACTUAL PARAPART 

INSURES US That This cell will conatin a label descriptor 

POINTING to our LABEL IN QUESTION, t 
EDURE EMlTjUMP( E); VALUF Et REAL E; 

BFGIN 
REAL T.D; 



REAL AonR; 

IF ABSr 
0*(T»TAKEfGlT(E)).L0c)-L-ni64 ThEN 

FLAG(700) 
ELSE EMiTctD.IF D <0 ThEN jRV ELSE JFW)! 
END EMIT jUmP; 



START 



16058000 
16059000 
16060000 
16061000 
16062000 
16063000 
16064000 
16065000 

16066000 

16067000 

OF SEGMENT 



OlOB 
0108 
0108 
0108 

oioa 
oioa 
oioe 

0108 



lOOOOtO 

tooooto 

lOOOOlO 
lOOOOtO 
lOOOOtO 
lOOOOlO 
lOOOOtO 
lOOOOtO 



T Oioaiooooto 
T oioaiooooto 



16068000 T OllOiOOOOlO 



16069000 
16070000 
16071000 
16079000 
16080000 



T OllOlOOOOlO 

T OUOIOOOOIO 

T 01101000411 

T 01101000512 

T 01101000912 



no IS 12 LONG. NEXT SE6 108 



COMMENT WHEN jUMPCHAiN iS CALLED THERE IS A LINKEDLIST IN THE CODE 



16081000 T OlOatOOOOlO 



PRT(737) B 



STACKfr+2) 
STACKfF*3) 



PROCEDURr 

jUmpchain 



ARRAY WHERE JFWS MUST BE PLACED, THE 1ST LINK IS POINTED 

To BY The uoc f?eld Of each label entry in info, the last 
Link iS » ao96. i 

jUMPCHAiNf E)^ VALUE E^ReAL Ei 



SAVL 
LINK 



BEGIN 
REAL SaVU 



L> 



»link; 



START 



SAVL 

L * TAKE(6lT(En,LASTr,T 
WHILE L^ 4095 OO 
BFGIN 

Link ♦ get(L); 
emitjumpc e)j 

L ♦ link 

ENDI 
L«-SAVLI 
ENID JUMPCHAIN ; 



16082000 T 

16083000 T 

16084000 T 

16085000 T 

16086000 T 

16087000 T 

OF SEGMENT 



oioetooooio 

OlOSiOOOOlO 
01061000010 
OlOSiOOOOlO 

0108«0000I0 
OlOSiOOOOlO 

111 



*4t«***4i*** 



HI IS 



16088000 T 

16089000 T 

16090000 T 

16091000 T 

16092000 T 

16093000 T 

16094000 T 

16095000 T 

16096000 T 

16097000 T 
12 LONGf 



oiitiooooio 
oiiiioooou 

01111000312 
01111000410 
01111000410 
01UI0005I3 
01UI000610 

oni>ooo6io 

0U1I0009I2 

01111000913 

NEXT SE6 106 



PRT(^40) s NFSTS 



COMMENT Ne:STS COMPILES THF NE 

A Variable nfst ino 

CRF Vi BNS , 

AT The right paren 
The nest cnUmber of 
it is fixed with a 

RCA P. this is DON 

May a AND this CO 

JUMPOUT INFO is RfM 

nfst level increase 
when the right pare 

The NeST COMPILED)* 
Of JUMPOUr STAT^MpN 
ARE FIXED BY FAkInG 
JUMPS. 

EINALL^ THE BNS IS 
AND JQINFO RESTORED 
PROCEDURE NFSTS; 

BFGIN 

Label fxitj 



ST STATEMf 
EX CAUSES 
NOP.NOP. T 

The bns is 
Syllables 

1 AND THE 

e because 
de causes 
embered in 

D BY ONE. 

n is reach 
joinfo is 
Ts in The 

ToTOS INT 



NT, 

THE CODE* 

BE GENERATED INITIALLY! 

FIXED WITH THE LENGTH OF 
) IF THE LENGTH <63»0THErWISE 
NOPS REPLACED WITH JFW 1, 
THE VALUE OF V AT EXECUTION 
A JUMP AROUND THE NEST, 

A RECURSIVE CELL AND 

EOtdF THE STATEMENTS IN 
CHECKED FOR ThE EXlSTANCE 

NEST, IF SO. The The jumps 

COMPILING THE REQUIRED 



FIXED. IF REQUIRED. AND nEST LEVEL 
To THEIR ORIGINAL VALUES* I 



16098000 T OlOSiOOOOlO 

16099000 T OlOSiOOOOlO 

16100000 T OlOSiOOOOlO 

16101000 T OlOSiOOOOlO 

16102000 T OlOSiOOOOlO 

16103000 T OlOSiOOOOlO 

16104000 T OlOSiOOOOlO 

16105000 T OlOSiOOOOlO 

16106000 T OlOSiOOOOlO 

16107000 T OlOSiOOOOlO 

16108000 T OlOSiOOOOlO 

16109000 T OlOSiOOOOlO 

16110000 T OlOSiOOOOlO 

16111000 T OlOSiOOOOlO 

16112000 T OlOSiOOOOlO 

16113000 T OlOSiOOOOlO 

16114000 T 01081000010 

16115000 T OlOSiOOOOlO 



STACK(F+2) 
STACKfF*3) 



JOINT 
BnSFIX 



RFAl JOINT, BnSFIX; 



IF elclassi^liTno then 

BEGIN 

EMlTc(ELBATtI],ADDRESS»CRF)> BNSFIX* L> 

EMITCBNS)! 

END 
ELSE EMITc(ELBATtn,ADDR 
IF STEPI # LFTPAREN THEN 



START 



16116000 

16117000 

OF SEGMENT 

I6l iSOOO 



T 01061000010 
T OlOSiOOOOlO 

T 01121000010 



ESS*BNS)> 
BEGIN ERR(262)I GO TO EXIT ENOl 



16119000 T 

16120000 T 

16121000 T 

16122000 T 

16123000 T 

16124000 T 

16125000 T 



01121000010 
01121000011 
O112IO0OU2 
01121000313 

0112I0004U 
01121000411 
01121000611 



COMMENT 



nfstuevel^nestlevel ♦ \t 

JOINT • JOlNFOl 
JOlNpO «■ 0> 
DO BEGIN 

STPPlTI ERRORTOr, • true; STRFAMSTMT 

END UNTIL ELCLASS # SrMlcOLON ; 
TF EL.CLASS * RTPAREN ThCN REGIN eRR(?62)IG0 TO EXIT ENdI 
EMIT ( ENS)I 
IF JOINFO # THEN 

BEGIN 

PREPARE TO CAtU JUMPchAIN FORJUMPOUTS? 

adjust; 

PUT(TAKECGlTCJOfNFO))tL[LOcrUDJ»GlT(JOlNFO))l 
UMPchAIN(TaKe(JOiNFO)&JOINfO[35i35ii33)| 
NO) 



JUf 



ENOI 



IF BNSFtX / THEN F? XC (BNSF 1 X ) » 
NeSTLEVEU ♦ NESTLeVEL"1> 
JOiNfO ♦ JOINT I 

fxiTi end NfSTS > 



11? IS 



16126000 T 0112 

16127000 T 0112 

16128000 T 0112 

16129000 T 0112 

16130000 T 0112 

16131000 T 0112 

16132000 T 0112 

16133000 T 0112 

16134000 T 0112 

16135000 T 0112 

16136000 T 0112 

16137000 T 0112 

16138000 T 0112 

16139000 T 0112 

16140000 T 0112 

16141000 T 0112 

16142000 T 0112 

16143000 T 0112 

16144000 T 0112 

34 LONG* NEXT 



1000913 
iOOlOt 1 
1001113 
t00l2t0 
«00l3t2 
I00l4t0 
1001610 
1 00 1 811 
1001912 

1002010 
1002011 
t0020tl 
1002112 
100241 1 
1002611 
1002611 
1002811 
1003010 
1003011 
SEG 106 



COMMENT Labels handles stream labels, 

ALL labels are ADJUSTED TO THE BEGININ6 OF THE NEXT 
WORD (IN THE PROGRAMSTREAM), 

if a go to has not been encountered before the label 
Then the nest level field is entered and the defined 

ri»n. SET To ONE, FOR DEFINED LABELS. JF WHERE A so 
HAS APPEARED, A CHECK IS MADE THAT THE CURRENT NEST 
MATCHES THE LEVEL OF THE LABEL. 

MULTIPLE OCCURAnCES ARE ALSo CHECKED FOR AND FLAGGED 
FlNALLYiJUMPCHAlN IS CALLED To FIX UP ANY FORWARD GO 
AND GET A PRT LOCATION FOR ANY JUMPS i.6H SYLLABLES. 
PROCEDURE LABELS! 
PRT(741) m LABELS 

BFGIN 

Real gti; 



16145000 T OlOSlOOOOtO 

16146000 T 01081000010 

16147000 T 0108(000010 

16148000 T OlOStOOOOtO 

BIT* 16149000 T OlOSlOOOOlO 

To 16150000 T oioatooooio 

LFVEL 16151000 T OlOStOOOOtO 

16152000 T OlOStOOOOlO 

. 16153000 T 01081000010 

TOS 16154000 T 01081000010 

t 16155000 T 01081000010 

16156000 T 01081000010 



STACKfF+2) « GTi 



16157000 

16157100 

START OF SEGMENT 



T 01081000010 
T 01081000010 



ADJU 
GTl 
XMAR 
IF S 
FLSE 



STI 

♦ ELBATtm 

KfLBLREF)! % MARK LABEL OCCURENCE FOR XREF 

TEpI * COLON THEN ERR(?58) 

BEGIN 

IF TaKE(GT2*GIT(6T1)).L0C «» THEN FLAG(259)| 

IF GT1>0 THEN 

BEGIN 

PUTC-(TAKErGTl)«NESTLEVFL[ll«43J5]),GTl)) 

PUT(-L.GT2) 

END 
ELSE 

BEGIN 

IF GTI.LEVCL^NESTLEVEL ThEN FLAG(257); 

PUT{CL)«TaKe(GT?)[LGTFLD1.GT2); 

JUMPCHAiN(gTi)I 



16158000 T 01131000010 

16159000 T OlUlOOOOll 

XnO» 16159100 C 0113*000113 

16160000 T 01131000513 

16161000 T 01131000713 

16162000 T 01131000610 

16163000 T 01UI0008JI 

16164000 T 01131001211 

16165000 T O1UI0013I2 

16166000 T 01131001313 

16167000 T 0ll3l00i6»l 

16168000 T 0ll3«00l7l2 

16169000 T 0ll3»00l7l3 

16170000 T Oll3«00l7l3 

16171000 T 0ll3«00l8l0 

16172000 T 01131002011 

16173000 T 0113«0023»3 



endi 

END 
I STCPITl 

fno Labels ; 



113 IS 



16174000 T 
16175000 T 
16176000 T 
16177000 T 
27 LONG. 



01191002410 
0ll3l002*«0 
01131002410 
0113100241 1 
NEXT SEG 108 



PRT(742) ■ fPS 



COMMENT irS COMPILES IF STATEMENTS, 

FIRST The Test ts compiled, note that in the 

CONSTRUCTS "SC ReLOP OC" AND "SC RELOP STRING" THAT 
The SYLLABLE EMfTTED IS FETCHED FROM ONE OF TWO FIELDS 

IN The elbat word for the Relational operator, otherwise 
The code is emitted straightaway. 

A TEST IS MADE TO SEE WHETHER THE STATEMENT AFTER THE 
"THEN" COULD POSSIBLY BE LONGER THAN 63 SYLLABLES. AND IF 
So. Z NOPS ARE EMITTED FOR FIXC IN CASE A RCA W|LL HAVE 
To BE GENERATED. 

This procedure ooes no optimazation in the cases 
IF Then go tq l.if then statement else go tq l» or 
IF Then go to li else go to l? * 
procedure ifsi begin 

DEFINE C0MPAREC0DE»C42l63f,TESTC0DEwf36l63#; 



16176000 T oioatooooto 

16179000 T 01081000010 

16180000 T 01081000010 

16181000 T OlOSlOOOOtO 

16182000 T OlOStOOOOlO 

16183000 T OlOSlOOOOtO 

16184000 T OlOStOOOOlO 

16185000 T OlOaiOOOOtO 

16186000 T 01061000010 

16187000 T 01081000010 

16188000 T 0l08»0000l0 

16189000 T OlOSiOOOOtO 

16190000 T oioaiooooto 

16191000 T 01081000010 



STACKfF+2) 3 ADDR 
STACK(F*3) « FiXi 
STACKfF+4) « FIX? 



LABEL IFSB.IFT 
SWITCH IFSW •- I 
REAL ADDR.FlXi, 



og.ifscexiti 

FSB. irTOG. irSCJ 
FIX2 » 



16192000 
START OF SEGMENT 
16193000 
16194000 
16195000 



T oioaiooooio 

**«**#4i*«4i 114 

T 01141000010 
T 01141000010 
T 0114(000411 



I -SBV+1] I 
,ID THfN 



ADDR*1 ) 

GO TO IFSWCSTEP 

IF ELCLASS»LOCL 

RFGIN 

EMlTr.(ELBAT[l].ADnRESS.CRF)l 

addR*oi 

END 



ELSE 

IF ELCLASS 

ElSE BEGIN ERR( 

IF STEpI # SCV 

IFSCj IF STEpI # RELO 

IF STEPI • DCV 
ELSE 

if elclass 

emitc 

flse 

IF elclass«litn 

IF ELCLASS<IDMA 
ELSE BEGIN ERR( 
60 To IFTOG I 
IFSBl EM1TC(1«8|T)| 
IFToGi IF STEpI # THEN 
FiXi * L; 
EMITCJFOj 



•LITNO THEN ADDR ♦ ELBATt I ], ADDRESS 

250)1 GO To EXIT ENOI 

THEN BEGIN ERR(263))G0 To EXIT ENDI 

P THEN BEGIN ERR(264)lG0 TO EXIT END» 

THEN EMITC( ADDR.ELBATt 1-13 . COMPARECODE ) 

« STrNGCON THEN 
CACCUM[l],tl8l6J.ELBAT[I-l],TESTC0DE) 

THEN FMlTc(C»ELBATCl"n,TESTcOOE) ELSE 
X AND a«"5ALPHA" THEN pMl TCC l7, TAN ) 
265);60 TO EXIT ENDJ 



V THEN BEGIN ERRC266)I GO TO EXIT ENDJ 



16196000 T 01141000411 

16197000 T 01141000513 

16198000 T 01141000912 

16199000 T 01141000913 

16200000 T OlUtOOlOtO 

16201000 T 01141001210 

16202000 T 01141001211 

16203000 T 0il4l00i2U 

16204000 T 01141001211 

16205000 T 0il4»00i4«l 

16206000 T 01141001713 

16207000 T 0114J0020II 

16208000 T 01141002313 

16209000 T 01141002611 

16210000 T 01141002713 

16211000 T 01141002811 

16212000 T 01141003112 

16212500 T 01141003210 

16213000 T 01141003610 

16214000 T 0114)003913 

16215000 T 01141004312 

16216000 T 01141004313 

16217000 T 01141004512 

16218000 T 01141004713 

16219000 T 01141004811 



IF STFRlJiFUSFV THFNX 

STRFAMsTMT) 

IF FLCLaSS" FLSEV THpN 

8FG1N 

FtX2 ♦ L; FMlT(JrW)l 

FlXCfFlXl)! 

STEPfTI 

STREAMSTMr? 

FIXC(FIX2)> 
END 
FLSF FlXc(FlXn) 
FXITJENI) IFS I 



114 IS 



16?20000 T Oil 

162P9000 T on 

16230000 T Oil 

16231000 T on 

16232000 T On 

16233000 T On 

1623*000 T On 

16235000 T On 

16236000 T On 

16237000 T on 

16238000 T on 

16239000 T on 

61 U0NG» NEXT 



41004912 
41005010 
41005112 
410052(0 
4)005211 
41005410 
41005411 

41005512 

4»0055»3 

4l0056n 
4l0056tl 

4l0057t3 
SCG 106 



PRTC743) • ftOTOS 



COMMFNT GOTOS HANDLES fiO TO AND THE UAST PaRT OF JUMP OUT TO 
STATfMFNTS, 

IF The label has been encountered then emiTjUmp is called 

An produces a JRV or RCA in The case of jUMP&>64 syllaBl 
ES. oTHERWISEf A LINK IS EMITTED POINTING ANY PREVIOUS 
Go ToS IN THE CaSF OF FORWARD JUMPS, 

riNALLY* IF THE NEST LEVEL IS DEFINED THEN IT IS CHECKED 
AGAINST THE CURRENT LEVeL MINUS THE NUMBER OF LEVELS TO 
BE JUMPED OUT. OThERWi SE»NEST LEVEL IS DEFINED. I 
PROCEDURE GOTOS; 

BFGIN 
LABEL eXITJ 

IF STEP! #TOV THEN UI-1 i 

IF STEPI # STLABID ThEN IF ELCLASS i IDMAX THEN 

DEClARElABEL ELSE BEGIN ERR(260)1 Go Tq EXIT ENDj 
!FCGT2*TAKE(GIT(GTl*ELBATtn))).M0N«l 
OR GT2,L0C««0 THEN EMlTjUMPtGTl) 
ELSE 

BEGIN PUTC08Lt24|36n2]»GITCGTl))| 
If GT1>0 THEN 
BEGIN 

PUT(-(TAKFf6Tl)«fNESTLEVEL-jUMPLEVEL)tin43t51).r,Tl)l 

EMlTN(l023); 

END 



16240000 T 01081000010 

16241000 T O1O6IOOOOIO 

16242000 T OlOetOOOOtO 

16243000 T OlOSIOOOOlO 

16244000 T 01081000010 

16245000 T 01081000010 

16246000 T OlOSlOOOOtO 

16247000 T 01081000010 

16248000 T OlOBlOOOOlO 

16249000 T 01081000010 



ELSE 



BEGIN 

IF 6T1. LEVEL # NESTLE VEL-JUMPLEVEL THEN FLAG(257)» 

EMIT(GT2.LaSTGT)| 



EXITi 



ENDI 
ENDI 

jumplevel*o 
fnd gotos 



16250000 T 01 

16251000 T 01 

START OF SEGMENT **»♦» 

16252000 T 01 

16253000 T 01 

16253100 T 01 

16254000 T 01 

16255000 T 01 

16256000 T 01 

16257000 T 01 

16258000 T 01 

16259000 T 01 

16260000 T 01 

16261000 T 01 

16262000 T 01 

16263000 T 01 

16264000 T 01 

16265000 T 01 

16266000 T 01 

16267000 T 01 

16268000 T 01 

16269000 T 01 

16270000 T 01 

115 IS 29 LONG* NEX 



081000010 

08l0000t0 

***** 115 

15»0000»0 

15t0002M 

15»0005t2 

15>0007>3 

151001011 

151001313 

15»0014I0 

151001712 

151001713 

I51OO18IO 

151002112 

15)002210 

151002210 

15(002210 

1510022(1 

15(0025(3 

15(0027(2 

1510027(2 

15(0027(2 

15(0027(3 

T SE& 106 



COMMENT RElFASES COMPILES THE STREAM RELEASE STATEMENT. 



16271000 T 0108(0000(0 



thf Code generated is t 

SED FItE 

RSA 0, 
AT EXECUTION TIME THIS CAUSES 
INTERFFTED BY THE MCP TO MEAN 
BY The DESTINATION ADDRESS, 

The monitor bit is set in INFO FOR The LOCAL vaRiablf so 
That acutal parapart may be informed later that a file 

MUST BE passed FOR THiS FORmAl PARAmETERI 



an invalid address which is 

RELEASE the FILE POINTED TO 



PRTC744) * 



STACKfF+2) 
STACKfF*3) 

STACKfF+4) 
STACKfF+5> 



PROCEDURE 
INDEXS 



COMMENT INDEXS COMPILE STATEMENTS BEGINING WITH S I .01 i C I .TALLY 
OR LOCALIOS , 

Three cases present TnEWSELVESt 

LETING X BE EITHER OF SltDI.CI OR TALLY. THEY ARE« 
CASE I LOCLID * X 
CASE II X * X ,,, 

case iii x * either loc .locli d. sc or dc, 
The variable -indeX'* ts computed. depending upon which 
case exists, such that array element "macrot i ndex ]nc0nt a 1 ns 

The CODE TO BE EMITTED, 

EACH ELEMENT OF MACRO HAS 1-3 SYLLABLES ORDERED FROM 

Right to left, unused syllables must « o. each macro 

MAY REQUIRE AT MOST ONE REPEAT PART, 

IN This procedure. indfXS. The variable "adoR" contains the 

PROPER REPEAT PaRT BY THE Time THE LABEL "GENERATE" IS 
encountered. THF SYLLABLES ARE FETCHED FROM MACROfTYPEl 
ONE AT A TIME AND IF THE REPEAT PART * THEN-ADDR" IS 
USED AS THE REPEAT PART. THUS BUILDING A SYLLABLE WITH 
The PROPER ADDRESS AnD OPERATOR , 

NOTE! IF MACR0tTYpE3 s THEN THIS SIGNIFIES A SYNTAX 
ERROR. I 

indexsi 



tclass 
index 

ADOR 

J 



BFGIN 

LABEL EXlT.GENERATE»LfLl» 

INTEGER TCLASS, INDEX. ADDR.JI 



TCLASS * ELCLASS ; 

IF STEPI # ASSIGNOR THEN BEGIN ERR(25l)> GO TO EXIT ENDI 

IF TCLASS s LOCLID ThEN 

BEGIN 

XMARKCASSIGNREF)! 

IF SIV>STePI OR ELCLASS>TALLYV THEN GO TO L) 

INDEX * 32 + ELcLaSS-SIV; 

ADDR ♦ ELBATri*2],A0DRESSI 



START 



XllO- 



16272000 




01081000010 


16273000 




01081000010 


16274000 




01081000010 


16275000 




oioaiooooto 


16276000 




01081000010 


16277000 




01081000010 


16278000 




oiodiooooto 


16279000 




OlOStOOOOtO 


16280000 




oioaiooooio 


16281000 




oiosiooooto 


16282000 




oiostooooto 


16283000 




01081000010 


16284000 




01081000010 


16285000 




01081000010 


16286000 




01081000010 


16287000 




01081000010 


16288000 




01081000010 


16289000 




01081000010 


16290000 




01081000010 


16291000 




01081000010 


16292000 




0l08<0000t0 


16293000 




OlOBlOOOOtO 


16294000 




oiosiooooto 


16295000 




oioaiooooto 


16296000 




oiosiooooto 


16297000 




Oiostooooto 


16298000 




Oiosiooooto 


16299000 




Oiostooooto 


16300000 




Oiostooooto 


16301000 




Oiostooooto 


16302000 




oiostooooto 


16303000 




Oiostooooto 


16304000 




Oiostooooto 


16305000 




Oiostooooto 


16306000 




Oiosiooooto 


16307000 




Oiostooooto 


16308000 




Oiostooooto 


16309000 




oiostooooto 


16310000 




Oiostooooto 


16311000 




OlOSlOOOOlO 


16312000 




oiostooooto 


16313000 




Oiostooooto 


OF SEGMENT 


**«*«*«««* ]^(i 


16314000 




01161000010 



16315000 
16316000 
16317000 
16318000 
16318500 
16319000 
16320000 
16321000 



T 01161000010 

T 01161000011 

T 01161000313 

T 01161000410 

C 01161000411 

T 01161000912 

T 01161001113 

T 0ll6t00i3l3 



GO To GENERATE* 

end; 

IF TcLaSS « STfPl ThfN 
REGIN 
IF STEPI »* ADDOP oR STEPUt LITNO AND ELCLASS # LOCUID THEN 

GO TO l; 
INDEX •• TCUASS-SfV 

+RFAL{ELBATt I-1].A0DRES5pSUB) x 4 

* REAlCELCLASS »l0CUID) k 8» 
FND 

flse 

BEGIN 

INDEX *. TCIASS -SiV 

+ ( IF ELCLaSS « LOCLID ThEN 16 ELSE 

IF ELCLASS m LOCV ThEN 20 ELSE 

IF ELCLASS « SCV THEN 24 ELSE 

IF ELCLASS. DCV TheN 28 ELSE 25)1 
IF ELCLASS « LOcV THEN 

IF STEPi * LOCLID THEN GO TO It 
IF ELCLASS m LITNO AND TCLASS ■ TALLYV THEN 

BEGIN EMTTcCrLBATrn.ADDRESS#SEC)»GO TO EXIT ENOI 
END I 

ADDR * ELBATrn, address; 
genfRate; 

IF MACR0[ INDEX]p ThEN 
LJ BEGIN ERR(250);gO to exit end; 
J «- 8) TCLASS •0 ; 
Lll M0VFCHARACTERS(2.MACR0riN0EXl»J*J-2.TCLASS»6 ); 
IF TcLaSS^O THEN 
BFGIN 

EMiTcdF TCLaSS>64 THfN ADDR ELSE 0. TCLASS); 
GO TO LI 

end; 
exit'fnd indexs ; 



116 IS 



16322000 T 

16323000 T 

16324000 T 

16325000 T 

16326000 T 

16327000 T 

16328000 T 

16329000 T 

16330000 T 

16331000 T 

16332000 T 

16333000 T 

16334000 T 

16335000 T 

16336000 T 

16337000 T 

16338000 T 

16339000 T 

16340000 T 

16341000 T 

16342000 T 

16343000 T 

16344000 T 

16345000 T 

16346000 T 

16347000 T 

16348000 T 

16349000 T 

16350000 T 

16351000 T 

16352000 T 

16353000 T 

16354000 T 

16355000 T 

62 LONGf NEX 



61001513 
6>00i6t0 
61001610 
6i00l7l2 
61001713 
6l00l9l3 
61002113 
61002210 
61002410 
61002712 
6t0027t2 
6«0027I2 
61002713 
61002610 
61003010 
6t0032l0 
61003410 
61003712 
61003610 
61004010 
61004113 
6I0044>1 
6100441 1 
61004610 
61004610 
61004712 
61004912 
61005011 
61003410 
6I0054U 
61005512 
61005610 
61005811 
61005811 
SEG 106 



PRTe745) • DSS 



COMMENT DSS COMPILES DESTINATION STREAM STATEMENTS. 

0S«- LIT^STRiNQt* IS HANDLED AS A SPECIAL CASE BECAUE THE 
STRING MUST BE SCaNED FROM RIGHT TO LEFT. REPEATEDLY IF 
NFCESSARY. AND EMlTTfo TO THE PROGRAM STREAM, IN 
ALL OTHER CASES, The ElBAT WORD CONTAINS THE OPERATOR IN 

The OPCODE FIELD ; 

PROCEDURE DSS; 



BFGIN 
INTEGER 



AODR»Jf K»L»T; 



STACKfF+2) ■ A 

STACKfr+3) m J 

$TACKfr^4} a K 

STACKfF+5) m I 

STACKfr+6) « T 



DDR 



START 



LABEL FXlT,Li; 

DEFINE 0PC0DE»[27l6]#; 

IF STEPI # ASSlGNOP THEN 



BEGIN ERRf25l); GO TO EXIT END; 



16356000 
16357000 
16358000 
16359000 
16360000 
16361000 
16362000 

16363000 
16364000 

OF SEGMENT 



16365000 
16366000 
16367000 



T 01081000010 

T 01061000010 

T 01061000010 

T 01081000010 

T 01081000010 

T 01081000010 

T 01081000010 

T 01081000010 

T 01081000010 



T 01171000010 
T 01171000010 
T 01171000010 



IF STPPI m LOCUID ThfN 
BEGIN 

FMlTccFLBATtlD.ADDRESSfCRF); 
ADDR* 0; 

IF STFPi « uiTV Then go to ui 

END 
ELSE IF ELCLASS* LUnO THEN 

BEGIN 

ADDR * ELBATtU.ADDRESSl STePiT I 

END 
FUSE ADDR *• 1 » 

IF « *4f!LL0« Then emitc? addR»iO) else 

!F ELCLASS « TRNSfER Th£N FMfTC C ADDR»FUBAT t I ]. OPCODE ) 

ELSE 

IF FLCUASS B LITV THEN 

BEGIN 

EMITC(ADDR»TRP)| 

IF stepi^strngcon then 

BEGIN ERRt?55)iG0 TO EXIT END; 
IF ADDR MOD 2 jt THEN 

BEGIN 

EMlT(ACCUMrl).[18s6]); J * U 

END i 
FOR K *J+? STEP 2 UNTIL ADDR DO 

BEGIN 

FOR L •-6»7 00 

M0VECHARACTERS(l,ACCUMtl]»2 + (IF J«-J*1>C0UNT 
STACK(F+7) « ♦TEMPORARY STORAGE* 

fLSE J).T.L )| 

EMITCT)) 
E:ND END 

flsf 

Lt« ERR(250); 
FXlT«END nsS » 



XE 



THEN J*l 



16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16376000 
16375000 
16376000 
16377000 
16378000 
16378500 
16379000 
16380000 
16381000 
16382000 
16383000 
16384000 
16384500 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



117 IS 



16393000 T 

16394000 T 

16395000 T 

16396000 T 

16397000 T 

16398000 T 
52 LONGt 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
NEX 



71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
7» 
7t 
71 
71 
71 
71 
71 
71 
71 
71 
71 



000211 
000313 
000410 
000610 
000611 
0007»3 
000810 
000913 
OOlOlO 
001210 
001210 
001312 
001513 
00i9l2 

002010 
002112 
0021»3 
002211 
002313 
002513 
002611 

002712 
002913 
002913 
003313 
003313 
003810 



71004113 
71004411 
71004513 
71004610 
71004610 
7(004713 
SEO 106 



PRTf746) * SKIPS 



STACKrF*2) ■ ADDR 



COMMENT SKIPS COMPILES ThE SKIP BIT STATEMENT, 

IF The REPEAT INDEX IS A LOCALID THEN A CRF IS EMiTTFD. 
A BSS OR BSD IS THEN EMITTED FOR SKIP SOURCE BITS (SB) 
OR SKIP DESTINATION BiTS (DB) RESPECTIVELY I 
PROCEDURE SKIPS ; 



16399000 T 

16400000 T 

16401000 T 

16402000 T 

16403000 T 



BEGIN 
REAL ADDRI 



IF STEPI s LOCUID THEN 

BEGIN 

EMlTCCELBATt n,ADDRESSiCRF)l ADDR*Ol STEPITI 

END 
ELSE TF ELCLASS » LITNO TreN 

BEGIN 

ADDR* FLBATfi], address; STEPIT 

FND 



16404000 

16405000 

START OF SEGMENT 



01061000010 
01081000010 
01081000010 
01081000010 
01081000010 



T 01061000010 
T 01081000010 



16406000 T 

16407000 T 

16408000 T 

16409000 T 

16410000 T 

16411000 T 

16412000 T 

16413000 T 



01181000010 
01181000112 
01181000113 
01101000411 
01181000411 
01181000513 
01181000610 
01181000713 



fLvSf AnoR ♦ 1 I 

TF FLCLASS »SBV 

flse 

IF fuclass *DBV 

Fl.SF E:rR{?50)) 

FND Skips t 



Then EMiTcr adoh»bss) 
Then cmiTc(ador,bso) 



16414000 
16415000 
16416000 
16417000 
16416000 
16419000 



T OllSlOOOStO 

T 01181000913 

T 0ii8t00ill2 

t oiiatooiiu 

T 01181001410 

T 0ll8l00i5»3 



118 IS 18 LONGt NEXT SE6 108 



PRT(747) « JUMPS 



COMMENT JUMPS COMPILES JU 
JUMP OUT TO STA 

The NUMBER Of l 

JNS are EMITTED 

jump instructio 
Simple jump out 

A PSEUDO STlABI 

The gotos proce 
Up The links fo 
These fix ups( i 
GO tos when The 

procedure JUMPSI 

BFRIN 
JUMPLEVEL*1J 

IF STEPli'DCCLAR 



MP OUT AND JUMP OUT TO STATEMENTS, 
TEMENTS CAUSE JUMP LEVEL TO BE SET TO 
fVfLS SPECIFIED. THEN ThiS NUMBER OF 

AND GOTOS IS CALLED TO COMPILE THE 
Nt 
S ARE HANDLED BY EMITTING ONE JNS, ENTERING 

D IN Info and setting elbatci] such that 

DURE WILL PERFORM THE ACTION OF SETTING 
R LATER FIX UPS. THE NEST STATEMENT CAUSES 
F EMITTING OF JUMP INSTRUCTIONS) BY CALLING 

Right paren is encountered, t 



COMMENT 



OUT 
T 

» N 



IF STEPI 

ELSE Begin 

IF ELCLASSt* 
BEGIN 

Simple jump 

IF JOINFO « 
BEGIN 
JOjNfO 
PUTNBUMPcS 
r2»40 
PUTNBUMP(0 
PUTNBUMP ( 
LASTlNFO ♦ 

eno> 

ELBATtI* I-n* 
ENDI 1*1-1 J 



ATORS THEN IF ACCUMf 1 ] jt^aOUTOO" THEN 
FLAG(261)) 

litno Then jumplevel* elbatei], address 



TOV AND ElCLASS# STLABID THEN 



STATEMENT! 
HEN 

fxtinfo I 

TACKHEADr01,LINK&(STLABlOK2+n 
«fl]42t?7i40l8 ])J 
&(JOINfO-LASTINFO )[ 414018])! 

0); 

JOINFO; 
TAKEcJ0lNF0)4J0lNF0t35J35«l33! 



FNQ! 

FOR GTl* 1 
EMIT( 
GOTOSI 
FNd JUMPSI 



STEP 1 UNTIL JUMPLEVEL DO 
JNS)! 



16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 

16432000 
16433000 
16434000 
16434100 
16435000 
16436000 
16437000 
16438000 
16439000 
16440000 
16441000 
16442000 
16443000 
16444000 
16445000 
16446000 
16447000 
16448000 
16449000 
16450000 
16451000 
16452000 
16453000 
16454000 
16455000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



01081 
0108! 

oioei 

0108! 
01081 
0108! 
01061 
0108! 
0106! 
0108 1 
0108! 
0108! 

0108! 
01081 
0108! 
0108! 
0108! 
0108! 
0108! 
0108! 
0108! 
0108! 
0108! 
0108! 
Ol08t 
01081 
0108! 
0108! 
0108! 
0108! 
01081 
0108; 
0108! 
01081 
0106! 
0108! 
0108! 



000010 
0000!0 
OOOOIO 
0000!0 
0000!0 
OOOOIO 
OOOOtO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 
OOOOIO 

OOOOIO 
OOOOIO 
000113 
000410 
000513 
000712 
OOlOlO 
001113 
001210 
001210 
001312 
001313 
00i«t0 
001611 
OO1811 
002112 
002113 
002211 
002211 
002610 
002713 
002713 
002912 
003210 
003211 



COMMENT STRfAMSTMT ENVOKfS THE APPROPRIATE PROCEDURE TO HANDLE 

The VARIOUS and sundry stream procedure statements. 

The STATEMENTS aRe BRoKEN DOWN AS FOLLOWS! 

IDENTIFIED BY PROCEDURE ENVOKED 



16456000 
16457000 
I6458OOO 
16459000 



T 01081003211 

T 0l08t0032!l 

T 01081003211 

T 01081003211 



END 

SEMICOLON 

) 

IF 

60 

RELEASE 
BEGIN 

SI »Dl»ClfTALLY»LOCALlD 
OS 
SKIP 

JUMP 

LABELID 

LITERAL NO.iLOcALlD( 
UPON FXlTlNQpSTREAMSTMT 
The SEMICOLON ifNd OR ) 



GO TO FINI 
GO TO FINI 
GO TO FINI 
IPS 
GOTOS 
RELEASES 

COMPOUNOTAIL 
INDEXS 

DSS 

SKIPS 

JUMPS 

LABELS 

NESTS 
ASSuRrS THAT "!'♦ POINTS 
IN SYNTACTCALLY CORRECT 



TO 
PROGRAMS! 



LSI 



STARTI 



IF 

IF 

IF 
l« 
LI I 
L?« 
1, 3 J 
1,41 

L6« 
iTt 
18 « 
1.91 
LlOl 
EXtTI 
FINI« 



LABEL LiLlfL2iL3.L4,L5*L6,L7.L8,L9iLl0.EXlT,FlNi.STARTI 
SWITCH TYPE ♦ FlNi,L.FlNI,L3,L4»L5.L6.L''»L7,L^.L7,LflfL9.Ll0l 



GO TO TYPE! ELClASS-ENDV+1 J » 

IF elclaSS* rtpaRen Then go To fini 

IF ELCLASS* STLABiD ThEN GO TO L? > 



1 



ELCLASS <IDMAX AND ELCLASSjtLOCLI 
DECLARELABEL; GO TO L2J ENQI 

ELCLASS s LiTNO OR fLCLaSS » LOcLlO 
» LFTPAREN THfN GO TO III 

ELCLASS « LOCLID ThEN GO TO U I 
ERR( 250 )l GO TO FiNi | 



THEN BEGIN 

AND TABLE(Ul) 



nfsts; 

LABELSI 

ifS; 

GOTOSf 



GO 
GO 
GO 

GO 



TO 
TO 
TO 
TO 



EXITI 
START» 
FINM 
EXiTi 



compoundTaili 
go to exitj 

TO EXIT; 
TO EXiTi 
TO EXITI 



I«-I + l { 

indexsj 

oss; 

Skips? 

JUMPSI 

stePiti 

END STReAMSTMTI 



GO TO FINII 



GO 
GO 
GO 



16460000 
16461000 
16462000 
16463000 
16464000 
16465000 
16466000 
16467000 
16468000 
16469000 
16470000 
16471000 
16472000 
16473000 
16474000 
16475000 
16476000 
16477000 
16478000 
16481000 
16482000 
16482100 
16482200 
16482300 
16482400 
16482500 
16483000 
16484000 
16485000 
16486000 
16487000 
16488000 
16489000 
16490000 
16491000 
16492000 
16493000 
16494000 
16495000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



010810032 
0108(0032 
010810032 
0l08t0032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
010810032 
0i08l0032 
010810043 
0l08t0047 
010810048 
010610049 
010810049 

010810051 
010810052 
010810055 
010810057 
010810058 
010810060 
010810062 
010810063 
01081006ft 
010810065 
010810065 
010810067 
010810069 
010810070 
010810071 
010810072 
010810072 



108 IS 74 LONGi NEXT SEQ 



M0VE(1» t»CODEfO))l 

TIMEl ♦ TiME(l>» PROGRAM* 

ENOOFITALLI 
IF (XREF OR DEFINING. [Ill]) AND XLUN > THEN 

BEGIN DEFINE LS5» <#» 6TR«>ltNE0» i«#»LEO«<#l 
PRT(750) e *SEGMENT DESCRIPTOR* 



DEFINE XREFlNFOtlNOEXj m 



CF m C33«15]»» 

FF ■ [18«15J#» 

NEWlDtlNDEX] « 



INFO[fClNDEX),CF OlV 
r(INDEX).CF DIV 



2).r33l7l, 
2),LINKC3*» 



tlF BOOLEANdNDEX) THEN 



ELSE XREFINFOtINDEX],CF)#l 



XllOt 
«llO. 
XUO- 

xno. 

XREFINFOtlNDEXl.FF 



16495100 T 

16495200 T 

1108- 16495210 P 

XllO- 16495300 P 

X0F8 17002000 C 

START OF SEGMENT 

17002005 C 

17002006 C 

17002007 C 

17002008 C 

17002009 C 
«110- 17002010 C 



00031063610 
00031064112 
00031064211 
0003f0643»2 
OOO3IO64SI3 

01191000010 
01191000010 
01191000010 
01191000010 
01191000010 
01191000010 



PRTC751) » TIMINGS 
PRTC752) • SAVETlMfS 



STACKfF+2) a J 



ARRAY TlMINGSrO«2.0»33l 

PROCFDURE SAVFTIMESd)* 

VALUF I» INTEGfR H 
BEGIN 

iNTFGER JJ 



FOR J «■ 1 STEP 1 UNTIL 3 DO 
TIMINGS[I»J1 »« TlMEfJ)? 

ENni 



XllO- 
«llO- 



17002012 C 01191000010 
17002015 C 0119I0002»1 



HUG- 17002020 C 01191000211 

XllO- 17002025 C 0ll9l0002ll 

XllO- 17002030 C On9l0002tl 

START OF SEGMENT **♦*♦*♦**♦ 120 



IllO- 
«110» 
XllO- 



120 IS 



17002035 C 01201000010 

17002040 C 01201000112 

17002045 C 01201000513 

8 LONGt NEXT SEG U9 



PROCFDURE UPDATETlMESn)! 
PRTt753) * UPDATFTlMFS 

VALUE l> INTEGER U 
BEr,lN 

INTEGER JJ 



STACKfF*2) 3 J 



FOR J I* 1 STEP 1 UNTIL 3 DO 

TiMiNGSn.Jl Is TiMEfJ) - TlMlNGStI»J]> 

ENnJ 



i:ilO< 



17002050 C 0119I0002U 



>!llO- 17002055 C 0ll9l0002«l 

IllO* 17002060 C 01191000211 

XllO» 17002065 C 0ll9l0002»l 

START OF SEGMENT ********** 121 



IllO- 
XllO- 
XllO- 



121 IS 



17002070 C 01211000010 

17002075 C 0121I000H2 

17002080 C 01211000712 

10 L0NG» NEXT SCO 119 



PRT(754) » ♦SEGMENT 
PRT(755) ■ fNPUTi 



CL0SF(CARD»RELEASE)* 

cLoSEfTAPE. Release)' 

LOCKCNeWTaPe)! 
WRTTE(LINErPAGEl)» 

SAVETlMESfOJJ % SAVE TlMpS FOR STaKT 
FOR XREFPTt.XREFPT STEP 1 UNTIL 29 DO 
WRlTEfnSK2.30,XREFAY2t*]3l 
TOTAUNO l« XLUNJ % REMEMBER NUMBER OF 

XREFPT*XLUN«.0} 
FOR I t» STEP 1 UNTiL 8191 DO 
PUT(0,I)| 
BEGIN 

ROOLEAN PROCEDURE fNPUTlfA)? 
DESCRIPTOR* 



ARRAY AtO]; 
BEGIN 

Label l»eofi 



PRT(756) m fOF 



J108- 

xioe* 

X108- 
OF IDENTIFIER SORT. fUO- 
XREFAY2IXREFPT] I «1 00000000 ; 

«0FB 
IDENTIFIERS, IllO- 

«0FB 
*llO- 

XllO* 

XDFB 
XDFB 



RFAD(OSKl,10,Ar*3)lE:OF3l 

60 TO LI 

EOF« INPUTII.TRUEI 
REWlND(OSKl)» 



17002490 
17002500 
17002510 
17002520 
17002525 
17003000 
17004000 
17004500 
17004600 
17004700 
17004710 
17005000 
17006000 



0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 



1000211 
1000411 
1000610 
1000810 
1001210 
1001211 
t00i7t3 
1002113 
I0022U 
1002313 
I0026t0 
1002912 
1002912 



START OF SEGMENT ********** 122 



XDFB 
XDFB 

XOFB 

XDFB 

XOFB 
XOFB 
XDFB 



17007000 
17008000 
17009000 
START OF SEGMENT 
17010000 

17011000 
17012000 
17013000 



C 01221000010 

C 01221000010 

C 01221000010 

«*«*«««•«« 123 

C 01231000010 

C 0l23|0005l2 

C 01231000513 

C 01231000611 



ENDJ 



XOFB 
IDPB 



123 IS 



17014000 C 

17015000 C 

Hi LONG» 



0123I0008I1 

01231000912 

NEXT SEG 122 



PRT(r57) a OUTPUTl 



PROCEDURE OUTPUTlfB.A)J 

VALUE Bl 
BOOLEAN RJ 
ARRAY ArOll 
BEGIN 
IF B THEN 
BEGIN 

RtWlNDCDSKDI 
UPDATeTIMES(0)J 
TjMlNGStO.O] l» 
END 
ELSE 
BEGIN 
IF B0OLEAN(At8]) TreN 

XREFINF0rAt8]],FF »» 
ELSE 

XREFlNFOfAtaiJ.CF 
At8],lDN0F «« XlUNJ 
WRiTE(DSKl,iO,Ar*])> 
END? 
ENDI 



% UPDATE TIMES 
XLUNI % NUMBER 



FOR IDENTIFIER 
OF IDENTIFIERS 



XLUN a» XLUN * 1 



t« XLUN t* XLUN ♦ U 



XDF8 

XDF8 

«DF8 

XDFB 

«DFB 

«OFB 

IllO- 

XllO- 

SORT. 

SORTED. 

«110» 

«DFB 

XDFB 

xuo- 

«110- 

«110- 

XllO- 

KllO- 

XDFB 

XDFB 

XOFB 



17016000 C 01221000010 



17017000 
17018000 
17019000 
17020000 
17021000 
17022000 
17022100 
17022200 
17022300 
17022A00 
17023000 
17024000 
17025000 
17025100 
17025200 
17025300 
17025400 
17026000 
17027000 
17028000 



0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 



lOOOOtO 
lOOOOlO 
tOOOOlO 
I 0000 10 
lOOOOtO 
lOOOOlO 
lOOOOt 1 
f0002tl 
1000312 
I0005i2 
10005)2 
10005(2 
I0005t3 
1000610 
1001211 
1001410 
tO02H3 
1002313 
1002810 
1002810 



PRT(760) » cOMPSl 



BOOLEAN STREAM PROCEDURE COMPSlCAtB)! 



BEGI 
Sp« 

ni :■ 

IF 6 
TA 

ELSE 
BE 



EN 
COMP 
ENDI 



N 

A) 

B) 

3 sc < DC Then 

LLY Je 1 

GIN 

SI IK A} 

Dl le Bl 

if 63 sc ■ dc then 

Tally ?» 21 
m 

siutally; 



?DFB 

XDFB 

XDFB 

XDFB 

XllO- 

XllO- 

XllO- 

XllO- 

XllO- 

XllO- 

XllO- 

XllO- 

XllO- 

XDFB 

XDFB 



17029000 C 01221002810 



17030000 
17031000 
17032000 
17033000 
17033100 
17033200 
17033300 
17033400 
17033500 
17033600 
17033700 
17033800 
17034000 
17035000 



0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 
0122 



1002810 
>0029i2 
1002912 
1002913 
IOO3O1O 
1003010 
lOOsOtl 
1003011 
I0030ri 
1003112 
1003113 
1003113 
1003113 
1003210 



PRT{76n ■ hVSI 



stream PROCEDURE HVStCA)! 

BEGIN 
DI t-A? 



XDFB 

XDFB 
XDFB 



17036000 C 01221003312 



17037000 
17038000 



C 01221003312 
C 01221003312 



DS««8 Ln '•9"J KOFB 

Sl««A? XOFB 

ns»» 7 WDS) xdfb 

DS «. 8 LIT V'777777777^; % ID. NO. aNo SEG.NO. FIElOS fllO- 

ENDI XOFB 



17039000 
17040000 
17041000 
17041100 
17042000 



C 0122I0033«2 

C 01221003411 

C 0l22l003*«l 

C 01221003312 

C 01221003610 



PRT(762) « cOMPl 



BOOLEAN PROCEDURE C0mP1(A»B)) XDFB 

ARRAY AtBrO]; XOFB 

IF REALCCOMPlUCOMPSl(A,B)) » 2 THEN % IDS EQUAL »llO» 

COMPl Ic Ar8],IDN0F < Bt6],lDN0F; XllO- 



17042100 C 0l22t0036tl 



17042200 
17042300 
17042350 



C 0122«0036»1 
C 0122J0036II 
C 0l22t0040t0 



PRT(763) » hVI 



PROCEDURE hV1(A)J 

ARRAY AtO]> 
HVSKA).* 



XDF8 

XOFB 
XDFB 



17042400 C 01221004512 

17042500 C 01221004512 
17042600 C 0122«00«5I2 



PRT(764) » SORT TEMPORARY 
PRTC765) « MERGE 



XLUNSbOI XOFB 

RFWINDCDSKDI XDFB 

sort(Outputi»inputi.o»hvi»compi»io, IF totauno < 1000 Then xiio- 



PRT(766) m SORT 



7000 ELSE lOOOO)) 



END; 



PRT(767) • ♦SEGMENT DESCRIPTOR* 



BEGfN 
ARRAY lDTYPEtOJ(lDMAX+43x4-l]l 
PRT(770) K ♦SEGMrNT DESCRIPTOR* 

PRT(771) » TDTYPE 

STREAM PROCEDURE SETUPHEAO? NGC S» D» SE6. SEQNO » FWDTOG»LBUTOG» 
PRT(772> b SETUPhEADING 

fwdseqno,type#owntog.paramtog. 
valtog); 
VALUE seg»seono»fwdtog,lblTog»fwdseonoiiowntog#paramTog» 

VALTOGI 
BEGIN 

SI is Si 

ni i» Di 

63 (IF Sc » •♦ " THEN JUMp OUT ELSE OS !• CHR)J 

nS !■ 6 LIT ♦• -- "J 

OWNT06 (DS t« 4 LIT "OwN ")) 

SI l« TYPEI 

32 (IF Sc w •♦.•' THEN JuMP OUT ELSE DS Ib CHR)) 

PARAMT06 (OS »■ 6 LiT " -• 'M 

DS i» 4 Lit -Name"; 



XI 10- 

XDFB 



XDFB 
X112- 



122 IS 



17043000 C 01221004712 
17044000 C 01221004611 
17045000 C 01221005011 



17045100 C 01221007011 

17046000 C 01221007211 

79 LONG. NEXT SE6 119 

17047000 C 0ll9l003l»2 

17047100 C 0119I003H2 



START Of SEGMENT *»♦**»*♦•* 124 

XllO- 17047200 C 0l24l0005l2 

XllO- 17047300 C 0l24|0005»2 

XllO- 17047350 C 0i24»0005»2 

XllO- 17047400 C 0l24»0005t2 

XllO" 170*7450 C OI24I0005I2 

XllO- 17047500 C Ol24«0005t2 

XllO- 17047700 C 01241000610 

XllO- 17047800 C 01241000610 

XllO- 17047900 C 0l24|0006ll 

XllO- 17048000 C 01241000912 

XllO- 17048100 C 01241001010 

XllO- 17049300 C 0l24l00l2l0 

XllO- 17049400 C 01241001210 

XllO- 17049410 C 01241001512 

XllO- 17049420 C 0l24l00l7l2 



VaLTOG (DI «» DI * 'ii OS l» 5 LIT "VALUE")* 

DS J» 10 LIT " PARAMETER"); 
nS J« 18 LIT " -- OFCLARED AT "l 
SI is LOC SeQNO) 
r>S l« 8 DEC) 
rWoTOG fDS IB 17 LIT 

SI IB LOc rwDSrONOj 

DS I* 8 OEOI 
LBLTOr, (dS I» 16 LIT 

Si !■ LOC FWDSEQNO) 



-• FORWARD AT "; 



-- OCCURS AT "J 



END OF 



DS U 8 DEOJ 

seTupheaoinr* 



«110« 
XI 10- 
IllO* 
XllO- 
SEllO- 
fUO- 

ino- 

XllO- 
XllO- 
1110- 
XI 10- 
«ll0- 



17049430 
17049440 
17049500 
17050400 
17050500 
17050600 
17050700 
17050800 
17050900 
17051000 
17051100 
17051200 



C 01241001713 

C 01241002010 

C 0l24t0022l0 

C Ol24t002«Jl 

C 01241002411 

C 01241002512 

C 01241002611 

C 01241002611 

C 01241002912 

C 01241003211 

C 01241003211 

C 01241003312 



PRT(773) « ADDASeONO 



STREAM PROCEDURE ADDASEQnO( SEQN0#N» STARS.D ) » 

VALUE SEONO.N.STaRSi 
BEr.lN 

DI «« D» 

ni »» DI + 8> 

N (Dt l» DI + lO)J 

STaRS(DI I» DI - 11 DS t« LIT «*")! 

SI Is LOC seqno; 

nS IB 8 DECI 

nS IB LIT " "I 

STARS (Dl «B 01 •■ IJ DS l« LiT •♦*")l 

ENni 



xuo- 

fllO- 

XllO- 
IllO- 
«110* 
KllO- 
XllO- 
KllO- 
XllO- 
XllO' 
XllO- 
XllO- 
fllO- 



17051300 
17051400 

17051500 
17051600 
17051700 
17051800 
17051900 
17052000 
17052100 
17052200 
17052300 
17052400 
17052500 



C 01241003313 

C 0124(003313 

C 01241003313 

C 01241003313 

C 01241003410 

C 01241003410 

C 01241003411 

C 01241003610 

C 01241003810 

C 01241003810 

C 01241003811 

C 01241003912 

C 01241004112 



PRT(774) m rLANKfT 



STREAM PROCEDURE BLANKET(D)I 

BEfilN 

01 «« DI 

nS IB 8 LIT " "I 

SI IB DI 

nS IB 16 WDSI 
ENn OF BLANKET! 



XllO- 

XllO- 
XllO- 
JSllO- 
XllO- 
IllO- 
XllO- 



17052600 C 01241004112 



17052700 
17052800 
17052900 
17053000 
17053100 
17053200 



C 01241004112 

C 01241004210 

C 01241004210 

C 01241004313 

C 01241004313 

C 01241004410 



PROCEDURE PRINTXRefSTaTISTiCSi 
PRTC775) B PRiNTXREFSTATISTTCS 

BEfilN 

SWtTch FORMAT STaTS Is 



PRT(776) b STATS 



(///» "CROSS REFERENCE STATISTICS". /, 
" • ". /). 

("PHASE ONE - S0RT"m6," I DENT I F IERS" ) » 
("PHASE TWO • S0RT"fT7," REFERENCES")* 



XllO- 

XllO» 
f liO* 



17053300 C 01241004410 



START 
START 



KllO- 
XtlO* 
XllO- 
1110- 



17053400 

17053500 

OF SEGMENT 

OF SEGMENT 

17053600 
17053700 
17053800 
17053900 



C 01241004410 
C 01241004410 

**«*«*»*«« 125 
«»«««*«**« 126 

C 01261000010 

C 01261000010 

C 01261000010 

C 01261000010 



("Phasf Three - print cross reference Cfi?," lines)"), 



(X5, 1 4, "J ",2 II 



rX5,l4, 
(X5f 14, 



l".2I t. 



ELAPSED Time (MiNiSec)"), 

processor Time"), 



J".?!!." I/O Time",/)? 



STACKtF+2) m I 
STACKcF+3) ■ J 
STACK(F+4) s K 



TNTFGFR I»sI»K> 



? 00 



WRlTE(LINE»STATS[Oj); 
FOR f l» STEP 1 UNTIL 
BEGIN 

WRlTFfLlNE»STATS[Ul],TlMlNGStI,0])l 
PRTC777) m *LIST, LABEL, OR SEGMENT DESCRIPTOR* 

FOR J U 1 STEP 1 UNTIL 3 DO 
BEGIN 

K l» (TIMINGS! I#J] + 30) DiV 60> X 
WRlTEaiNE»STATSrJ + 3].K DIV 60,fKI 
PRTdOOO) m ♦LIST, LABEL* OR SEGMENT DESCRIPTOR* 

K MOD 10)1 

end; 

FNDJ 
END PRINTXREFSTATISTICSJ 



ROUND 
'K MOD 



fllO- 
*llO. 
XllO« 
XllO- 

XllO" 



XllO* 
XllO- 

xuo- 

XllO- 

XllO- 

XMO- 

TO NEAREST SECON 

60) DIV lO.lllO- 



XllO- 
«110- 
XUO- 
XllO- 



126 IS 



1^054000 C 
17054100 C 
17054200 C 
17054300 C 
87 LONG, 
17054400 C 



17054500 
17054600 
17054700 
17054800 

17054900 
17055000 
17055010 
17055020 

17055025 
17055030 
17055100 
17055200 



C 
C 
C 
C 

C 
C 
C 
C 

c 
c 

C 
C 



125 IS 44 LONGt 



01261000010 
01261000010 
01261000010 
01261000010 
NEXT SEG 125 
01251000010 



01251000010 
01251000410 
0l25l0005t2 
01231000512 

01251001512 
0l25t00l6l0 
0l25»00l6l0 
0l25»00ia» I 

0125I0030»1 
01251003611 
0125J0038I1 
01251004112 
NEXT SEG 124 



PRT(lOOi) « FiRSTTiME 

PRTtlOO?) m PAY 

PRT(1003) s LASTAOORESS 

PRT(1004) s INPUT2 



PRTCIOO5) 9 EOF 



DEFINE REFCOUNT m T I M INGS[ 1 , 0] * I X NUMBER OF REFERENCES SORTED. 
BOOLEAN FIRSTTIMEI % TRUE ON FIRST CALL OF OUTPUT PROCEDURE. 



ARRAY PAYrOll7]l 

REAL LASTaDORESS; 

BOOLEAN PROCEDURE INPUT2(A)> 

ARRAY ArOli 
BEGIN 
LABEL L.eOFI 

DEFINE I m LASTaODRESS*? 

IF XREFPTI«XREFPT+i«30 ThEN 

BEGIN 

READ(DSK2t30,XREFAY2t*])[EOF]l 



XOFB 
XllO- 

XDFB 

XOFB 

XDFB 
XDFB 

XllO* 
XDFB 
XDFB 
XDFB 



START 



XREFPTIsO; XDFB 

end; XDFB 
IF ( I l«XREFAY2rXRpFPT]):t21»27] GTR 99999999 THEN GO TO EOFI 

ArO] I. I K NEWlDr I.REFIDNOF] REFIDNOFi XllO- 

RFFCOUnT i« REFCOUNT + il XllO- 

GO TO Lt XDFB 

EOFI lNPUT?l»TRUEf XDFB 

BLANKET(PAY); JOFB 

XREFAYltaj is XREFPT <» LASTaDDRESS t» 0; XltO- 

FILL iDTYPft*] WITH XUO- 



17069300 C 01241004410 

17069400 C 0l24l0044t0 

17069500 C 01241004410 

17069600 C 01241004810 

17070000 C 01241004810 



"UNKNOWN, 



X 



XllO- 



START 



17071000 
17072000 
17073000 
OF SEGMENT 
17073100 
17074000 
17075000 
17076000 

17077000 
17078000 
17079000 
17080000 
17080100 
17081000 
17082000 
17083000 
17084000 
17084010 
17084020 
OF SEGMENT 



C 01241004810 

C 01241004810 

C 01241004810 

C 01271000010 

C 01271000010 

C 0127I000H3 

C 01271000210 



01271 
01271 
01271 
01271 
01271 
01271 
0l27» 
01271 
01271 

oien 

01271 



*4[««*4>** 



000713 
OOOBIO 
000810 
OOlOll 
002810 
003113 
003312 
003313 
003512 
003713 
003810 
** 128 



"STREAM LABEL, 


"» 


X 


I 


X110» 


17084030 


C 


01271003912 


•♦STRrAM VARlABUr. 


If 


X 


2 


XllO- 


17084040 


C 


01271003912 


-DEFINE. 


I, 


X 


3 


xuo- 


17084050 


C 


01271003912 


"LIST. 


f. 


X 


4 


XllO- 


17084060 


C 


01271003912 


"FORMAT. 


H 


X 


5 


XllO- 


17084070 


C 


01271003912 


••SWITCH FORMAT, 


1, 


X 


6 


XllO- 1 


17084080 


C 


01271003912 


"REAL SUBROUTINf. 


1, 


X 


7 


XllO- 


17084090 


C 


0l27t0039t2 


'♦SUBROUTINE, 


"» 


X 


8 


XllO- 


17084100 


C 


01271003912 


"SWITCH LABEL, 


", 


X 


9 


XllO- 1 


17084110 


C 


01271003912 


"PROCFOURE, 


" 1 


X 


10 


XllO- 1 


17084120 


C 


01271003912 


"INTRINSIC, 


" * 


X 


11 


XllO- ] 


17084130 


C 


01271003912 


"STREAM PROCEDURE, 


" * 


X 


12 


XllO- 1 


17084140 


C 


01271003912 


"BOOLEAN STREAM PRoCFOURf. 


H 


X 


13 


XllO- 1 


17084150 


C 


01271003912 


"Real stream procedure, 


1, 


X 


14 


XllO- 1 


17084160 


c 


01271003912 


"intfger stream procedure. 


•» 


X 


15 


XllO- ] 


17084170 


c 


0l27f0039l2 


"INTEGER stream PROCFDURf, 


t,^ 


X 


16 


XllO- 1 


170841B0 


c 


01271003912 


"BOOLEAN procedure; 


"» 


X 


\7 


XllO- 1 


[7084182 


c 


01271003912 


"REAL procedure. 


H 


X 


18 


XllO- ] 


L7084184 


c 


Oj27t0039l2 


"INTEGER procedure; 


" t 


X 


19 


XllO- 1 


17084186 


c 


01271003912 


"INTEGER procedure. 


H 


X 


20 


XllO- 1 


[7084188 


c 


01271003912 


"BOOLEAN. 


"» 


X 


21 


XllO- j 


[7084190 


c 


01271003912 


"REAL, 


« 


X 


22 


XllO- 1 


[7084200 


c 


01271003912 


"INTEGER. 


f, 


X 


23 


XllO- 1 


[7084210 


c 


01271003912 


"INTEGER. 


n 


X 


24 


XllO- J 


[7084220 


c 


01271003912 


"BOOLEAN ARRAY, 


"• 


X 


25 


XllO- 1 


[7084230 


c 


01271003912 


"REAL ARRAY, 


w 


X 


26 


XllO- 3 


[7084240 


c 


01271003912 


"INTEGER ARRAY, 


w 


X 


27 


XllO- 1 


[7084250 


c 


01271003912 


"INTEGER ARRAY, 


H 


X 


28 


XllO- i 


[7084260 


c 


01271003912 


»» 


♦, 


X 


29 


XllO- 3 


[7084270 


c 


01271003912 


"NAME, 


1, 


X 


30 


XllO- 1 


[7084280 


c 


01271003912 


"INTEGER NAME, 


" , 


X 


31 


XllO- 1 


7084290 


c 


01271003912 


"LABEL, 


" ( 


X 


32 


X112- 1 


7084300 


c 


01271003912 


"FIELD, 


"1 


X 


33 tCLASS » 125) X112- 1 


7084400 


c 


01271003912 










128 IS 


136 LONC 


1* 


NEXT SCG 127 


Ll 








XOFB 1 


[7085000 


c 


01271003912 


FNOJ 








XDFB 1 


L7086000 


c 


01271004010 










127 IS 


45 LONC 


i* 


NEXT SEG 124 



PROCEDURE 0UTPUT2(B»A)I 
PRTC1006) » 0UTPUT2 

VALUE B> 
BOOLEAN p> 
ARRAY Aroi; 

BEGIN DEFINE PR I NTeR*LI NE# 1 

Label f0f2, skiPi 

Own BOOLEAN B2, FwDTOG, LBlT0G» WAI T I NGFORFWDREF J 
PRT(1007) • B2 
PRTCIOIO) - FWDTOG 
PRT(lOli) » LBLTOG 
PRTCIOI?) m WAITINGFORFWDRFF 

DEFINE MATCH(A^B) « REALCBoOLEANC A ) EQV BOOLEANCB)) 

Realcnot false)#i 

REAL 11 



XOFB 

XDF8 
XOFB 
XOFB 
XDFB 

XUO" 
XllO- 



17087000 C 0l24t0048i0 



START 



XllO- 
XllO* 
XUO- 



17088000 
17089000 
17090000 
17091000 
OF SEGMENT 
17091100 



C 01241004810 

C 01241004810 

C 01241004810 

C 01241004810 

4>«4i««*4i**«i 129 

C 01291000010 



17091110 C 01291000010 



17091115 
17091116 
17091120 



C 01291000010 
C 0l29l0000l0 
C 01291000010 



STACKfF+?) • I 



PRT(t013) » FWDSfONO 



PRT(IOU) = E0F2 



DFFINF LINFCOUNT s T T M i NGSr 2 ,0 J # ; % NUMBER OF LINES PRINTED. 

OWN REAL FWnSFQNO; %\ 

IF FiRSTTlMF Then X PRiNT HEADINGS AND SAVE TIMINGS, % 

BEGIN % 

FIRSTTimE t» FALSE! | 

TIMEI »« TIME(1)J { 

DATIMEI % 

UPOATfTlMESd)! % 

savet1mes(2)» % save times for start of xref print, k 

end; % 

if not b2 then % 

if b then % end op sort - list out rest of seo. no, x 

IF XREFPT # Then % we got SOME TO LIST OUT % 

BEGIN t 

WRlTECbINECDBL]»15»PAY(*])J % 

LlNECOUNT «« LINECOUNT + i; % 

END X 

ELSE % NOTHING TO LIST OUT % 

FLSe % NOT END OF SoRT x 

IF NOT MATCHCLASTADDRFSSf AtOl) AND At J . REFI DNOF # AND 

Ar01,REFlDN0F > XRfFAY 1 1 8 ] . I DNOF THEN X 

IF A[0J,TYPEREF m FoRWARDREF THEN X % 

WAITIN6F0RFWDREF t« TRUE % 

ELSE X 

IF A[0],TYPfRFF « LBLREF THEN % % 

BEGIN % 

LBLT06 i» TRUpl X 

FWDSEQNO I» ArOj.SEONOF; X 

END X 

ELSE X 

IF AtO],TYPEREF •» DECLREF THEN X 

IF waitingforfwoRef Then % this must be it x 

BEGIN X 

WAITINGFORFWOREF l» FALSE? X 

fwdtOg i« true? X 

FWDSEONO is A[0],SEONOF» X 

END X 

ELSE * iTS A NORMAL DECLARATION - NOT FORWAROX 

BEGIN X 

IF AtO],REFlDNOF > XREFAY 1 C8] , IDNOF THEN X 

DO X 

READ(DSKl»10#XREFAYir*3) tE0F2] X 

UnTiL X 

AtO],REFlDNOF S XREFAYl t 83 , IDNOF I X 

IF A(0), REFIDNOF < XReF AYl t 8 ) , I DNOF THENX 

GO TO Ski P> X 

IF xRffpt > Then % there is stuff to prin 

BEGIN X 

IF singlTog Then x 

WRlTEfLlNE»l5,PAYf*]) X 

ELSf X 

WRlTE(LlNE£0BL3tl5.PAY[*])l X 

LlNECOUNT m LINECOUNT +11 X 

END X 





17091140 


C 


012910000 


10 


0- 


17091150 


C 


012910000 


(0 


0- 


17091155 


C 


012910000 


10 


o» 


17091160 


c 


012910000 


»1 


0- 


17091162 


C 


012910001 


•2 


0- 


17091165 


C 


012910002 


10 


0* 


17091170 


C 


012910003 


12 


0- 


17091175 


C 


012910003 


13 


0- 


17091180 


c 


0129(0004 


»1 


0- 


17091200 


c 


012910005 


12 


0- 


17091210 


c 


0129(0005 


12 


0- 


17091300 


c 


0129(0006 


10 


0- 


1709H00 


c 


0129(0006 


11 


Oo 


17091500 


c 


0l29t0008 


10 


0- 


17091510 


c 


0129100081 


'1 


0- ] 


17091520 


c 


0129(0013 


12 


0- 


17091530 


c 


0129(0016 


11 


0- 


17091600 


c 


0129(0016 


1 


0» 1 


17091700 


c 


0129(00161 


1 




17091800 


c 


0129(00171 


2 


0- 


17091900 


c 


0129100211 


2 


0- ] 


17092000 


c 


0129(00231 


3 


0- 1 


17092100 


c 


0129(00251 


3 


0- ] 


[7092200 


c 


0129(00261 


1 


0- ] 


17092300 


c 


0129(00271 


2 


0« 


17092400 


c 


0129(00291 


2 


0- ] 


17092500 


c 


0129(00291 


3 


0. 1 


17092600 


c 


0129(00301 


1 


0- ] 


17092700 


c 


0129(00321 


1 


0- ] 


17092800 


c 


0129(00321 


1 


0- 1 


17092900 


c 


0129(00321 


1 


0- J 


[7093000 


c 


0129(00341 


I 


0- ] 


[7093100 


c 


0129(00351 


3 


0- 1 


17093200 


c 


0129100361 





0- ] 


[7093300 


c 


0129100371 


2 


0- 1 


7093400 


c 


0l29(0038( 





0- 1 


[7093500 


c 


0129(0039( 


3 


0» J 


[7093600 


c 


0129(0039( 


3 


0- 1 


[7093700 


c 


0l29(0039( 


3 


0- 1 


[7093850 


c 


0l29t0040( 





Oo ] 


[7093900 


c 


0129(00421 


1 


0* 1 


L7093950 


c 


0129(00431 


2 


0- ] 


[7094000 


c 


0129(00471 


2 


0- 1 


7094050 


c 


0129(00481 





0« 1 


7094100 


c 


0129I0051( 


2 


0. ] 


7094150 


c 


0129(0053( 


2 




7094200 


c 


0129(0053( 


3 


0- ] 


7094240 


c 


0i29(0054( 


I 


0. ] 


7094250 


c 


0129(0055( 


2 


0- 1 


7094300 


c 


0129(005S( 


3 


0- ] 


7094350 


c 


0l29(0059( 


2 


Oi* ] 


7094400 


c 


0129100601 


I 


0- ] 


7094410 


c 


0129100651 


3 


0* 1 


7094420 


c 


0129100691 


2 



FtSp 

IF NOT SINqL 

WRiTEfLlNE 

XREfPT «« 0; 

BUANKFT(PAYt*] 

SETUPHEADINGC 

SEsNOF.AtO] 

FWDSEQNO» IDT 

XREFAYlr9],C 

FiELDiD Then 

RfALd > BOO 

Rfaucci s bo 

(XREFAYt[9], 
FWDTOq i« lblt 
WR1TE(L.INf,15» 
UlNrCOUNT »s L 
BLANKeT(PaY[*3 
END 
ELSE % |T MUST BE 
IF ArO],SEONOr # 
BEGIN 

ADOaSE0nO(AC 
P 
IF (XREfPT I 
BEGIN 

WRITECLI 
LINECOUNT 

XReePT I 
BLANKETC 
END 
END 
ELSE I REFERENCE 
FLSE % THIS IS A REFERENCE 
EtSE % HtT END OF IDENTIFIER F 
E0F2J fl? t« TRUE? % SO SORT 
IF NOT B THEN SKiPl LaSTADDRES 
END OF 0UTPUT2I 



TOG THEN 
)l 

)) 

XREFAYlt*J»PAYr*].XRE 

,SEQN0F»FW0T0G.L8LT0G 

YPEtCIF CI in 

LASS) > IDMAX THEN IF 

33 ELSE ELSE I) » 
ID AND XREFAYir9J,[9l 
OlO OR I ■ LOCLIO) AN 
C9lin). XREFAYlt9],[ 
Og I« FALSE) 
PAYt*])» 
INECOUNT ♦ II 
}l 

A NORMAL Reference 
lastaodress.seqnof t 

03,SEQNOFiXREFPTiACO] 

AY[*3)I 

« XREFPT ♦ 1) • 11 TH 

NE»l5,PAYt«3)l 

»» LINECOUNT + II 
» 0| 
PAY[*])J 



TO SAME SEQ. NO, SKI 
TO THE SAME SEOt NO. 

ILE - JUST SKIP OVER 
CAN 60 TO NORMAL EOJ 

S l« AtOlJ 



XllO" 
XUO' 
I110« 
XllO- 
IllO- 

FAYltS]. 

» JtllO- 

XllO. 
Ilt2" 
XllZ' 

1)» 



I 

2] ' 
D BOOLEAN 
lOin)! 
X 



HEN 



% 
X 
I! 
% 

% 
% 
% 

% 

EN XFULL 
X 
% 
% 
% 
% 
% 
% 

P IT I 
- SKIP 

REFEREN 
% 
% 
% 



10» 
10- 
lO* 
lO- 
lO- 
10- 
lO* 
10- 

10- 

lO- 
10- 
10- 
10- 
10- 
10- 
lO- 
lO- 

ES 
10- 
lO- 
10- 



17094450 
17094500 
17094550 
17094600 
17094650 
17094700 
17094600 
17094900 
17095000 
17095100 
17095300 
17095310 
17095320 
17095400 
17095500 
17095510 
17095550 
17095600 
17095700 
17095750 
17095800 
17095900 
17096000 
17096100 
17096200 
17096300 
17096350 
17096400 
17096450 
17096500 
17096550 
17096575 
17096600 
17096700 
17096800 
17096850 
17096900 



129 IS 135 LONG. 



0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
0129 
NEXT 



1006912 
1006912 
«0070ll 
1007512 
1007610 
1007712 
1007912 
t0081t3 
IOOB2I0 
1008512 
(008611 
1009112 
I0092tl 
1009512 
1009712 
«0101I3 
1010512 
I0l06t0 
t0l06l0 
1010610 
1010912 
1010913 
1011210 
(011312 
1011411 
1011512 
1011913 
1012312 
1012410 
1012512 
1012512 
1012512 
I0l25i2 
J0125I3 
t0l26f0 
1012810 
tOlSOlO 
SEG 124 



PRT(1015) « hV? 



PROCEDURE hV2(A); 



XDFB 



ARRAY ArOU XDFB 

A[0] Ic ^**777777777TT7777"} % BIGGEST FLOATING PT, NO. XllO- 



17112000 C 0l24t00aai0 



17113000 C 
17114000 C 



0124>0046I0 
01241004810 



BOOLEAN PROCEDURE COmP?(A.B)» 



PRT(1016) » C0MP2 



XDFB 



ARRAY A.B[01> XDFB 

C0MP2 la IF AC0];REFIDN0F < Bt ] .ReFI DNOF THEN X OIF IDS 

TRUE )!iiO» 

ELSE XllO- 

IF AC03.RFFIDN0F » Bt 0] , REFI DNOF THEN XtlO- 



17115000 C 01241005210 



7116000 C 

7117000 C 

7ll7l00 C 

7117200 C 

7117300 C 



012410052*0 
0l24t0052t0 
0124(005410 
0124(0055(2 
0124(0055(3 



ir A[03,tlJ4] LSS B[0],tlUl THEN ItllO- 

TRUE fltO- 

ELSe XllO- 

IF A[0].tna3 « B[0],[lf4] THEN XtlO- 

IF AtO],SEQNOr < BrO],SEQNOr THEN XllO- 

TRUE J!110- 

ELSf XllO* 

IF ArOJ.SEQNOr m BtO],SEaNOF THENXllO- 

B00LEAN(A[0],[5J1]) «llO- 

ELSe fUO* 

FALSE XllO- 

ELSE XltO* 

FALSE XllO- 

ELSr «110- 

FALSE* XllO- 



7400 
7500 
7600 
7700 
7702 
7704 
7706 
7708 
7710 
7712 
7714 
7720 
7730 
7800 
7900 



0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 

0124 
0124 
0124 
0124 



1009713 
1006011 

1006112 
t0061(3 
1006410 
1006611 
1006713 
1006810 
1007010 
1007113 
(007210 
1007211 
1007312 
J0073I2 
1007313 



savetimesd)! x save tfmes for start of references sort xllo- 
fiRStttme Is truej % Lft Output procedure know about ftRSt cal 
xrefptl.29> rewindcdsk2)i xofb 

SORT(0UTPUT?,INPUT2,0«hV2.C0MP2*1i6000)J X110» 

updateTimes(?)i I update Times for printing cross referencexuo- 
printxrefstatistics; xiio- 

ENDl lOFB 

PRT(1017) » *SEGMENT DESCRIPTOR* 



ENDi 
PRT(1020) ■ ♦SEGMENT DESCRIPTOR* 



PRT(102l) « *SEOMENT DESCRIPTOR* 



END Main block; 



PRTc 
PRT( 
PRT( 
PRT( 
PRT( 
PRTC 
PRT( 
PRTc 
PRTc 
PRT( 

PRTc 
PRT( 
PRT( 



546) 
545) 
353) 
5) ■ 
766) 
547) 
4l2) 

14) » 

15) i» 

16) ■ 
765) 
43O) 
210) 



« rXP intr 

« LN INTRl 

• OUTPUTfW 
BLOCK CONT 
» SORT INT 
■ X TO THE 

• r,0 TO SO 
ALGOL WRi 
ALGOL REA 
ALGOL SEL 

» MERGE IN 
9 DYNAMIC 

• FILE ATT 



END. 

INSIC» 
NSIC, 
) INjR 
ROL IN 
RINSiC 
I INT 

lver 

TE I 
D I 
ECT I 

TRINSI 

DIALS 

RBUTS 



IDFB 



1108" 



?DF8 



SEGMENT NUMBER * I3O, 
SEGMENT NUMBER ■ I3l . 
INSIC* SEGMENT NUMBER » 
TRINSIC* SEGMENT NUMBER ■ 
. SEGMENT NUMBER » l34, 
RlNSlC, SEGMENT NUMBpR » 

INTRINSIC* Segment nuMbeR « 

NTRlNSiC SEGMENT NUmBeR * 
NTRlNSlCf SEGMENT NUmBeR « 
NTRlNSiC, SEGMENT NUmBeR « 
C, SEGMENT NUMBER » I4O, 
INTRINSIC, SEGMENT NUMBER m 
INTRINSIC. SEGMENT NUMBER « 



132. 
133, 

135. 

tt 136, 
* 137, 
« 138. 
139. 



141. 
142, 



NUMBER OF ERRORS DETECTfD » 0, COMPILATION TiME m 362 SECONDS, 



17117910 
17117920 
17118000 
l7ii9000 
I7n9l00 
17119200 
17120000 



1 



1 



24 IS 

19 IS 

3 IS 

2 IS 



108 LONG, 
17121000 C 

36 LONG, 
17121500 C 

651 LONG, 

17122000 C 

42 LONG, 



1 



1 IS 
43 IS 



2 LONG, 
69 LONG, 



01241007610 
01241007713 
01241007611 
01241008112 
0l24l0l02tl 
01241010312 
01241010313 

NEXT SEG 119 
0ll9t0032t0 

NEXT SEG 3 
0003(064712 

NEXT SEG 2 

000210038(0 
NEXT SEG I 



NEXT 
NEXT 



SEG 
SEG 








PRT SfZF «» 530; TOTAL SEGMENT SIZE » 84O8 WORDS* DiSK SIZE « 540 SEGSI NO, PGM. SE6S • 143 



ESTIMATED CORE STORAGE REQUIRED c 26836 WORDS* 
ESTiMaTfD AUXILIARY MeMoRY RfQUtReo » WqRdS, 



NUMBER or CARD-IMAGES PROCFSSED s 7848, 



BURROUCHS R-5700 ALGOL COMPILER MARK XVf, 0,122 MONDAY* 08/2?/77. 4112 PM, 

fspol /disk 
sourcf filej symbol /espol 

A •• STREAM VARIABLE •- NaMf PARAMETER -- DECLARED IN SEGMENT 3 AT 02022000 

020;>3000 
A •• STREAM VARIABLE — NAMp PARAMETER -- DECLARED iN SEGMENT 3 AT 02054000 

O2O55OOO 
A •- STREAM VARIABLE •- NAMp PARAMETER •- DECLARED IN SEGMENT 3 AT 02062500 

02063500 
A -- REAL ARRAY -- DECLARED IN SEGMENT i5 AT 02?64l00 

02265100 02?65i50 02265250 02265300 02265600 0?265650 02265700 0?265750 02265850 02265900 02265950 

02266000 
A •• INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03047100 

03047000 

A -- REAL -- Value parameter -- declared in segment 3 at 03049000 

A — tNTerER -- VALUE PARaMfTeR — DECLaRfD IN SEGMENT 3 AT 03050000 
A — tNTFRER -- VALUE PARAMfTeR -- OECLaReD IN SEGMENT 3 AT 04311000 

04311050 04311060 *043l5000* 
A — REAL -- VALUE PARAMETER -- DECLARED TN SEGMENT 3 AT 04500000 

04529000 04534000 04542000 04548000 04550000 0455l000 04556000 
A — STREAM VARIABLE — VALUE PARAMETER — DECLARED IN SEGMENT 38 AT 05065000 

05066000 
A -• REAL " DECLARED IN SEGMENT 39 AT 05i30000 

♦05111000* 05132000 
A — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 44 AT 05334100 
A " REAL ARRAY -- DECLARED IN SEGMENT 46 AT 05413000 

05426000 05427000 05431000 05*432000 
A — STREAM VARIABLE «•- NaMf PARAMETER -- DECLARED IN SEGMENT 46 AT 05415000 

05417000 *054l9000* 05421000 05'>22000 
A — DEFINE -- DECLARED IN SEGMENT 69 aT 08015000 

08181000 08188000 
A -• REAL " Value parameter -- declared iN SfGMeNT 69 AT 08020000 

O8O21OOO 
A •• REAL — NAME PARAMETER -- DECLARED IN SEGMENT 69 AT 080?7000 

*08035000#*0a037000* 
A -- REAL — DECLARFD IN SEGMENT 93 AT 13359000 

♦13364000* 13365000 13366000 
A •- STREAM VARIABLE -- VALUE PARAMETER •»- DECLARED IN SEGMENT 96 AT 13673100 
A — REAL ARRAY -• NAME PaRaMETFR -- DECLARED IN SEGMENT 122 AT 17007000 

17006000 17010000 
A — REAL ARRAY -- NAME PARAMETER •- DECLARED IN SEGMENT 122 AT 17019000 

I70i6000 17025000 17025100 17025300 •17025400* 17026000 
A -- STREAM VARIABLE -• NaMf PaRAMeTeR -- DECLARED iN SegMeNT 122 AT 17029000 

17031000 17033400 
A — STREAM VARIABLE — NAME PARAMETER *- DECLARED IN SEGMENT 122 AT 17036000 

17038000 17040000 
A — REAL ARRAY -- NAME PARAMETER -" DECLARED IN SEGMENT 122 AT 17042200 

17042100 17042300 17042350 
A •• REAL ARRAY -• NAME PARAMETER "" DECLARED IN SEGMENT 122 AT 17042500 



A •• 
A -• 

A — 

A •• 
ABS ' 
ACC ■ 
ACCUM 



paRametfR 
paRametfR 

17091800 
17095750 

PaRametfR 
PaRametfR 

17U7300 



ACCUM 

ACCUM 

ACCUM 

ACCUM 

ACCUM 

AClASS 

ACTUAL 

ADD " 

ADD • 

ADDASf 

ADDC 
ADDITt 

AOOOP 

AODR ' 
ADDR < 

AODR ' 

ADDR ' 

AODR " 

ADDRES 



17042400 17042600 
REAli ARRAY -- NAME 

17070000 *17080000* 
REAL ARRAY -• NAMf 

17087000 l709iti5 

17094100 i7094fl00 
REAL ARRAY -• NAMF 

17112000 *17114000* 
REAL ARRAY -- NAMF 

17115000 17117000 

' ReaL stream procfdure "- 

05066000 05092000 
' STREAM VARTABLf -" NaME 
07654500 

ARRAY -- 
02251000 
02602600 
02822000 
07670000 
13281000 
14440000 

vaRiarLf 



DECLARED IN SEGMENT 124 AT 17071000 



-- DFC 
l709i900 
17095900 

-" DEC 

-- DEC 

17117400 

declaRfd f 

PARAMETER 



17093400 17093650 17094050 



DECLARED IN SERMEN 

02255000 02259000 

♦02647000* 02650000 

02«46000 02865000 



07671000 
13282000 
14441000 
-• NaMt 



10264700 

♦13307000 

16000700 

paRaMfteR 



-- NAME PARAMETER 



•- ALPHA 

02i?8500 

02592000 

02754000 

07668500 

12122000 

14269280 
— STREAM 

O2O43OOO 
-- STREAM VARIARLE 

02122500 
-- STREAM VARIABLE -- NAME PARAMETER 

O5O98OOO 
-• STREAM VARIABLE -- NAME PARAMETER 

O7O385OO 
-"• STREAM variable: -- NAME PARAMETER 

IO239OOO 

— REAL -- DECLARED IN SEGMENT 57 A 

♦0704lOOO^ 07047p00 07057000 07069000 

PaRAPaRT — PROCEDURE -- DECLARED IN 

07410000 07438000 
• DEFINE "- DECLARED IN SfgMeNT 3 aT 

05226000 07525000 076466i5 08126000 

— RfaL -- DECLARED IN SEGMENT 91 AT 1 
♦13?48000^ 13250000 13252000 13252500 

«N0 — STREAM PROCEDURE -- DECLARED 

17095900 
-- DEFINE -- DECLARED IN SEGMENT 3 AT 
ONAL -- DEFINE — DECLARED IN SEGMEN 

07601000 07603000 076i0000 
-• DEFINE — DECLARED IN SEGMENT 1O8 

16326000 

— Real -- declared in segment ho at 

— Real -- declared in segment 114 at 

♦ 1 61 96000*»1 620 lOOO^^ 16204000* 16208000 

— INTEGER -• DECLARED IN SEGMENT 116 
♦I632l000**i6344000* 16352000 

— INTEGER -- DECLARED IN SEGMENT 117 
♦16371 000**l 6376000** 16378000* 16 378500 

•• REAL •• DECLARED IN SEGMENT 118 AT 
♦16408000**16412000**16414000* 16415000 

•• OWN REAL -- DECLARED IN SeGMeNT 
♦08055000+ 08067000 08068000 08075000 



LaREO in segment 124 AT 17090000 

17092000 17092300 17092600 i709?900 

17096850 
LaRED in segment 124 AT 17113000 

LaRED in segment 124 AT 17116000 

17117700 17117702 17117708 17117710 
N SEGMENT 38 aT 05065000 

•- Declared in segment 67 at 07653500 

T 3 at 01304000 
♦ 02327000^ 02366]00 +0237 1000**02499000* 02502000 0258i000 ♦ 
02652000 02686000 02686500 02696000 02698000 ♦02700000+ 
02881000 ♦02958500++05043000* 05044000 05325460 *07086200* 
10264900 10269000 10274000 12117000 * 121 iBOOO** 121 19000** 

♦♦13308000++13309000+ 13310000 ♦! 3372000++13755000+ 14259000 
16211000 16387000 16392000 16434000 

-- DECLARED iN Segment 3 at 02041000 

-- DECLARED IN SEGMENT 9 AT 02089500 

-- DECLARED IN SEGMENT 37 AT O5OI6OOO 

-- DECLARED IN SEGMENT 57 AT 07038i00 

•- DECLARED IN SEGMENT 87 AT 10236000 

T O7O38OOO 
♦07081000* 07089000 
SEGMENT 3 AT 07035000 

01633000 

06214000 
3221000 

♦13259000+ 
IN SEGMENT 124 AT 17051400 

1321?000 
T 65 AT 07595000 

aT 16005000 

1 6068000 
I6I95OOO 

aT 16314000 

AT 16364000 

16379000 16383000 16385000 16389000 
16405000 

16417000 
69 AT 08010000 

08179000 08212000 



02590000* 

02705000 

07086300 

12120000* 

14259080 



AODRrSS -- DEFINE — nrctARFO IN 
O285OOOO 02896000 02900000 
053446?0 
06325000 
08044000 
13394000 
14483200 
15276010 
16200000 



05344660 
063?6000 
06055000 
14085000 
15086400 
15276060 
16204000 



SEGMENT 3 
02923000 
05344700 
07071000 
10277000 
14115000 
15066600 
15276080 
16321000 



ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 

AODRSr •• 



addvaluf — 



AOFS — 

adjust 



05344615 
06324000 
08029000 
13259000 
14461200 
15267000 
16124000 
16435000 

— INTFGFR -• VALUE PARAMETER •- 
O4O18OOO 04019000 

-- INTEGER •- VALUE PARAMETER -• 
04023000 04024000 

— INTfGER "- VALUE PARAMETER -- 
O4O98OOO 04029000 O4O32OOO O4O33OOO 

•- INTEGER — VALUE PARAMETER -• 
05201000 

— DECLARED IN SEGMENT 58 A 
O73974OO 07397500 07413000 
•- DECLARED IN SEGMENT 3 AT 
07677000 •13205000**13344000* 
14320000 ♦16000500* 
INTEGER — DECLARED IN SEGMENT 
02193000 02234800 ♦02992000**09028920* 

nrFlNE — DrCLARED TN segment 3 AT 
" PROCFDURE — DECLARED IN SEGMENT 
04067000 04144000 041F2000 06208500 

13605000 13611000 
DECLARED IN SEGMENT 
16158000 

•- Declared in segment 3 at 

05344670 060i3000 07666000 
-- DfCLaRED in segment 66 AT 
07646605 

valuf Parameter 



AT 011520 
04508000 
05344710 
07090000 
12015000 
14129000 
15092600 
15290000 
16329000 



00 



05131000 
06016000 
07439000 
12024000 
14269520 
15095600 
15301200 
16342000 



05217000 
06072000 
07745000 
12036000 
14269540 
15100600 
15304000 
16344000 



05233000 
06108000 
07768100 
12047000 
14349000 
I5l0i600 
15305500 
16370000 



REAL 
07397000* 

REAL 
07397000 
14313000 



07727040 08190000 
ADJUST •* PROCEDURE -• 
16117000 

adop •- define 

05344550 

ADR -" INTEGER 

*07646470* 
AOR — STREAM VARTABLp 

13642000 
AORES -- tNTeSFR •• DECLARED IN SEGMENT 40 

*052l7000«*052l9000* 0522*000 05227000 
AEXP -- PROCEDURE — DECLARED IN 



AGAIN - 

AGAIN • 
AGAIN - 
AGIN — 
AJUMP - 
AJUMPO 



SEGMENT 3 
06174000 
07646455 
15186600 



06007000 06057000 06105000 

07086000 07487000 07493000 

12054000 13759000 15097400 

• LABEL -- DFCLaRED IN SEGMENT 19 aT 
02377000 02390000 02393000 02395000 
02460000 02*70000 02*72000 02*74000 
02516000 02520000 02522000 02564000 
- LABEL -- DrCLARED iN SEGMENT 47 aT 
05454000 05457000 

• LABEL — DrCLARED IN SEGMENT 68 aT 
07727100 07741000 

STREAM LABEL -- DECLARfD IN SEGMENT 



02001880 

• BOOLEAN — DECLARED IN SEGMENT 3 A 
13603000 ♦13614000* 13*26000 *13629000* 
-• -BOOLEAN -- DECLARED IN SEGMENT 98 
♦14054000* 14606000 
AKKUM — REAL •- DECLARED IN SfRMeNT 3 aT 



DECLARED IN SEGMENT 3 AT 04017000 

DECLARED IN SEGMENT 3 AT 04022000 

DECLARED IN SEGMENT 3 AT O4O3OOOO 

DECLARED IN SEGMENT 3 AT 05J99000 

T 07393000 

OI6O4OOO 

*13346000**13347000* 13348000 13373000 

3 AT 01000860 

01299010 

3 AT 04083000 

07080000 07459000 07579000 07585100 

13630000 
108 AT 16023100 

01278000 
080?9000 08031000 12013000 12022000 
07646370 

•- OECLAReD in segment 95 AT 13633000 
AT 05215000 

AT 06002000 -- FORWARD AT O3OO1OOO 

06202000 06305000 06410000 06416000 

08101000 08123000 08131000 08135000 

15276070 15277000 15303700 

02360000 — OCCURS AT 02372000 

02397000 02404000 02418000 02419120 

02480000 02493000 02496000 02501000 

02567000 02601000 

05439000 -- OCCURS AT 05445000 

07726000 -- OCCURS AT 07727000 

3 AT O2OO186O -- OCCURS AT 02001886 

T 01596000 
14054000 *14055000**14606000* 
AT 14034000 

1693000 



05280000 
06185000 

07994000 
12108000 
14399000 
15185300 
15306200 
16376000 



05281000 
06320100 
07995000 
13205000 
14430000 
15185500 
15306400 
16408000 



05344570 
06320200 
08021000 
13248000 
14437000 
15186000 
16121000 
16412000 



♦13767000^ 13768000 13770000 



07586000 07600200 07607100 



16326000 



06422000 07045000 07062000 
08142000 12046000 12051000 



02419200 02421100 02431000 
02506000 02508000 02513000 



AUFAARRaYIO " DFFINF -' DErtARrO IN SFfiMrNj 3 AT 01204000 
ALFAln •• DEFINE -- DFCLARFD IN SEGMENT 3 AT Oi?00000 

I4n9000 
ALFAPROCID -- DEFINE -- DECLARED IN SEGMENT 3 AT 01196000 
AUFASTRPROCID -- DEFINE — DECLARED IN SEGMENT 3 AT 0ii92000 
ALFAV -- DEFINE -- DECLARED IN SEGMENT 3 AT 01264000 
ALL •- REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 69 AT 06052000 

080«S4000 08055000 06056000 08057000 
AULTHU — LABEL — DECLARED IN SEGMENT 31 AT 04i66000 — OCCURS AT 04186000 

04176000 
ALONG -- LABEL " DfCLARFD IN SFGMENT 20 aT 02325000 -- OCCURS AT 02358000 

02336000 02340000 02354000 
ALPhAdEC -- LABEL — DFCLARfD iN SEQI^ENT 96 AT l40l3000 -- OCCURS AT 14139000 

I4O18OOO 
ALPHASI7E -- DEFINE -- DECLARED IN SEGMENT 3 AT 01707000 
ALPhAWORDS — STREAM PROCEDURE " DECLARED iN SEGMENT 15 AT 02264700 

02264900 02265600 02265850 
AMPERSAND — DEFINE — DECLARED IN SEGMENT 3 AT 01266500 

O6O34OOO O618OOOO 07084000 15086200 15091800 15164850 15302100 I5305i00 
ANDOP -- DEFINE •• DECLARED IN SEGMENT 3 AT 01276000 

02964500 02971000 029*3500 
ANOTHfR -• LaBfL — DFCLARFn IN SEGMENT 56 AT 07007000 -- OCCURS AT 07009000 

07012000 07015000 07024000 
ANOTHfR •- LaBfL •- DFCLARFn IN SEGMENT 57 AT 07037000 -• OCCURS AT 07041000 

07095000 
ARfiH ••• LABEL — DFCLARFD IN SEGMENT 24 AT 02638000 -- OCCURS AT 02649000 

02685000 02718000 O2753OOO 0?B99000 
ARfTHCOMP — PROCEDURE -- DECLARED IN SEGMENT 3 AT 06041000 -- FORWARD AT 03004000 

O6O36OOO O6O520OO O6O55OOO 
ARiThSEC — PROCEDURE -- DECLARED IN SEGMpNT 3 AT O6O11OOO -- FORWARD AT 0300?000 

06006000 06023000 
ARRAE -• PROCEDURE -- DECLARED IN SEGMENT 3 AT 13376000 

13410000 14156000 
ARRAYDEC — LABEL " DECLARfO IN SEGMENT 98 AT i40l5000 — OCCURS AT 14156000 

14020000 
ARRAYMONFILF — DEFtNf -- DFCLARFD iN SEGMENT 3 AT 01526000 
ARRAYV — DEFINE — DECLARED IN SEGMENT 3 AT 0l?94000 

14161000 
ASkIP -- STREAM VARIABLE -" VALUE PARAMETER -- DECLARED IN SEGMENT 87 AT i0?36000 

10237000 10239000 
ASSIGNOR — DEFINE — DECLARED IN SEGMENT 3 AT 01273000 

06199000 07397?lO 0740l000 07662000 O8178OOO 08229000 12028000 13758000 15085600 15O886OO 15183800 

15276050 15276160 15300500 16316000 16367000 
ASSIGNRfF — DEFINE •- OECLaREO IN SEGMENT 3 AT 01007500 

07660600 08l78i00 15090600 I509i200 15184400 15184700 15301000 16318500 
ASTOG -- rOOLfaN — DECLARED IN SEGMENT 3 AT 01300100 

05348000 07600410 4>07600430* 
AStRISK -• DFFlNr — DFCLaRfD in SEGMENT 3 AT 0i2l2200 

07600400 13400000 13404000 l509i400 l5l84750 15253000 15301900 

atsign -• Label — declared in segment 24 at 02637000 -- occurs at 02683000 

02641000 
ATYPE -- DEFINE -- DECLARED IN SEGMENT 3 AT 01452000 

06005000 06057000 
AUXMEMERR — LABEL — DECLARED IN SEGMENT 96 AT 14016000 •- OCCURS AT 14136100 

140210D0 
AUXMEMV -- DEFINE — DECLARED IN SEGMENT 3 AT 0i298500 
AWAY •- Label -- declared in segment lO at 0219i000 -• occurs at 02196250 



02l9i?50 02194?50 02195250 
AXNUM -- REAL — DECLARED !N SfgMENT 3 AT 07034000 

♦07086700* 09384000 093»4l00 
B -- REAL — VALUE PARAMETER -• DECLARED tN SeGMENT 3 AT Ol7l7000 
B •• STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 02054000 

O2O55OOO 
B — STREAM VARIABLE -- NaMf PARAMETER -- DECLARED IN SEGMENT 3 AT 02062500 

02063500 
B -- BOOLEAN -- DECLARED IN SEGMENT 20 AT 02323000 

*02343000* 02352000 02353000 *02356000* 02357000 
B •• BOOLEAN -- NAMr PARAMETER -• DECLARED IN SEGMENT 3 AT 02955500 
B •• BOOLEAN -• DECLARED IN SEGMENT 26 AT 02970000 

♦02970500* 02971000 02971500 
8 — BOOLEAN -- DECLARED iN SEGMENT 27 AT 0?973500 

* 02976000* •02978000**0 29/8500* 0?979000 
B -- BOOLEAN -- NAME PARAMETER — DECLARED IN SEGMENT 3 AT 02980000 

♦02983500* 02984000 02984500 
B •• BOOLEAN -- VALUE PaRaMeTeR " DECLaRfD IN SEGMENT 3 AT 03041000 
B •• BOOLEAN •• VALUE PARAMETER •- DECLARED IN SEGMENT 3 AT 03047100 
03047000 

9 -- tnteger -- Value parameter — declared in segment 3 at 03050000 
b -- real -- value parameter -» declared ?n segment 3 at 04247000 

04246000 
B — tNTegER -- VALUE PARAMETER -- DECLaReD IN SEGMENT 3 AT 04311000 

04311070 04311080 *043r7000* 
B — REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04500000 

O45261OO 04528000 04542000 04544000 O4548OOO 0455l000 04556000 
B -• BOOLEAN -- VALUE PARAMETER -- DECLaBEO IN SEGMENT 36 AT 04505000 

04503000 04507000 
8 — OWN REAL -• DECLARED IN SEGMENT 69 AT 08010000 

08044000 08047000 08089000 08112000 08116000 *08122000**08169000* 08183000 08199000 *08209000* 08213000 

B •- rOOLfan -- naMf Parameter -- declared in segment 69 at 08027000 

♦080 35000**080 37000* 
B — REAL -- VALUE PARAMETER •" DFCLaREO iN SfGMfNT 61 AT 09393240 

09393300 09393310 09393330 09393350 *09393370* 09393*00 *093934l0* 09393430 ♦09393440* 
B — BOOLEAN — VALUE PaRaMfTER -- DFCLaRfD IN SEGMpNT 122 AT 17018000 

I70i6000 17017000 17021000 
B -• STREAM VARIABLE -- NaMf PARAMETER -- DECLARED IN SEGMENT 122 AT 17029000 

17032000 17033500 
B — REAL ARRAY -- NAME PARAMETER -• DECLARED IN SEGMENT 122 AT 17042200 

17042100 17042300 17042350 
B — BOOLEAN — VALUE PARAMETER — DECLARED IN SEGMENT 124 AT 17089000 

17087000 17088000 17091115 1709i300 17096850 
B -- REAL ARRAY -- NAME PARAMETER -" DECLARED IN SEGMENT 124 AT 17116000 

17115000 17117000 17117300 17117400 17117700 17117702 17117708 
BACK •• INTEGER "" DECLARED IN SEGMENT 61 AT 07491000 

•07493000* 07495000 
BACK — RfaL -" VALUE PaRaMeTER -• OECLaRED IN SEGMENT 70 AT 08084000 

08082000 08083000 06089000 

BACK — Label -- oetlared in segment 86 at 10259000 -- occurs at 10263300 

10276500 10278000 10279000 
BACKFtX — INTEGER -• DECLARED IN SeGMeNT 70 AT 08091000 

*06097000**08099000**08106000* 08127000 *08h6000»*08 1 47000* 08157000 08168000 08171000 
BAE •" INTEGER PROCEDURE "- DECLARED IN SfGMENT 3 AT 07458000 — FORWARD AT 03046000 

♦07459000* 
BANA •- PROCEDURE -- DECLARED TN SEGMENT 3 AT 06419000 -- FORWARD AT 03048000 
05225000 06423000 07523000 



BASE •- STREAM VARIABLE -- VALUf PARAMfTeR -- DFCUARFD fN SEGMENT 80 AT 09370000 

09371000 09374000 
BASeNUM -- INTEGER -- DECLARED IN SEGMENT 3 AT 01000860 

02192500 *0?58l000**09028920* 
BATMAN — REAL •- DECLARED !N SEGMENT 3 AT OIOO16OO 

*02961500**0?966500#*02967000* 02968000 029/8000 
BBC — DEFINE — DECLARED IN SEGMENT 3 AT 01634000 

07487000 08221000 
BBW -- DEFINE -• DECLARED IN SEGMENT 3 AT 01635000 

06207000 07444000 07495000 07646635 08047000 08078000 08166000 08168000 
BEGlNcTR "- INTEGER -• DECLARED IN SEGMENT 3 AT 01499000 

*07008000 ♦♦07021000* 07023000 +07 024000** 140 35000 ♦♦I 45 10000 ♦* 14520000 + 
BEGlNpRiNT — PROCEDURE "- DECLARED IN SEfiMpNT 3 AT 02196510 

02196610 02910600 
BEGINSTaCK -- REAL ARRAY -• DECLARED IN SpGMENT 3 AT 01007600 

02196560 ♦02910300* 
BEGlNv — DEFINE — DECLARED IN SEGMENT 3 AT 01234000 

029^0200 05108000 07646456 09252000 13771000 14393000 14479000 
BEND — DEFINE -- DECLARED IN SEGMENT 3 AT 01001462 

02910600 
BENDBtT "- DEFINE -- DFCLaRfD IN SEGMENT 3 AT 0lOOlJ7l 

02419200 02910600 
BCTaI -• LABEL -- DECLARED iN SEGMENT 94 aT 13379000 •- OCCURS AT 13390000 

134090C0 
BEXP — DFFINE -- DECLARED fN SEGMENT 3 AT 03006000 

064i0000 07487000 07493000 08135000 O8142OOO 
BFC -- DEFINE -- DECLARED IN SEGMENT 3 AT 0i636000 

06301000 07496000 07572000 07573000 07575000 07579000 07583000 07585l00 08l5l000 
BFW -• DEFINE •- DECLARED IN SEGMENT 3 AT 0l637000 

04218000 06307000 07088000 07512000 075l6400 07518000 07526000 07529000 07572000 07586000 07646465 

07646555 07646605 07646620 07646665 08125000 08127000 08146000 08l48oOO 08215000 08228000 13263000 

13274000 13606000 14041000 14451000 
BIT •• INTEGER -- VaLuF PaRaMETER -" DEcLaRED IN SEGMENT 3 AT 02307000 

02311000 
BIT — DEFINE -- DEcLaRED IN SfgMeNT 108 aT 16015000 

16216000 
BITEDUST -- STREAM PROCEDURE — DECLARED tN SEGMENT 38 AT 05067000 

05087000 O5O880OO 05089000 05090000 
BITOP — HEFINE — DECLARED IN SEGMENT 3 AT 01269000 

06087000 
BLANKET •- STREAM PROrEDURE -- DECLARED IN SEGMENT 3 AT 01737350 

O17375OO 02265^00 02265250 02265600 02265700 02265850 02265950 05325450 09034500 
BUaNKfT — STREAM PROCEDURE — DECLARED IN SEGMENT 124 AT 17052600 

17053200 17083000 17094650 17095550 17096450 
BUKaO — tNTfGfR — DECLARED IN SfgMENT 98 aT I4O26OOO 
♦I4037000t+l4044000* J4600000 

BLOCK — PROCEDURE -- DECLARED IN SEGMENT 3 AT 14001000 -• FORWARD AT 03067000 

07750000 07768200 14482000 14613OOO l7l2l500 
BLOCKCTR •- DEFINE — DECLARED iN SEGMENT 3 AT 01430000 
BNS — DEFINE — DECLARED IN SEGMENT 108 AT I6O1IOOO 

16122000 16124000 
BNSFIX -- REAL -■? DECLARED IN SEGMENT H2 AT I61I8OOO 

♦16121000* 16141000 
800ARRAYID — DEFINE -" DECLARED IN SEGMENT 3 AT 01202000 
BOOID f DEFINE -- DECLARED IN SEGMENT 3 AT 01198000 

02967000 O29775OO O7O47OOO 08057000 O8O58OOO 12042000 14140000 17O953OO 17095310 
BOOLCOMP — PROCEDURE •• DECLARED IN SeGMfNT 3 aT 02980000 -• FORWARD AT 02955500 



02971000 02983000 0?9B5000 
BOOlEANnEC -- LABFL -- DFCLaREH 1N SECMfNT 98 aT 14013000 -- OCCURS AT 14140000 

14018000 
BOOLEXP — BOOLFAN PROCEDURE -- DECLARED tN SEGMENT 3 AT 0?969000 -- FORWARD AT 02065600 

02343000 *0297l500* 029/2000 02976000 
BOOtPRiM — BOOLEAN PROCEDURE •• DECLARED IN SEGMENT 3 AT 02972500 — FORWARD AT 02955000 

02970500 ♦02979000* 02979500 02982500 
BOOPROCTD — DEFINE •- DECLaRED IN SEGMENT 3 AT 01194000 

14294000 
BOOSTRPROCin -- DEFINf -- DECLARED iN SEGMENT 3 AT 01190000 

14285000 
BOOV — DEFINE — DECLARED iN SEGMENT 3 AT 01282000 
BOTTOM " LABEL " DECLARED IN SEGMENT n7 AT 05439000 — OCCURS AT 05455000 

05446000 05451000 
BRANCH -• INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03037000 

O3O36OOO 
BRANCH •- INTEGER — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04116000 

04114000 04115000 *04120400* 04122000 
BRaNCHTyPE -- REAL — VALUE PARAMETER •" DECLARED IN SEGMENT 3 AT 03025000 

03023000 03024000 
BRANCHTYPE -- REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 07537000 

07535000 07536000 07540000 07544000 

BRET — Own Real -- declared in segment 69 at oeoiiooo 

♦O6O33OOO* O8O340OO O8O35OOO 08046000 *08094000**08l24000«*08l80000**08223000**08232000* 
BRNCH — ■ LABEL — DECLARED IN SEGMENT 70 aT 08092000 -- OCCURS AT 08152000 

08148000 
BSD -• DEFINE -- DECLARED IN Sfg^eNT )08 aT I6O2IOOO 

16417000 
BSPOINT — INTEGER -- DECLARED IN SEGMENT 3 AT 01007600 

02196580 *029i0300**029l0700* 
BSS -- DEFINE — DECLARED IN SEGMENT 108 aT I6O2OOOO 

16415000 
BTYPE -- DEFINE -" nFCLARED IN SEGMENT 3 aT 01452000 
BUG -- FORMAT -- DECLARED IN SEGMENT 4 AT O18O20OO 

04279000 04282500 
BUlLDLINE — BOOLEAN -- DECLARED IN SEGMENT 2 AT 00504700 

♦025?6000* 
BUMPL -- DEFINE — DECLARED IN SEGMENT 3 aT 01477000 

O4216OOO 06207000 062^7000 06300000 07444000 07459000 07487000 07493000 07495000 07540000 07577000 

07585000 08047000 08078000 O8IO6OO0 O8146OOO 08168000 08l90000 08221000 13628OOO 14O39OOO 
BUP •• INTEGER -^ DECLARED IN SEGMENT 3 AT 01695000 

♦ 13333000* 14073000 * 14079000**14083000* 14084000 *14088000* 14U6000 *14 1 18000*»14364000**14369000* 
82 •• Own rOOLfaN -- DFCLaRfD in segment 129 AT 17091110 

17091210 ♦17096800* 
B2n -• ALPHA PROcFDURf -- DECLARED IN SEGMENT 3 AT 04247000 •- FORWARD AT 01717000 

04149000 »04248000* 04279000 0428i500 04282000 04282500 04285000 04285500 05376100 09434000 09447080 

c — Real — decLaRfd in segment 3 aT oi562ooo 

♦02682000* O2686OOO *0270i000^ 02^05000 ♦02758000**0?789000*^0280l000^*02803000^*028 i lOOO^ 02827000 ♦02842000^ 

02849000 02850000 ♦02923000* 06087000 06090000 06093000 06099100 06099200 06168000 07600300 07604120 
♦07667000* 07669000 07727050 08035000 16212500 

c " tNtfreR -- vaLue Parameter -^ dfcLaRfd in segment 3 at 03047100 

03047000 
c — REAL — Value parameter — declared in segment 3 at 04203000 

04205000 04209000 04211000 ♦04216000* 042l8000 
C -• STREAM VARIABLE "• VALUE PARAMeTeR "- DECLARED IN SeGMeNT 44 AT 05334100 
05334500 

C — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 49 AT 06064000 
06066000 



C — BOOirANI — VALUF. PARAMETER •- DECLARFD IN SEGMENT 69 AT 080?0000 

OSOjiOOO 
C — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 96 AT 13673100 

13673350 
CALL -- OEFINE — DECLARED IN SEGMENT 3 AT 01721000 

05402100 05405000 05407000 05409000 054?8000 05430000 07397400 07397500 14483400 
CALL -• PROCEDURE •- DECLARED IN SEGMENT 69 AT 08072000 

08079000 08098000 08108000 08130000 082i7000 
CALLa -- REAL ARRAY «•- DECLaREO fN SEGMENT 3 AT 01720000 

05402100 05405000 05407000 05409000 05428000 05430000 07397400 •07397500** 1 4483400* 
CALLINFO -- REAL — DECLARED IN SEGMENT 3 AT 01722000 

07397300 ♦14461100* 14413300 14483400 
CALLSTATEMeNT -• LABEL -" DECLaRFO IN SEGMENT 98 AT 14017000 -• OCCURS AT 14505000 

14132000 14137300 
CALLSWITCH -• PROCEDURE -" DECLARED IN SEGMENT 3 AT 05315000 

05316000 13263000 
CALLX -- REAL '- OfcLARED IN SfGMENT 3 AT 01722000 

07397300 *07397500**14481100* 14483500 
CARD "• FILE -- DECLARED IN SEGMENT 3 aT 01557000 

02213750 02215500 02?i6250 0928i500 17002490 
CARD -- STREAM VARIABLE -- VALUE PARAMETER -" DECLARED IN SEGMENT 3 AT 02188000 

02188500 
CARdCOUNT — INTEGER " DECLARtD IN SerMENT 2 AT 00504150 

*02?34500* 
CARDLAST — LABEL -- DECLARED IN SEGMENT i2 AT 02210000 — OCCURS AT 02216000 

02?l0750 
CARDNUMBER •• INTEGER -- DECLARED IN SEGMENT 2 AT 00504100 

*022t4260**02234800* 02882200 029i0300 l33t0580 I5085l00 
CAROONLY •- LABEL "- DECLARED IN SEGMENT l2 AT 02210000 -- OCCURS AT 02215250 

02210750 
CARdOPTiON — LABEL — DECLARED IN SEGMENT l9 AT 02363000 »- OCCURS AT 02429000 

02436000 
CASEADDRESS " REAL ARRAY "- DECLARED iN SEGMENT 66 AT 07646335 

*076465l0* 07646635 
CASeSTATEMenT -- PROCEDURE -• DECLARED IN SEGMENT 3 AT 07646325 

07759200 
CASeV — DEFINE — DECLARED IN SEGMENT 3 aT 01229000 
CBUFF .- REAL ARRAY -- DECLARED IN SEGMENT 3 AT 0i56l056 

02?13750 02214000 022i5500 02215^50 022i6250 02216500 07025010 070?9000 
CD •- STREAM VARIABLE -- NAME PARAMETER •- DECLARED IN SEGMENT 67 AT 07653500 

07654500 07655000 
CDC — DEFINE -- DECLARED IN SEGMENT 3 AT 01638000 

15301400 15306600 
CELL — STREAM VARIABLE -- VALUE PARAMETER "- DECLARED IN SEGMENT «3 AT 05325040 

053?5050 05325^30 053t5i50 05325l8o *05325220* 05325330 05325350 05325360 05325380 05325390 05325*00 

05325410 05325420 
CF •- DEFINE — DECLARED IN SEGMENT 119 AT 1^002007 

17025100 17025300 17080000 
CHANGfSfQ — STREAM PROCEDURE — DECLARED IN SEfiMENT 3 AT 01741200 

01741300 02193250 
CHAR -- DFFINe — DECLARED IN SEGMENT 3 AT 01299040 

14461100 
CHAR •• Real -- Name parameter •• declared in segment 86 AT 10234000 

10242000 10252000 10255000 
CHARCOUNT — OWN INTERER "- DECLARED IN SEGMENT 86 AT 10230000 

10242000 10250000 l025l000 * 10256000** l026 lOOO* 1O285OOO 
CHECKbIT -- DEFINE •» DECLARED iN SEGMENT 3 AT 01000920 



CHFCKrR — 



OECLARED 
07070500 



IN SEGMENT 
07398000 



3 AT 05113000 
O8O54OOO 12O44OOO 
DECLARED IN SEGMENT 3 AT 01001210 
DECLARED IN SEGMENT 3 AT 13209000 



02496000 

PROCEDURE •- 
05l?0000 05?l6000 
CHFCKTOr -« DETINE "- 
CHKSOB -• PROCEDURE -- 
14?89000 

DEFINE -- DECLARED IN SEGMENT 3 AT 01639000 
060?l000 06189000 082i9000 
DEFINE -- DECLARED IN SfgMENT 3 
^- DECLARED IN SEGMENT 
0?650000 O28S1OOO O28B6OOO 
07044000 O8O5700O 12120000 
15085200 15098000 15128100 



15085000 



CHS 

CIV 
CLASS 



AT 01238000 

3 AT OII48OOO 

029i0200 

12125000 

15185200 



m • 



CLCR 
CUCR 
CNT 
cnt •• 
COC — 
COCT - 



CODE — 
CODE ' 

cOniSK 



— DEFINE 

02705100 

O539O12O 

14519000 

17095000 

- INTEGER -- DECLARED IN SEGMENT 3 AT 
♦02216500**02217750* 02218000 02218250 

• RfAL -• namf Parameter -" declared 

02202500 02203500 02209000 

STREAM VARIABLf '- VaLUf PaRaMeTER • 
02001844 

STREAM vARiABLf -- VALUF PaRaMeteR - 
O2OO1866 02001870 02001892 

DEFINE -- DECLARED IN SFGMENT 3 AT 
15093400 15290000 15306600 
m RfaL STREAM PROCEDURE -• DECLARED 
♦07656500* 07657000 07671000 

File -• declared in segment 3 at 01556900 



029i0400 
I320i000 
15276020 



02920000 
13226000 
15276090 



0?924000 
13677200 
15295100 



02966500 
14062000 
15301500 



02968000 
I409i000 
15304200 



04509000 
14425000 
15305300 



01330000 
02224500 
IN SFGMENT 



12 AT 02202750 



»- DECLARED IN SEGMENT 3 AT 02001838 

-- DECLARED IN SEGMENT 3 AT 02001858 

01640000 

IN SEGMENT 67 AT 07653500 



COL < 
COLON 



COLON 

COM . 
COMCOUNT 



04147000 
09393400 
STREAM 
04134000 
•" FILf 
08999150 

09398000 
INTEGER 

- DEFINE 
05276000 
13756000 

- LABEL 
02641000 

DEFINE 

STREAM 



04296000 
09393430 
VARIABLF 



05312000 

09400000 

•" VALUE 



07662000 

09401000 

PARAMETER 



07668500 
13651000 



07669000 
13746000 



07671500 
16495100 



'- DECLARED IN SEGMENT 3 AT 



08999200 
04130000 



08999575 08999700 09393350 



— DFCLaRED IN segment 3 AT 
0B999i75 0B999275 08999300 



01561300 
08999350 



06999375 08999550 08999575 08999600 06999700 08999725 



" Declared in segment 44 at 05344000 

— DECLARED IN SEGMENT 3 aT 01260000 

063l8oOO 06320900 07597500 07600i00 
13760000 14269480 16160000 

— DECLARED IN SEGMENT 24 aT 02637000 - 



07600600 07604020 07727010 
OCCURS AT 02663000 



07727030 07727070 13753100 



DECLARED 
VARIABLE 



IN 



SEGMENT 
VALUE 



02111500 02118000 

DECLARED IN SEGMENT 3 AT 



3 AT 01641000 

Parameter -• 



01261000 
07673000 
12125000 
14269920 



02090500 
COMMA -- nEFlNp 

06114000 07067000 07095000 07604140 

12020000 12033000 12052000 12056000 

14223000 I4259il0 14268000 14269840 
COMMANTs — STREAM LABEL 

02097500 
COMMENTS — STREAM LabEL 

02107500 02108000 
COMMENTV — DEFINE -» DECLARED IN 

02686000 02920000 06034000 

COMMON " Label — declared in segment 57 at 07037000 

07045000 07054000 07058000 07064000 07074000 

compar — Label -- declared in segment 12 at 02210500 

02216750 02218500 



DECLARED IN SEGMENT 9 AT 02089500 



08145000 
13351000 
14356000 
02092000 



DECLARED IN SEGMENT 9 aT 
DECLARED IN SfGMeNT 9 aT 02092000 
SEGMENT 3 AT 01253000 



08150000 

13403000 

14404000 

■• OCCURS 



08153000 
13409000 
15287000 
AT 0210500 



10263700 
13756000 
15293000 




10282000 12010000 
13762000 14197000 



Occurs at O2io65oo 



•• OCCURS AT 07094000 
07076000 07084000 
— OCCURS AT 02224250 



COMPARE •- RFAL STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 02168000 

♦ 0?t90000* 0?i90?50 0??03500 0?226000 02?p8i50 0223?000 02233500 OjAnOOO 02<t8600n 
COMPARECOOE -- DEFINE -- DECLARED IN SEGMfNT 114 AT 16192000 

16208000 
COMPLFTr -- LABEL -- DECLARED IN SEGMENT 2* AT 02637000 •• OCCURS AT 02909000 

02658000 02667000 02680000 02705200 027i5000 02757000 02852000 02877000 02877020 02893000 02894000 
COMPOST -- LaBfL — OFCUAREn IN SEGMENT 24 aT 02639000 -- OCCURS AT 02882000 

02880000 
COMPOuNnTAIL — PROCEnURF -" DECLARED iN SEGMENT 3 AT 07006000 

07033000 07768140 07768200 13772000 l44i2000 14512000 14524000 16489000 
COMPSl — BOOLEAN STRfAM PROCEDURE -- DECLARED TN SEGMENT 122 AT 17029000 

*17034000* 17042300 
COMPl -- BOOLEAN PROCEDURE -- DECLARED IN SEGMENT 122 AT 17042100 

•17042300#*17042350* 170*5000 
C0MP2 — pOOLEAN PROCEDURE — DECLARED IN SEGMENT 124 AT 17115000 

•17117000* 17119000 
CONSTaNa — OWN BOOLEAN *- DECLARED IN SEfiMfNT 69 AT 08013000 

08074000 06099000 08181000 08188000 *082i I000**0e224000**08227000* 
CONSTaNr — OWN BOOLEAN -- DECLARED IN SEGMENT 69 AT 08013000 

08043000 08112000 06116000 *08l2l000* 06183000 08194000 *08205000* 08213000 
CONSTaNt -- Own bOOLfaN -- OECLaReD in SErMfNT 69 AT 08013000 

08185000 08195000 ♦06204000* 08218000 
CONSTaNTCLEAN -- PROCEDURE -- DECLARED IN SEGMENT 3 AT 04163000 •- FORWARD AT 03034000 

04?t7000 07459000 07496000 075l900o 07585000 08l70000 08i90000 13744000 140«0000 14168500 14604000 

CONV •• Real stream procedure -• declared in segment 3 at 02041000 

O2O43OOO 02214260 02234900 0225i000 02255000 02259000 02502000 0258i000 02592000 
CONVERT — REAL PROCEnURF •• DECLARED IN SEGMENT 3 AT 02248000 
*02260000* 02758000 027*6000 02803000 02823000 

COP -• Real array •- dfcLaRfd in segment 3 at 01371000 

*02550000* 04280000 04283500 
CORaDR — INTEGER -- OFCLaRfD |N SEQMENT 3 AT 01344000 

05248500 *05250000* 09282600 09388000 13653000 
CORE -- STREAM VARIABLE -- VALUE PARAMfTER "" DECLARED IN SEGMENT 80 AT 09370000 

09371000 09375000 
CORNER — STREAM VARIABLE -- VaLUE PARAMETER -- DECLARED IN SEGMENT 3 AT 020H000 

O2O12OOO 
COUNT -- INTEGER "- DECLARED IN SEGMENT 3 AT 01313000 

02128500 02129000 02251000 02252000 #02327000* 02366200 *02371000* 02373000 *02499000**02590000**02602700* 
♦02647000* 02685000 02686000 *0?69i000* 02695000 *02698000**02699000* 02703000 02705000 02790000 02796000 

02798000 02803000 O281OOOO 02617000 02880000 02881000 ♦02889000**02958500* 07668000 07670000 07671000 

12109000 *12121000* 13302000 14259010 16392000 
COUNT •- STREAM VARtArLf -^ VALUE PaRAMeTfR •- DECLARED tN SEGMENT 3 AT 02062500 

O2O64OOO 
COUnT •- STREAM VARIABLE -- NAME PARAMETER •- DECLARED IN SEGMENT 9 AT 02090000 

02121500 
COUNT -- STREAM VaRiARLE -- VALUE PARAMETER — DECLARED IN SEGMENT 37 AT 05016000 

050i7000 O5O28OOO 
COUNT -- STREAM VARIABLE •- VALUE PARAMETER — DECLARED IN SEGMENT 38 AT 05067000 

05071000 05077000 ♦05010000* 
COUNT — STREAM VARIABLE -- DECLARED IN SfGMENT 43 AT 05325070 

*053?5150* 05325160 *053252l0* 05325320 05325330 
COUNT -• REAL ••- DECLARED IN SfgMeNT 49 AT O6O62OOO 

06074000 *06075000* 06103000 *06 1 12000**061 1 9000* 06120000 06121000 06122000 
COUNT -- STREAM VARIArLe "• VALUF PaRAMETfR — OECLaRfO IN SEGMENT 87 AT 10236000 

10237000 10240000 
COUNT -- tNTFGFR -- DFCLARED IN SEGMENT 87 AT 10241000 

♦10242000* 10245000 *l0247000* 10249000 10252000 10255000 10256000 



COUNTV " STRe:aM VARlABLr -- VaLUf parameter -- DECLARED IN SEGMENT 9 AT 0?0B9500 

02090500 02121000 021?3500 
CPlUSi •- DEFINE -- DECLARED IN SEGMENT 3 AT 01713000 
CPLUS? — DEFINE -- DECLARED IN SEGMENT 3 AT 01714000 
OREL — BOOLEAN -- DECLARED IN SEGMENT 31 AT 04167000 

*04173000*»04183000* 041§7000 
CRF — DEFINE -« DErLARED IN SEGMENT 106 aT I6O1OOOO 

161?1000 16200000 16370000 16408000 
CROSSHATCH — DEFTNe " DECLARED iN SeqMENT 3 AT 01262000 

10279000 
CROSSHATCH -- LABEL — DECLARED IN SEGMENT ?4 AT 02640000 -- OCCURS AT 02714000 

02642000 
CROSSREFDUMP — PROCEDURE •- DECLARED fN SEGMENT 3 AT 0200l740 

O2OOJ83O !3?83«;00 14445100 
CROSSrEFIT •- PROCEDURE -- DECLARED IN SEGMENT 3 AT 02001640 

02001730 02682200 13310580 14469100 15090600 15184400 15301000 
— STREAM VARIABLE -• NaMe PARAMETER -- DECLARED IN SEGMENT 8 AT 02001760 

02001775 02001780 
— STREAM VARIABLE " NaMf PARAMETER -• DECLARED IN SEGMENT 3 AT 02001838 

02001842 02001848 02001850 
•- STRfaM variable — NAMp PARAMETER -- DECLARED IN SEGMENT 3 AT 02001858 

02001890 0200ifl95 020(&i896 
D — STREAM VARIABLE " NAMp PARAMETER -- DECLARED IN SEGMENT 15 AT 02264400 

02264500 
•• STREAM VARIABLE — NAME PARAMETER -- DECLARED IN SEGMENT 15 AT 02264700 

02264600 
-- tNTEGER -- VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 03047100 

03047000 
D •• INTEGER -• DECLARED IN SEGMENT 31 AT O4I66OOO 

♦04175000* 04184000 
— STREAM VARIABLE — NaMe PaRAMeTER — DECLARED iN SEGMENT 67 AT 07658500 

07659500 07660000 
— STREAM VARIABLE — NAMp PARAMETER -- DECLARED IN SEGMENT 86 AT 10257100 

10257200 
D — STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 89 AT 12103000 

12104000 
-- STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 102 AT 14254200 

14254300 
D •- REAL -- DECLARED IN SEGMENT l09 AT I6O3IOOO 

•16032000* 
— REAL — DECLARED IN SEGMENT 110 AT 16067000 

•16070000* 16079000 
D " STREAM VARIABLE -- NaMf PARAMETER -- DECLARED IN SEGMENT 124 AT 17047200 

17047800 
D — STREAM VARIABLE " NaMf PARAMETER -- DECLARED IN SEGMENT 124 AT 17051400 

I70«5l700 
D — STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 124 AT 1705?600 

17052800 17053000 
DA -. INTEGER -- DECLARED IN SEGMENT 3 AT 0i559020 
DATE — STREAM VARIABlF *•' VALUE PARAMETER -- DECLARED IN SEGMENT 5 AT 01823000 

01825000 
OATER -- ALPHA STREAM PROCEDURE -• DECLARfD IN SEGMENT 5 AT 01823000 

01825000 01827000 O1833OOO 
DATIMF " PROCEDURE — DECLARED IN SEGMENT 3 AT 01820000 

01837000 02195000 02195750 02196590 022l4200 02228750 02264950 0?421000 05039600 05325490 07025020 

13653500 U676000 1709U70 
DBLSTmT — PROCEDURE -- DECLARED IN SEGMENT 3 AT 12002000 — FORWARD AT O3O6OOOO 

07753000 12059000 



DBV -- DEFINr — DECLARFD IN SfgMENT 3 AT 0i243000 

16417000 
DClNTvPr — DEFINE •- DECLARED IN SEGMENT 3 AT 0156U20 

09430060 
DCV -- DEFINE — DErLAREO IN SfgMeNT 3 AT 0^248000 

16208000 16338000 
ODFS -- DEFINE — DFCLaReD tN SEGMENT 3 AT 01299000 

07677000 
DEBLANK -- STREAM LABfU -- DECLARED IN SEGMENT 9 AT 02091500 •- OCCURS AT 02100000 

02094500 
DEBUG -- PROCEDURE — DECLARED IN SEGMENT 3 AT 04277500 

04286000 04297000 
DEBUGBIT — DEFINE -- DECLARED IN SEGMENT 3 AT 01000930 

02531000 02533000 02602500 04148000 04297000 
DEBUGTOr, -- DEFINE — DECLARED IN SEGMENT 3 AT 01001220 

02533000 02602500 04148000 04297000 
DEBUGWORD — STREAM PROCEDURE — DECLARED IN SEGMENT 3 AT 04130000 

04149000 
DECK — FtLE -• DECLARED iN SEGMFNT 3 aT 01561500 

09435000 09447000 09447090 
DECKBtT -- DEFINE — DFCLaRfD iN SEGMENT 3 AT 0i000940 

02474000 09405000 094i40j0 0942t000 094470i0 13651100 
OECKTOG •• DEFINE -- DECLARED IN SEGMENT 3 AT 0i00l230 

09405000 09414010 09421000 09447010 13651100 
DECLARATORS — DEFINE -- DECLARED IN SEGMfNT 3 At 01214000 

07767000 10277000 14186000 14370000 14396000 14516000 16434000 
DECLARELABEL — PROCEDURE '• DECLARED IN SEGMENT 3 AT 16000100 

16253100 16^82200 
OECLRrF -- DEFfNir -- dfCLaRfD IN SEQMeNT 3 AT 0i007490 

13310525 13310580 I43i2l00 17092900 
DECLSw — SWITCH LABEL — DECLARED iN SEGMENT 98 AT 14018000 

14134000 
OEFINfARRAY •- REAL ARRAY -- DECLARED TN SEGMENT 3 AT 0i49i000 

♦02202030**02202040* 02202050 O22O2O6O 022i2500 +0221 7250**0221^500* 0??l7750 022l8000 02366100 02602600 

02719000 02721000 *02900000**02902000* 02903000 
DCFINfCTR — INTEGER " DECLARED IN SEGMENT 3 AT 01481000 

02715000 *lO262OO0**iO27fi000* 10280000 * 10283000** 10284000* 
DEFINfDFC — Label -- declared in segment 98 at 14017000 -- OCCURS AT 14254000 

14021000 
DEFINfDID -- DEFINE -- DECLARED IN SEGMENT 3 AT OII8OOOO 

02894000 12120000 14259010 
DEFlNrGpN -- PROCEDURE •• DECLARED iN SEGMENT 3 AT 10228000 

10286000 12124000 14266000 
DEFINfINDEX -- INTEGER — DECLARED iN SEGMENT 3 AT O1481OOO 

02212500 02718000 027i9000 *0272lO00* 02898000 02900000 02902000 02903000 ♦02905000* 
DEFINfV -• DEFINE -- DECLaReD IN SEGMENT 3 aT 01298000 

10278000 
DEFINING — BOOLEAN -- DECLARED IN SEGMENT 3 AT 01007650 

*024l9llO* 029i0i00 132»3500 l33l0900 ♦I4255500**i426e500* 14445100 16495300 
DEL -• DEFINE — DECLARED IN SFGMeNT 3 AT 01642000 
DEPTH •• REAL PROCEDURE -- DECLARED IN SEGMENT 3 AT 05400000 

♦054021Q0^^05403DOO* 05407000 ♦05409000* 05426000 05431000 
DESC •• DFFlNr — DfCLaRED TN segment 69 aT 08016000 

08098000 08108000 
DEST -- STREAM VARIABLE -- NAME PARAMETER -" DECLARED IN SEGMENT 3 AT 02045000 

O2O48OOO 
DIA •• DEFINE -- DECLARED IN SEGMENT 3 AT O16BOOOO 



04315000 0/1550000 
DIAUA -- TNTEGER -- DECLARED IN SEGMENT 3 AT 0l50?000 

*04 3 15000**08 152000* 
DIAUB •- INTEGER "• DECLARED IN SEGMENT 3 AT O15O2OOO 

•043l7000**08152000* 
DIB — DEFINE -• OEcLaRED IN SfgMeNT 3 AT 0]6ei000 

04317000 
DIO -- DEFINE •- DECLARED IN SEGMENT 3 AT 0]237000 
DISK -- F?LE -• DECLARED iN SEGMENT 3 aT 01561400 

01561600 01628500 09425900 09429000 09430075 O943O1OO 
DISK -- STREAM VARIABLE •' VALUE PARAMETER -• DECLARED IN SEGMENT 80 AT 09370000 

09371000 09376000 
DISKADR — INTEGER -f DECLARED IN SEGMENT 3 AT 01344000 

05252000 *05254000**09253100* 09389000 13653000 
DOlT •- STREAM PROCEDURE -- DECLARED IN SEGMENT 44 AT 05334100 

05350160 05350?00 
OOlT — STREAM PROCEDURE "- DECLARED IN SfGMENT 96 AT 13673100 

13673450 13677300 
DOLLAR *• LABEL — DECLARED IN SEGMENT 24 AT 02639000 -^ OCCURS AT 02729000 

02641000 
DOLLARCaRD -- PROCEDURE -- DECLARED IN SEGMENT 3 AT 02319000 -- FORWARD AT 02065500 

02??9000 0??31000 02604000 0^730000 
DOLLARTOG •• BOOLEAN -- DECLARED IN SEGMENT 3 AT 0l00i540 

*02366000**0260 3000* 
D0LLAR2T0G -• BOOLEAN -- DECLARED IN SEGMpNT 3 AT 01691500 

•0221 1800**02230100* 02234600 02421000 
DOSTMt — PROCEDURE -- DECLARED IN SEGMENT 3 AT 07482000 

07488000 07759000 
DOT — LarfI — DECLARED IN SEGMENT 24 aT 02637000 -- OCCURS AT 02668000 

02641000 
DOT •- PROCEDURE -- DECLARED IN SEGMENT 3 AT 06338000 i-- FORWARD AT 03015000 

06178000 06346000 
DOTSYNTaX -- BOOLEAN PROCEOURp -- DECLARED tN SfGMENT 3 AT 05270000 

*052a6000* 06341000 15087800 151834OO l5276l50 I5300l00 
DOV — DEFINE — DECLARED IN SEGMENT 3 AT 0i225000 

07494000 08159000 08U6000 
DPTOG •• BOOLEAN •— DECLARED IN SEGMENT 3 AT 01690000 

02253000 02784000 027f4000 02829000 *1 20i 2000**1 2O 16000* 
OSKiP -- STREAM VaRIArLf — VALUE PaRAMETeR "- DECLARED iN SEGMENT 3 AT 02045000 

O2O46OOO 02049000 
DSKl — FILE -• DECLARED iN SEGMENT 3 AT 01561085 

O2OO1821 i70iOO0O i70i3000 l7022l00 17026000 17044000 17093950 
DSK2 -- FfLE — DECLARFD iN SEGMENT 3 AT 01561087 

02001680 17004000 17076000 17118000 
DSS — PROCEDURE -- DECLARED IN SEGMENT IO8 AT 16362000 

16398000 16491000 
DSV — DEFINE -- DECLARED IN SEGMENT 3 AT 01240000 
DTYPE — DEFINE — DECLARED IN SEGMENT 3 aT 01452000 
DUMMY •- nFFINE -- DECLARED IN SEGMENT 3 aT 01001470 
OUMPDfC •- LABEL "- DECLARED IN SEGMENT 98 AT I4O14OOO — OCCURS AT 14149000 

14019000 
OUMPEF — DEFINE -- DECLARED IN SEGMENT 3 AT 01547000 
OUMPINFO — PROCEDURE — DECLARED IN SEGMENT 3 AT 02264000 

02266109 02468000 
DUMPOR •- DEFINE ••- DECLARED IN SEGMENT 3 AT 01552000 
DUMPV — DFFINE -- DECLARED JN SEGMENT 3 AT 01287000 

075P4000 07646610 l5093?00 15095900 15185800 15302500 15303000 



DUPIT •• flOOLEA 
*15091600* 
♦15302000* 
DWa -" INTEGER 

♦02265500* 
E •- PROCEDURE 

12123000 
E -* LABEL -- 

04100000 
E — REAL •• 

045?6200 
E — REAL — 

04503000 
E "" STRfaM VaR 

12105000 
E •• REAL 

16070000 
E •- REAL " 

16089000 
EOTTLiNr •- SIR 

02187000 
EDOC -- STREAM 

13685000 
EDOCINOEX «- DE 
EL -- LABEL -- 

06107200 
EL -- REAL -- 

*121 12000* 
ELPAT — REAL A 

02265100 

05218000 

05344660 

06166000 
♦O7O31OO0* 

07566000 
*08034000* 
♦09437000* 

12125000 

14220000 
♦I45i9000* 

16212500 

16435000 

CLBATwORD — RE 
05H6000 

ELBATWORD — RE 
05?06000 

ELBATWORD — DE 
07599000 

ELBW — REAL - 
♦07521000* 

ELCLASS — iNTf 
♦05002000* 
O6O46OOO 
06138000 
06317300 
♦07032000^ 
07485000 



N •- DECLARED IN SEGMENT 107 

I509?p00 15095400 15O957OO 

15302300 15302800 15303400 

— DECLARED IN SEGMENT 15 aT 

02265600 02265700 

-- DECLARED IN SEGMENT 3 AT 

13333500 13342000 

DECLARED IN SEGMENT 

04102000 
VALUE PARAMETER -- 

04530000 04516000 
VALUE PARAMETER "- 

04506000 04508000 



AT 15076400 

15096400 15096800 *i5l84B00* 15l85l00 15185600 15l86l00 15186300 



02264100 

13293000 ' 
13755500 16000600 
29 AT O4O99OOO -- 

DECLARED IN SEGMENT 
04543000 04549000 
DECLARED IN SEGMENT 
♦04509000* 04522000 



•- forward at 03054000 
Occurs at 04112000 

3 AT 04500000 

04555000 

36 AT 04504000 



IABLf 



Value parameter 



DECLARED IN SfGMeNT 89 AT 12103000 



- VALUE PARaMfTER 



DECLARED IN SEGMENT 
DECLARED IN SfGMeNT 



VALUE PARAMETER -' 

16093000 
EAM PROCEDURE " DECLARED tN SEGMENT 3 

02195000 02195750 02214200 022?8750 



108 AT 16065000 

108 AT 16085000 

AT 02183500 
02421000 05038000 



VARIABLE " NAME PARAMETER — DECLARED IN SEGMENT 3 AT 

13687000 13693000 
FINE -- DECLARED IN SEGMENT 3 AT 01710000 

DECLARED IN SEGMENT 49 aT 06061900 •" OCCURS AT 0610430 



07025020 
13683000 



DECLARED 
12114000 

RRAY -- 
02265250 
05222000 
05344700 
06185000 
07070000 
07572000 
08037000 
09447000 
13200000 
14221000 
15077000 
16254000 

*16449000* 

AL -- VA 
05118000 

AL -- VA 
05207000 

FINE — 
07601000 

• DECLARE 
07527000 

GER •- D 
♦65003000* 
06052000 
06139000 
06320900 
07052000 
07494000 



IN Segment 

♦12125000* 

DECLARED I 
♦029i0000* 

05273300 
05344710 
06315300 
07070500 
07583000 
08176000 
*094470i0* 
13310350 
14269446 
15276010 
16321000 



89 AT 12 
12126000 

N SEGMENT 
02916000 
05273400 
05350120 
06315400 
07071000 
07599000 
09424000 
09447070 
13341300 
14269448 

♦16000700 
16329000 



102000 

3 AT 0131 
02920000 
05274100 
05350160 
06316300 
07396000 

*07646525 
09425900 

*09447080 

13361000 

14269520 

* 16121000 

16342000 



9000 

02923000 
05274200 
05350180 
06316400 
07430000 

* 07667000 
09427500 

* 09447090 
13372000 
14269540 
16124000 
16344000 



LUE PARAMETER -- DECLARED IN SEGMENT 

LUE PARAMETER — DECLARED IN SEGMENT 

O59O8OOO 05209000 
DECLARED IN SEGMENT 65 AT 07595000 

D IN SEGMENT 62 AT 07503000 



*02924000< 
05280000 
06016000 
06320100 
07516000 
07745000 
09429000 
10277000 
13394000 
14314000 
16159000 
16370000 

3 AT 05113 

3 AT 05207 



05089000 
05281000 
06044000 
06320200 
07516300 
07768100 

*09432000* 
12015000 

♦13767000* 
14349000 
16200000 
16376000 

000 

000 



ECLARED IN 
05109000 
O6O55OOO 
06141000 
06340000 
07013000 
07506000 



Segment 3 

05273800 
06076000 
06146000 
06411000 
07075000 
07507000 



AT 01328000 
05275000 05304000 



06084000 
06151000 
06416000 
07084000 
07511000 



06104100 
06175000 
06422000 
07095000 
07550000 



05344550 
06105000 
06180000 
07012000 
07096000 
07553000 



06004000 
06106300 
06191000 
07013000 
07399000 
♦07556000* 



05189000 
05344570 
06072000 
06324000 
07518000 
07994000 
09433000 
12024000 
13768000 
14352000 
16204000 
16379000 



06013000 
06107100 
06302000 
07018000 
07404000 
07578000 



05216000 
05344615 
06104300 
06325000 
07521000 
07995000 

♦09434000* 
12036000 

♦14062000^ 
14353000 
16208000 
16408000 



06034000 
06114000 
06315100 
07021000 
07409000 
07600300 



05217000 
05344620 
06108000 
06326000 
07554000 
08029000 
09435000 
12044000 
14129000 
14399000 
16211000 
16412000 



060)6000 
06115000 
06316000 
07026000 
07431000 
07600400 



I 
CtCUASS 

eusebran 
eisev 

EMIT - 



EMtTB 

EMITC - 
EMfTO - 

eMiti 
eMitJump 
emttl ■ 

EMjTLNG 
EMtTN . 

EMfTNuM 
EMfTO ' 



07604110 
077?7000 
08103000 
O8186OOO 
13337000 
14137000 
14?«9920 
15083000 
15305000 
16315000 
16374000 
1648?300 

•- ReaU 

10?63400* 
-- DEFf 
132?6000 
CH •- I 
06300000*1 

• DEFINE 
0630?000 

PROCEDU 
04004000 
04531000 
06104600 
07646550 
16122000 

- PROCFD 
04i?5000 
07579000 
08146000 

• PROCED 
040i4000 
I6216OOO 

• PROcFn 
04322000 

• PROcEn 
06344000 

— PRO 

16093000 

• PROcED 
04032000 
13773000 

•-- PROC 
04112000 

- PROCED 
04024000 

15185500 

•• PROr 

04121000 
•• PROcFn 
04018000 

04531000 
07078000 
07646555 
08094000 
12054000 
14389000 
15301400 



07646^90 
07727010 
08113000 
08229000 
♦13338000 
14165000 
14325000 
15086200 
16119000 
16319000 
16379000 
16482500 

-• nEC 

10263700 

Ne •" D 
13246000 

ntegeR - 

06307000 

-- DEC 

07567000 

RE -- D 
O4OO70OO 
04535000 
06148000 
07995000 
16133000 

URE -- 
04218000 
07585i00 
O81660OO 

URE -•■ 
14451000 
16342000 

URE -- 
04556000 

URE — 

15096000 

cfoure • 

16255000 

uRe •- 

04205000 
14506500 

EDURe — 
06148000 

URE — 
04212000 
15276080 

EDURE — 
04225000 

URE -- 
04023000 
04537000 
07087000 
07646610 
08123000 
13263000 
14451000 
15301600 



#07646525* 
07727030 

08128000 
I2O22OOO 

* 13391000 
14197000 
14326000 
15087600 
16131000 
163J0000 
16381000 

IaRfd in se 

10264100 

fclaRed in 

13278000 
- DECLARED 

LARED IN SE 
07578000 

eclaRed in 

040i4000 
04550000 
06166000 
O6O4900O 
16219000 

DECUAREO tN 
06207000 
07586000 
08215000 

DECLARED IN 
16032000 
16352000 

DECLARED IN 
05203000 

DECLARED IN 
15103400 

• DECLARED 

DECLARED iN 
04544000 

DECLARED 
07573000 
DECLARED IN 
04524000 
15301200 

declaRfd 

O6II8OOO 
DECLARED TN 
04033000 
04545000 
07091000 
076A661S 
08125000 
13264000 
15093200 
15302500 



07646535 
07727050 
08133000 
I2O28OOO 
13400000 
14259020 
14336000 
15088600 
16132000 
16326000 
16410000 



07646580 
07728000 
08139000 
12033000 
13403000 
14259120 
1435^000 
15183300 
I6198OOO 
I633OOOO 
16415000 



07646603 
*07749000* 
08145000 
I2O35OOO 
13409000 
14260000 
14370000 
15183800 
16204000 
16335000 
16417000 



07665000 
*0775l000 
08150000 
12039000 
13756000 
14269280 
14396000 
15276010 
I621OOOO 
16336000 
16437000 



07665500 
**07768i30« 
08153000 
12042000 
13758000 
14269442 
14404000 
15276140 
16212500 
16337000 
16477000 



rMeNT 86 AT 10258100 

JO2643OO 10264410 10277000 i0?79000 *10282000« 
SEGMENT 91 AT 13220000 

IN SeGMfNT 53 AT 06295000 



GHENT 3 aT 
16220000 

SEGMENT 3 
O4O19OOO 
04551000 
06191000 
08050000 
16232000 
SFGMpNT 3 
O63O1OOO 
07608000 
08221000 
SEGMENT 3 
16079000 
16370000 
SEGMfNT 3 
06332000 
SEGMrNT 3 
15165900 
IN SrGMpN 



01227000 
I623OOOO 

AT 042910 
04024000 
04554000 
06306000 
08122000 
16266000 
AT 04114 
06307000 
07646605 
13606000 
AT 04010 
16121000 
16378500 
AT 04311 
07093000 
AT 04500 
15187300 

T 108 AT 



00 -- FO 
O4O86OOO 
06054000 
07093100 
08148000 
16387000 

000 "•■ F 
07088000 
07646635 
14041000 

000 

16124000 
16379000 

000 — F 
07093200 

000 

15276210 

16065000 



RWARO AT 03 
04221000 
06054100 
07431000 
08151000 
16394000 

orwaRd at 

07444000 
07646665 



16200000 
16383000 
ORWARD AT 
15097600 



028000 
O43O2OOO 
06082000 
07436000 
08227000 
16453000 

3036000 
07487000 
08047000 



16208000 
16408000 
3050000 
15186700 



15303100 15307200 



07666000 
O8O31OOO 
08159000 
12052000 
13760000 
14269460 
14479000 
15287000 
16213000 
I6338OOO 
16478000 



07666500 
08032000 
08182000 
12056000 
13762000 
14269680 
♦14516000* 
15294000 
16230000 
16339000 
16481000 



04315000 
06087000 
07544000 
14451100 



07495000 
08078000 



16211000 
16415000 



04317000 
06089000 
07604070 
15376700 



07496000 
08066000 



16212500 
16417000 



15276070 15303800 



07668000 
08036000 
08184000 
13331000 
13763000 
14269840 
15078000 
15300500 
16253000 
16341000 
16482100 



04318000 
06099100 
07646460 
16080000 



07540000 
08127000 



16213000 



SEGMpNT 3 AT 04003000 
05222000 O611OOOO 06206000 



08046000 08067000 08077000 13264000 13267000 



IN Segment 
07575000 

SEGMENT 3 
05202000 
15305500 
IN SEGMENT 
07089000 

Segment 3 

04034000 
05226000 
07408000 
07646620 
06126000 
13268000 
15093400 
15302600 



3 AT 04096000 
08150000 082 
AT 04022000 
07092000 080 
15306400 162 
3 AT 04203000 
07442000 080 
AT -04006000 
04109000 041 
05316000 060 
07434000 075 
08044000 080 
08166000 081 
13740000 137 
15095900 151 
15303000 153 



20000 



75000 


08179000 


08212000 


12036000 


15086400 


15092600 


61000 












•>)• 


FORWARD AT 


03049000 








21000 


08089000 


12014000 


I20i5000 


13229000 




12000 


04122000 


04212100 


04223100 


04311090 


04507000 


21000 


06077000 


061 IO3OO 


06172500 


06187000 


06203000 


12000 


075164Q0 


07524000 


07525000 


07526000 


07646465 


49000 


06050000 


08065000 


08066000 


08070000 


08079000 


89000 


08214000 


08219000 


08228000 


12024000 


12038000 


43000 


13752000 


13761000 


13765000 


13766100 


14167000 


00400 


15100600 


15101000 


151^5800 


15276090 


15290000 


03900 


15304100 


15304200 


15305600 


15305800 


15306600 



IN SFOMrNT 3 aT 0^028000 
05227000 07071000 07090000 



eMttpair — pbocfdure -• ofcLarfo 

04034000 04523000 0520)000 
15267000 
EMiTStORE "- OrriNr -- DECLaREO in segment 3 at 13214000 
13230000 

PROCEDURE -• DECLARED tN 



08090000 13230000 15101600 15185300 15186600 



EMiTV 



04184000 
08075000 



04184500 
08166000 



040i9000 

08044000 

15306200 
EMITWORD -- PROCEDURE -- DECLARED 

04152000 04187000 07604120 
EMIT21 -• PROCEDURE -- DECLARED 1 

04526200 04530000 04536000 

ENnorrT — integer •- declared in 

•07646625* 07646640 
ENdOFtTaLL -- LABEL •• DECLARED I 
ENDREAOTAPf -- LABEL -• DECLARED 

02?020i0 
EN0T06 -- BOOLEAN •• DECLARED IN 
♦02653000* 02680000 O2884OOO 
DEFINE -• DECLARED IN SEG 
029t0400 05109000 070i3O0O 
•" PROCEDURE ••' DECLARED IN 

13390000 14138000 14139000 
•- PROCEDURE — DECLARED iN 

13729000 14165000 14194000 
' LarFL -'■ DECLARED iN SECME 

02216250 
' LAREL -- DECLARED 
08999150 08999375 

' Label -• declared 

09399000 
' LarfL 
17010000 

' Label 

17076000 

'- Label 

02201750 

'- Label 

17093950 
•• LABEL " DECLARED IN SEG 
' DEFINE — DECLARED IN SeqM 
P- BOOLEAN STREAM PROCEDURE 
♦02064000* O2O645OO O2881OOO 
EQVOP •• DEFINE — nECLARED IN SE 
02965500 02971000 O6O36OOO 
PROCEDURE — DECLARED IN S 



05316000 
13739000 



Segment 3 at O4oi70oo 

O4521OOO 05219000 05226000 
08212000 12047000 13236000 

IN SEGMfNT 3 AT 04142000 

N SEGMENT 36 AT 04503000 
0454300Q 04549000 04555000 

Segment 66 at 07646405 



N segment 3 AT 05101100 — OCCURS AT 1 

IN Segment i3 aT 02201510 — occurs at 



07413000 
15086800 



07439000 
15095600 



6495210 
02202080 



ENDV — 
ENTER 
ENTRY 
EOF -• 
EOF - 
EOF •■ 
EOF •' 
EOF -' 
EOFT ' 
E0f2 ' 



EPART 
EOL . 
EQUAL 



SEGMENT 3 AT 0i4l5000 

*0602i000**060?2000**070i6000* 070l9000 •07020000*^0764660 i ♦ 

MENT 3 AT 01228000 

07018000 07646475 07646580 07646603 

SEGMENT 3 AT 13714000 -- FORWARD AT Oi 

14140000 14141000 14162000 

SEGMENT 3 AT 13314000 '- FORWARD AT O; 

14207000 14259010 14269240 14319000 
NT 12 AT 02210250 -- OCCURS AT 022l700( 



07748000 07749000 
13069000 



13055000 

14333000 14403000 
>0 



IN SEGMENT 71 AT 08999050 •• OCCURS AT 0899940 

IN SEGMENT 81 AT 09394000 -• OCCURS AT 0941300 

-- DECLARED iN SEGMENT 123 AT 17009000 -- OCCURS AT 170120 



DECLARED 
17079000 
- DECLARED 



IN SEGMENT 127 AT 17073000 " OCCURS AT 170820 



IN Segment 13 at 0220i5io -- occurs at 022020 

- DECLARED IN SfgMeNT 129 aT 17091100 -- OCCURS AT 17096 

MENT 24 AT 02639000 -- OCCURS AT 028)0 
ENT 3 AT Oi644000 

DECLARED IN SEGMENT 3 AT 02062500 







00 

00 

20 

800 

000 



ERR •»• 

02211500 04145000 04300000 

06U2000 06151000 06154000 

06423000 07015000 070S3000 

07517000 07598000 07600700 

07994000 08059000 06134000 

14259090 i4259i20 15081000 

15297000 15300900 15306800 

16253100 16316000 163«7000 

ERReXtT -- DEFINE -- DECLARED IN 

15089800 15102600 15184300 



GHENT 3 aT 
15091600 

EGMENT 3 A 
05109000 
06J76000 
07097000 
07604130 
08160000 
15089800 
16125000 
16367000 

SEGMENT lO 
15300900 



01274000 
15184600 
T 05105000 
05285000 
06302000 
07099000 
07646458 

08178000 
15102600 

16132000 

16384500 

7 AT 150/61 

15306800 



15302000 

•- FORW 
06005000 
06316700 
07405000 
07646585 
06229000 
15184300 
16160000 
16397000 
40 



ARD AT 017 
06086000 
06334000 
07412000 
07667500 
12007000 
15256000 
16205000 
16418000 



18000 
06095000 
06411000 
07437000 
07672500 
12033000 
15261000 
16206000 
16463000 



06107000 
06415000 
07485000 
07674000 
12039000 
15276170 
16207000 



07516300 
15276060 



07646603 
16477000 

14409000 



06109000 
06417000 
07494000 
07727080 
12052000 
15276190 
16214000 



08021000 
15290000 



♦07646604^ 
16133000 



06116000 
06421000 
07513000 
07732000 
12056000 
15294000 
16217000 



ERRMAX -- INTFGER -" DFCLaRfD TN SFGWENT 3 AT 0l00l550 

02?U500 ♦02502000**09028910* 
ERRNUM -*• INTFRFR -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 01716000 
ERRNUM -- INTEGER -- VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 01718000 
ERRNUM -- TNTfGER •- VALUE PARAMETER •- DECLARED IN SEGMENT 3 AT 050l?000 

O5O44OOO 05091000 
ERRNUm •- STREAM VARIABLE -- VAlUE PARAMETER -- DECLARED IN SEGMENT 37 AT O5O16OOO 

050i7000 05026000 
ERRNUM — INTEGER -• VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05105000 

05106000 05l07i00 05107200 
ERROR •- STREAM LABEL — DECLARED IN SeGMfNT 9 aT 02091500 -• OCCURS AT 02114000 

02119000 
ERROR — nEFlNE — nECLARED IN SEGMENT 25 AT 02958000 

02959000 
ERROR -•• dEFINf -- DECLARED IN SEGMENT 3 AT 05110000 

07667500 07672500 07674000 
ERRORcOuNT — INTEGER -- DECLARED IN SEGMfNT 2 aT 00501000 

02211500 *05035000* 050i7000 09028000 *090?8900* 09386000 09391000 
ERRORTOf, — BOOLEAN .- DECLARED IN SEGMENT 3 AT 01412000 

05032 000 *05047000** 051 19000**07 009000**07063000**07645000**07646485**07750000**13282000**1 4 130000**! 4443000' 
14511000 •16130000* 
EXaMIN — REAL STREAM PROCEDURE — DECLARED IN SEGMENT 2 AT 00511000 

00512000 00529000 00531000 00533000 00536000 02214200 02225750 02228250 02230000 02230100 02665000 
02680000 02697000 02745000 02^50000 02753000 02786000 02791000 02807000 028i3000 O2888OOO 

fXiT — STREAM Label -- declared in segment 3 at oi7580oo -- Occurs at 01782000 

01763000 01764500 

extt — stream Label — declaRfd in segment 9 at 02091500 — occurs at 02119500 

O21O45OO O2112OOO 0?ii4500 02115500 02ii8500 
EXIT -- LABEL — DECLARED IN SEGMENT 12 AT 02210000 •- OCCURS AT 02225000 

02215750 
EXIT — LABEL •- DECLARED IN SEGMENT 19 AT 02360000 -- OCCURS AT 02602000 

02375000 02411000 02413000 02486000 02488000 
EXIT •• LABEL -- DECLARED IN SfGMENT 25 AT 02957000 -- OCCURS AT 02967500 

02959000 02962500 

EXIT — Label "- declared in segment 35 at o43iioio -- occurs at 04322100 

04311100 

EXIT — Label — declared in segment 36 at 04501000 -- occurs at 04553000 

04526200 04532000 04538000 04546000 04552000 

EXIT — Label -■ declared in sfgment 38 at 05049000 -- occurs at 05100000 

05094000 

exit — Label -- declared in sfgment 4i at 05273000 -- occurs at 05286000 

05273500 05274400 05284000 
exit •• LABEL -- declared IN SEGMENT 43 AT 05325030 

EXIT — Label -- declared in segment 44 at 05334000 -- occurs at 05375000 

05344760 05372000 
EXfT •• LABEL -■» DECLARED IN SEGMENT 47 AT 05439000 ■"» OCCURS AT 05458000 

05454000 05457000 
EXIT — LABEL -- DECLARED IN SEGMENT 49 AT O6O61OOO -• OCCURS AT 06125000 

060^9000 06086000 060^6000 O6IO7OOO 06109000 06116000 
EXIT -- LABEL -- DECLARED IN SEGMENT 50 AT 06137000 -- OCCURS AT 06182000 

06142000 06149000 06154000 06176000 
EXfT -. LABEL -^ DEcLaRED IN SfqMeNT 52 AT 06195000 «- OCCURS AT 06209000 

06200000 06204000 
EXIT •- LABEL -- DECLARED IN SEGMENT 54 AT 06315000 -- OCCURS AT 06335000 

06316600 06333000 
EXIT — LABEL -- DECLARED IN SEGMENT 55 AT 06339000 •- OCCURS AT 06346000 

06341000 



EXIT -• IaBEU -- DCrUARFD IN SFOiMfNT 57 AT 07037000 -- OCCURS AT 07101000 
07097000 07099000 

EXIT -- Label — DFrLARro tn sfgmfnt 58 at O739aooo -- occurs at 07425000 

07402000 07405000 
exit — LABEL -- DErLARrO IN SEGMENT 62 AT 075O4OOO -• OCCURS AT 07531000 

07514000 07516600 075l7000 07519000 
EXIT — LABEL — DECLARED IN SEGMENT 63 AT 07549000 — OCCURS AT 07557000 

07555000 
EXfT -• LABEL -- DECLARED IN SEGMENT 64 AT 0756?000 -• OCCURS AT 07587000 

07573000 07574000 07576000 07579100 07584000 
EXIT — LABEL — OEtLARED IN SEGMENT 65 AT 07594000 •• OCCURS AT 07646000 

07598000 07600700 

EXIT — Label -- declared in Segment 68 at o77260oo •- occurs at 07771000 

07727080 07732000 07733000 07735000 0773^000 07739000 07743000 07746000 07749000 07751000 07753000 
07755000 07757000 07759000 07759200 07761000 07763000 07765000 07768160 

EXIT — Label — oetLaReo in segment 69 at oaouooo -- occurs at 08232000 

08178000 08222000 08229000 

exit •• Label •• declared in segment 7o at 08092000 -- occurs at 08172000 

08134000 O816O0OO 
EXiT -• LABEL •- DECLARED IN SEGMENT 86 AT 10259000 -• OCCURS AT 1O284OOO 

10263900 10275000 
EXIT -- LABEL -- DECLARED IN SEGMENT 88 AT 12005000 -- OCCURS AT 12058000 

12033000 12040000 I2O52OOO 12056000 
EXIT — Label — declared in segment 103 aT 14269100 — occurs at 14269860 

14269710 14269760 

EXIT — Label — declared in sfgment 107 aT 15076000 -. occurs at 15377000 

I5O81OOO 15087000 15088000 15089800 l5l02600 i5l83500 i5i84300 151874OO 15256000 i526l000 15275000 

15276120 15276150 15276170 15276190 15276230 15294000 15297000 15300200 15300900 15301800 15306800 

EXIT — Label — DEcLaREO in SfgMeNT 112 aT I6li7000 •• occurs at 16144000 

16125000 16132000 

EXIT -•' Label •- declared in segment 114 aT I6I93OOO •- occurs at 16239000 

16205000 16206000 16207000 16214000 I62l7000 

EXIT -- Label — declared in segment lis at 16251000 -- occurs at I6270000 

16253100 
EXIT — Label — declared in segment 116 aT 163l3000 -- OCCURS AT 16355000 

16316000 16342000 16347000 
EXIT — Label — declared in SfgMeNT 117 at 16365000 -- OCCURS AT 16398000 

16367000 16384500 
EXIT "- Label — DFcLaRFO in SfgMeNT 108 at I64750OO -- occurs at 16494000 

16484000 16487000 16490000 16'>9i000 16492000 16493000 
EXPECT »•- REAL — VaLUF PARAMETER -" DECLARED IN SEGMENT 3 AT 03009000 
EXPECT — REAL — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 06060000 

06119000 
EXPRSS •- INTEGER PROCEDURE "- DECLARED IN SEGMENT 3 AT 06057000 -• FORWARD AT 03007000 

06299000 
F -• INTEGER -- DECLARED IN SEGMENT 3 aT 01688000 

•14077000**! 4078000** 141 l5000* 
F — STREAM variable — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02262000 

02263000 
F -• STREAM VARIABLE — NAME PARAMETER •- DECLARED IN SEGMENT 21 AT 02441000 

02443000 
F •- STREAM VARIABLE •' NAME PARAMETER -• DECLARED IN SEGMENT 21 AT 02446000 

02448000 
F — STREAM VARIABLE •• DECLARED IN SEGMENT 38 AT 05068000 

05069000 05076000 
F •• STREAM VARIABLE " NAME PARAMETER •• DECLARED IN SEGMENT 71 AT 08999075 

08999100 



F *" STREAM VAfilABUE — NaMf PARAMETER •- DECLARED IN SEfiMENT 81 AT 09393700 
09393710 09393720 09393730 

F -- strfam Variable -- value parameter -- declared tn segment 96 at 13673100 

13673350 
F — real •■' DECLARED IN SEGMENT l09 AT I6O3IOOO 
FACTop -- DEFINE " DECLARED IN SEGMENT 3 AT 0j?99l00 

15753000 
FCR -- INTEGER -- DECLARED IN SEGMENT 3 AT 01330000 

02194000 02195000 021^5750 •02214000* 022i4200 *02225250* 02?25750 0?228?50 02228750 02230000 02230100 

02421000 02731000 05038000 *07025010* 07025020 •07025030* 
FCR — STREAM VARIABLE -" VaLUe PARAMETER •• DECLARED IN SEGMENT 3 AT 02016000 

02017000 
FCIL — STREAM VARIABLE "- NAMr PaRaMETER •• OECLARED IN SEGMENT 3 AT 04130000 

04132000 
FEJ -• INTEGER STREAM PROCEDURE -- DECLARED IN SEGMENT 21 AT 02441000 

02444000 02445000 02452000 
FETCH -- REAL STREAM PROCEDURE — DECLa«ED IN SfGMeNT 3 AT 02262000 

02263000 08999)75 09400000 0940i000 
rr — DEFINE -• DECLARED IN SEGMENT 119 AT 17002008 

17025100 17080000 
FIEL — STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 02056000 

O2O58OOO 02059000 
FIEL — STREAM VARIABLE "• NAMf PARAMETER -- DECLARED IN SEGMENT 80 AT 09364000 

09365000 09366000 09367000 
FIEL — STREAM VARIABLE -- NAMr PARaMeTeR -- DECLARED IN SEGMENT 95 AT 13633000 

13636000 13637000 

FIEL -- STREAM VARIABLE -- NAME PARAMETER •- DECLARED IN SEGMENT 96 AT 13661000 

13665000 13667000 
FIELOOEC — LABEL — DECLARED IN SEGMENT 98 AT |40l6000 •- OCCURS AT 14269020 

140?1000 
FIELDTD — DEFINE -- DECLARED IN SEGMENT 3 AT Oi278700 

05?73l00 05273900 063i5l00 063l6l00 14269240 H269442 l7095l00 
FIELOV — DEFINE " DECLARED IN SEGMENT 3 AT 01298600 
FIL -- STREAM VARIABLE -" NaME PARAMETER -- DECLARED |N SEGMENT 80 AT 09370000 

09372000 

FiLEDrc -- Label — declared in segment 98 at 14015000 -• occurs at hisbooo 

14020000 
FILEID — DEFINE -- DECLARED IN SEGMENT 3 AT 0l?99300 

14430000 
FILEV — DEFINE — DECLARED IN SEGMENT 3 aT 01296000 
FILLIT — STREAM PROCEDURE — DECLARED IN SEGMENT 43 AT 05325040 

05375440 05325460 053^5470 05325480 
FILLSTMT — PROCEDURE — DECLARED IN SEGMENT 3 AT 07647000 

07677500 13396000 
FINAL — LABEL " DECLARED JN SEGMENT 86 aT 10258300 •- OCCURS AT 10263900 

10264400 10264420 
FINALaX •* STREAM PROrEDURE -- DECLARED IN SEGMENT 80 AT 09378000 

09384100 
FINDOPTION — BOOLEAN PROCEDURE -- DECLARED IN SEGMENT 3 AT 02307000 

•02317000* 02318000 02327000 0?967000 
FINI -- LABEL •- DECLARED IN SEGMENT 106 aT 16475000 -- OCCURS AT 16495000 

16476000 16478000 16483000 16466000 16489000 
FiNiS — STREAM LABEL — DECLARED IN SEQMfNT 9 aT 02091500 -- OCCURS AT 02125500 

O2O955OO 02096500 02099500 O2IIOOOO 
FINISHED --LABEL •- DFCLaRfD IN SEGMENT 32 AT 0*204000 -- OCCURS AT 04225000 

04^20000 
FINiShNUMBER -- LABEL — DECLARED IN SfgMeNT 24 AT 02638000 — OCCURS AT 02847000 



FIRST -"• tntfrfR '• NAMr pahamftfR -- dfclaRfd in Segment 3 at 0527ioo 

05^70000 *05273300**05274jl00**05280000* 05?82000 
FIRST -- fNTfGFR — DECLARED IN SEGMENT 54 AT 063H000 

<'063t5300**06316300**06320l00**0632400o* 063?7000 06332000 
FIRST — tNTeGFR -* OFCLARCD IN SEGMENT 55 AT 06339000 

06341000 06344000 
FIRSTTIME — LABEL -- DECLARED IN SEGMENT 12 AT 02210000 — OCCURS AT 

0?2i0750 
FIRSTTIME — BOOLEAN — DECLARED IN SEGMENT 124 AT 17069400 

17091155 *l709ii62**l7ll7920* 
FIRSTX — REAL " DECLARED IN SEGMENT 3 AT 0l62i000 

13606000 ♦13612000* 13623000 1405l000 ♦14052000* 14600000 *l460fl000 
FIRSTXO •• INTEGER -• HECLARED iN SEGMENT 98 AT 14033000 

♦14051000* 14608000 
FIX -- STREAM PROCEDURE -- DECLARED IN SEgMfNT 21 AT 02446000 

02451000 02454000 
FIX mm Rp^L -- DECLARED IN SEGMENT 59 aT 07427000 

♦07430000+^07433000* 07439000 07440000 
FIX mm PROCEDURE — DECLARED IN SEGMENT 70 AT 0fl08?000 

08090000 08157000 08171000 
Fixe *- PROCEDURE -- DECLARED IN SEGMENT l08 AT 16029000 

16057000 16141000 16233000 16236000 16238000 
FIXDEFINEINfO -- REAL PROCEDURE — DECLARfD IN SEGMENT 3 AT 12101000 — 

02896000 ^12108000* 
FIXHDR — STREAM PROCEDURE — DECLARED |N SEGMENT 81 

09393750 09430075 

Fixi •" Real -- declared in segment ha at 16195000 

♦I62i8000^ 16233000 16238000 
FIX2 •• REAL — DECLARED IN SEGMENT 114 AT 16195000 

•16?32000^ 16236000 
EU — DEFINE — DECLARED IN SEGMENT 3 aT 01420000 

06140000 07050000 07058000 O7O73OOO 

FLAG — PROCEDURE " DFCLaReD IN SEGMENT 3 

02226500 02316000 02421000 0250iOOo 

02976500 
05370000 
07604068 
13210000 



02213500 



FORWARD AT 01717900 



AT 09393700 



07083000 12037000 15085800 
AT O5O12OOO -- FORWARD AT 



02959000 
05347000 
07600900 
12115000 
13404000 
14136000 
14269820 
14371000 



02962000 
O5348OOO 
07604000 
12126000 
13651100 
14136100 
14216000 
14442000 



13729000 
14137500 
14295000 
14486000 



02593000 
02977500 
06104520 
07671500 
13282000 
13753000 
14146000 
14311000 
14508000 



02599000 
04013000 
06110200 
07726000 
13332000 
13754000 
14153000 
14326000 
15376600 



02899000 

05344661 

07600420 

12030000 

13400000 

14135000 

14263000 

14358000 

16434100 
fLiPflop — bOOLfaN -- 

*13752000«*13755500^ 
FOOT — INTEGER -- DECLARED 

♦08162000* 08166000 
FORLIST — PROCEDURE — DECLARED 

08156000 06172000 06231000 
FORMAL — DEFINE -- DECLARED IN SEGMENT 3 AT 0ii49000 

05209000 05218000 05236000 07070000 09i33800 13202000 
FORMAlF — BOOLEAN -^ DECLARED IN SEGMENT 3 AT 01591000 

07400000 07411000 ♦! 320200O^+13326000^^1 334 1 lOO^^l 3343000* 
FORMALNaME — DEFINE — DECLARED IN SEGMENT 107 AT 15076110 

15092200 15100000 
FORMALV — DEFINE — DECLARED IN SEGMENT 69 AT 08014000 

08056000 08065000 08098000 08108000 08130000 08179000 



02650000 
04176000 
06200000 
07747000 
13338000 
13758000 
14161080 
14333300 
16033000 



15276210 
1716000 
02686500 
05101000 
07024000 
09202600 
13340000 
13761000 
14165000 
14337000 
16071000 



02696000 
05106000 
07025000 
102A3000 
13386000 
13763000 
14168000 
14339000 
16163000 



02624000 
05119000 
07061000 
10264420 
13391000 
13766000 
14187000 
14346000 
16171000 



02826000 
05344610 
07600000 
12025000 
13395000 
14066000 
14220000 
14351000 
16265000 



DECIaRed in SEGMENT 97 AT 13750500 
IN SEGMENT 70 AT 06091000 

IN SEGMENT 69 aT 08060000 



13244000 
13372000 



14427000 
♦16000400* 



08212000 08217000 08227000 



formatbtt — nrriNE -- orcLAREn in segment 3 at 01000950 

0256^000 14^61500 14493500 

formatOr -• nrriNF -• dtclareo in segmj-nt 3 at 01001240 

14461500 14493500 
FORSTMT — PROCEDURE -* DECLARfd IN SEGMENT 3 AT 08008000 •• FORWARD AT 03052000 

07755000 08232000 
FORV — OFFINE — OFCLARED IN SEGMENT 3 AT 01223000 
FORWARDBRANCH — TNTErFR -- HECLAREO IN SrGMENT 70 AT 08091000 

♦08192000* 08157000 08169000 08l7i000 
FORWAROREF w DEFINE -- DECLARfD IN SEGMENT 3 AT 01007465 

14469100 17092000 
FORWAROV — DEFINE — DECLARED iN SeGMeNT 3 AT 01254000 

14467000 
FORWART -• REAL •- VALUE PARAMETER — DfCLAREO IN SEGMENT 70 AT 08084000 

08082000 08083000 080i6000 
FOULED — REAL -- DECLARED IN SEGMENT 3 AT 01583100 

• 041 i9500#*OA 15 1000**04207500*1«07483500*»07491500**076040 10**14505000* 
FOUND •• LABEL — DfCLaRED IN SEGMENT i8 aT 02309000 — OCCURS AT 02315000 

02313000 
FOUND •" LABEL — OfCLARED IN SEGMENT 32 AT 04204000 •" OCCURS AT 04221000 

04209000 
FOUNDLB •• BOOLEAN -• DECLARED IN SEGMENT 103 AT 14269080 

*14269360**14269440* 14269660 
FP — DEFINE — DECLARED IN SEGMFNT 3 aT 01420000 

06164000 15102400 15305000 
FPaRT — LABEL -- DFCLaRED IN SEGMENT 24 aT 02639000 — OCCURS AT 02790000 

02682000 
FR — DEFtNE -- DECLARFD IN SEGMENT 3 AT 01420000 

08228000 15301700 
FR -1. INTfQER — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 03042000 
FR — iNTrQCR " VALUE PARAMETER -- DECLARED iN SEGMENT 3 AT 13657000 

13677100 #13677250* 13677300 
FRMTID — DEFINE — DECLARED IN SEGMENT 3 AT OI182OOO 

FROM — BOOLEAN -- VALUE PARAMETER -- DfCLARED IN SEGMENT 3 AT 03011000 
FROM — BOOLEAN -» VALUE PARAMETER •• OfCLARED IN SEGMENT 3 AT 03029000 
FROM <•- INTEGER -- VALUE PARAMETER •• DfClARED IN SEGMENT 3 AT 03037000 

O3O36OOO 
FROM — INTEGER •- NAME PARAMETER -• DECLARED IN SEGMENT 3 AT 03038000 
FROM — INTEGER •• VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04116000 

04U4000 04115000 041?0000 O4I2O1OO 04l?0500 
FROM •• BOOLEAN -- VALUE PARAMETER — DfCLARED IN SEGMENT 3 AT 06194000 

06196000 
FROM — BOOLEAN — VALUE PARAMETER -• DECLARED IN SEGMENT 3 AT 07391000 

07402000 07404000 
FRONT ••• tNTEGER — DECLARED IN SEGMENT 61 AT 07491000 

*07493000* 07496000 
FRSTLfVfL t- fNTFGER -- DECLARED IN SEGMENT 3 AT 01402000 

05116000 *14476000* 
FS — DEFINE — DECLARED IN SEGMENT 3 aT 01420000 

07739000 15089600 15098200 15099200 l5l84200 J5i86800 I5276i00 I5276il0 I5276i60 15276l90 15300600 

15304300 15304400 15306700 
FUNCMONfILF " DEFINE — ■ DECLARED IN SeGMfNT 3 aT 01543000 
FUNCTOG •• BOOLEAN -». DECLARED IN SEGMENT 3 AT 01586000 

13736000 14054000 14187000 * 14275000** 14288000** 14296000* 14411100 144l5i00 14452000 14478000 »t4599000* 
FUNCTOQO — BOOLEAN •" DECLaRED IN SEGMENT 98 AT 14034000 

«14054000« 14599000 
FHnSEONO — STREAM VaRIABLf — VALUE PaRaMETER "" DECLARED IN SEGMENT 124 aT 17047300 

17047400 17050700 17051000 



rWDTOfi 



FWDTOg — 



FZFRO 



FNnSFONO -* OWN RfaL — OFCLARfD |N segment 129 AT l709il50 

*l7092609«*i7093fl00* 1709-!»900 
FNDTOr -- BOOLFAN -- DECLAREH IN SERMENT 1O4 AT 14274000 
•14276000**14312000* 14333100 14373000 
•- STREAM VARIABLE -• VaIUE PARAMFTER -" DECLARED 
17047400 17050600 

OWN BOOLEAN -• DFtLAREO IN SeGMfNT 129 AT 17091110 
♦17093300* I7094fl00 *17095400* 

•• nEFINE — nECLARED IN SEGMENT 3 aT 01692000 
05344392 05344662 05375100 14078000 
G •• REAL — DECLaRfD IN SEGMENT 3 AT OI61OOOO 

♦13231000* 13236000 ♦13718000* 13723000 *13724000* 13726000 ♦ 
♦ Hll5000*^Hll6000# 14117000 ♦14278000**14261000* 14284000 
♦14310000* 14315000 ♦14349000**14352000* 14353000 *14446000^ 

gcneRaTf — Label — dfcLaRfo in segment ii6 at i63i3ooo •- oc 

16322000 

DEFINE 
08050000 

INTEGER PROCEDURE -• DECLARED IN SEGMENT 3 AT 05307000 - 
04102000 04105000 04182000 ♦05312000* 07604050 07607000 
13267000 13273000 14168000 16032000 16092000 

INTEGER STREAM PROCEDURE "• DECLARED IN SEGMENT 2 AT 005 
00524000 ♦00526000^ 00527000 00529000 

• LABEL " DtCLAReD iN SFGMeNT 99 AT 140/6000 — OCCURS 
14089000 
QETSPaCF — INTEGER PROCEDURE •• DECLARED IN SEGMENT 3 AT 053310 
05132000 ♦05375000^ 05378000 08l6?000 13347000 14O44OOO 

INTEGER STREAM PROCEDURE -• DECLARED |N SEGMENT 42 AT 
05310000 05312000 
— STREAM PROCEDURE •• DECLARED IN SEGMENT 3 AT 01756000 



IN SEGMENT 124 AT 17047200 



GEO -• 
GET •- 

GETF • 
6ETLP 



GETSYL — 



GETVOtO 



*- deplaReo in Segment 3 at ei647ooo 



13727000^ 13729000 ♦14084000^ 14085000 14091000 
14292000 14294000 ♦14296000^ 14298000 14299000 
14449000 ♦14470000^ 
CURS AT 16345000 



- FORWARD AT 03019000 

07608000 07646660 08086000 13235000 13258000 

23000 

AT 14084000 

00 -- FORWARD AT 03051000 

05309000 



02485000 
— DECLARED IN SEGMENT 3 AT 
06104300 07410000 074i2000 
144^8000 14483400 15376300 

-• DFCLaRfD IN segment 3 AT 
05113000 05316000 075l6300 



05123000 
07438000 
16070000 
05128000 
13267000 



DECLARED IN SEGMENT 9 AT 02091500 -• OCCURS AT 02104000 

WARD AT 03023000 
07583000 13274000 



01784000 02410000 
GIT •- INTEGER PROCEDURE 
02901000 ♦05124000* 
13257000 i4388i00 

GNAT -- INTEGER PROCEPURf 
*05l3lOOO*^05132000* 
QNC — STREAM LABEL 

02097000 
G06EN -• PROCEDURE -- DECLARED IN SEGMENT 3 AT 07535000 •• FOR 

07518000. 07529p00 07545000 07572000 07573000 07575000 
GOMcP »• LABEL — DfCLaPEO iN SEGMENT 62 aT 07504000 
QOSTMT — PROCEDURE -- DFCLaRED IN SEGMENT 3 AT 07501000 

07531000 07763000 

GOT — • Real array -- name parameter •• declared 

09393050 09393130 09393170 09393190 
GOTOg — BOOLEAN — DECLARED IN SEGMENT 66 AT 

♦07646520^ 07646540 
GOTOS — PROCEDURE -• DECLARED IN SEGMENT 1 08 AT 16249000 

16270000 16454000 16487000 
QOTSChK — LABEL -- DECLARED IN SEGMENT 98 AT I4O16OOO -w OCCU 
GOTSTORaGE — BOOLEAN — VALUE PARAMETER -• DECLARED IN SEGMEN 

13731000 13732000 
GOTSTORAGE — BOOLEAN — DEILARED IN SeGMfNT 98 AT 14025000 

♦14160000^ 
GOV — DEFINE — DECLARED IN SfgMeNT 3 AT 0l232000 

07590000 07556000 076«65?5 
GRINCH — REAL ARRAY — NAMp PARAMETER — DECLARED IN SEGMENT 81 AT 09393060 



- FORWARD AT 01719000 

07441000 07527000 07539000 0760i000 13249000 
16089000 16136000 16163000 16254000 16257000 

— FORWARD AT 03020000 



|N SEGMENT Bl 
07646430 



AT 09393060 



RS AT 14160000 
T 3 AT 13733000 



GRTNCH 
GS •• 
GS •• 

GTaI 

GTll ' 

6TR •' 
6TR -' 

6T1 -' 



DECLARrO IN SEGMENT 81 AT 09393250 
IN SEGMENT 3 AT 05325010 



♦05 3«4662**05 344700* 
05375100 *05376000* 



09393050 09393130 09393170 09393190 
•" RFAU ARRAY -- NaMf PaRAMF TER -• 
09393240 09393350 09393400 O9393/130 
iNTrGER -- VALUE PARAMETER -- DECLARED 
05325460 05325470 05325480 

iNTfGER •- DECLARED IN SEGMENT 44 AT 05344000 
♦05 344592* *05 344600**05 34 46 15**05 34 46 20**05 344660* O5 34466 1 
♦05350000* 05350160 05350200 *0537l 000**05373000* 05375000 
"" RpaU ARR4Y -- nrcLARED IN SEGMENT 3 AT 01697000 

13210000 *13351000* 13381000 ♦13408500* I37i8000 13724000 13727000 
14161020 14164000 14259000 14259010 *l42590l5* 14259080 14278000 
•" INTEGER -" DECI'AREO IN SEGMENT 3 aT 01384500 
*02192500**02193000* 02193250 
' DEFINE — DErUARED IN SEGMENT 3 AT 01650000 

• DEFINE -- DErLARED IN SfgMfNT UV aT 17002000 
I7O79OOO 

• REAL -- DECLaREH in SEGMENT 3 AT 0i384000 

*02203500* 02205000 •02452000* 02456000 *02652000* 02653000 02655000 
02720000 *02723o00**02ft?3000* 02830000 *02832000* 02833000 02834000 
02877010 02878000 028?9000 02881000 02882000 02882100 *02886000* 
04110000 *04l20i00**04l20500* 04121000 04122000 *0450e000* 04521000 

♦05231000* 05233000 *05235000**05447000* 05449000 *07042000* 07043000 



05344720 
05376100 



•05344740* 05344750 



♦14069000** 14 129000* 
14281000 14296000 



14134000 14161000 



*07539000* 
*09034l00* 
*094i4040* 

13232000 

♦13371000* 

14447000 

I6258OOO 



07540000 
09034^00 
09414080 
13240000 
13373000 
♦14483200* 
16260000 



*02658000* 02659000 02716000 ♦02719000* 
02838000 02839000 ♦02875000* 02676000 
02894000 *04105000* 04107000 04109000 
04523000 04524000 *051l6000* 05u7000 
07044000 *07066000* 07067000 *07436000* 



07544000 07545000 *07600950**07727020* 07727070 ♦07994000* 07995000 *08058000* 08060000 

09133800 *09l33900**09i34000* 09134100 09134200 *09253000^ 09253500 09254000 09255000 

09414090 *09415000^ 094i5500 ♦094l6000^^094 17000* 09418000 ♦10250000* 10251000 *13226000* 

13244000 13248000 *13251000**13256000* 13259000 ♦13273000* 13274000 *13280000^ 13282000 



♦14039000* 14041000 I4li6000 
14413300 *15098000* 15101000 
16265000 *16452000* 



*14333300**14425000* 14427000 
15101600 *15295100* 15296000 



14429000 
*16254000* 



14430000 
16255000 



14437000 
16257000 



6T1 •' 
GTl - 
6T2 -■ 



O2881OOO 
07604060 



0288?000 
07604070 



6T2 •• 
GT3 •■ 

6T4 -• 

GT4 -' 
GT5 »• 

GT5 — 

H •• 
H -• 
HEXiZr 
HEXOP 



*09134100**13284000* 
♦16254000* 16255000 



*05233000* 

*07604090* 

13285000 

16266000 



INTEGER -- DECLARED iN SEGMENT 101 AT 14203000 
*14206000**14221000* 142?4000 

Real — DECLARED IN SEGMfNT 113 AT 16l57i00 
*16159000* 16163000 16164000 16166000 16171000 16173000 

Real — declaRep in segment 3 at oi3840oo 

*0272i000* 02723000 *02834006**02839000*^02876000^ 02877010 02878000 02879000 

05234000 *a5448000* 05450000 *07539000* 07545000 *0760l000* 07604040 07604050 

07605000 07607000 07607100 07608000 *07609000**09 133800* 09133900 09134000 

13286000 *14430000* 14431000 *14446000* 14448000 *16163000* 16167000 16172000 

INTEGER — DrrLARED iN SEGMENT 101 AT 14203000 

*14217000* 14224000 

Real -•• DECLARED IN SEGMENT 3 AT 0i364000 
*05402l00**05405000**05407000**05409000**05428000**054 30000**07 397400**07 397500**07527000* 07528000 *0760l000* 
07610000 *09l34i00* 09134200 *13285000* 13287000 *14438000*^14483400^ 

RFaL " OECLaReD in SEGMENT 3 AT 01384000 
02904000 ♦06l04306^^06l04500^*06l045l0^^06i04520^ O61O46OO ♦07527000^^07528000^ 07529000 ♦0760i000^ 07603000 
07610000 ^13235000* 13238000 
INTEGER " DECLARED TN SEGMENT lOl AT 14203000 
Real -- DECLARED IN SEGMENT 3 AT 0i384000 
♦07078000^ 070^9000 *07604050* O76O4O8O 07604090 *07607000* 07609000 
— • DECLARED IN SEGMENT rOl AT 14203000 
01833000 O1835OOO 

IN SEGMENT 38 AT 05068000 



INTEGER 
*0l«28000* 

STREAM VARIABLE -- DECLARED 
05071100 05071200 05065000 

REAL — Value parameter — 

05316000 

•r BOOtEA!^ STReAM PROCEDURE -- 
*0200l897* 02001898 
-- DEFINE — DECLARED IN SEGMENT 



DECLARED IN SEGMENT 3 AT 05315000 
-- DECLARED iN SEGMENT 3 AT 02001858 
3 AT 01268000 



06071000 
HF — LABEL -- 
141?3000 

HOLE -- Real - 

♦07396000* 

HTTEOaP " PROC 
137*7000 

HVSl •- STREAM 
17042600 

HVl •• PROCEDUR 
17045000 

HV2 — PROCEDUR 
17U9000 

I " INTEGER - 
♦029t7000* 
05??2000 
05344615 
06044000 
06320200 
07397210 
07583000 
♦07727060# 

07995000 
*094i4030« 

♦09427500* 
12036000 
13761100 

♦14255000* 
14353000 
15184600 
16200000 
16370000 

♦17004700* 

"" tNtegeR 

♦04?39000^ 

— STREAM VAR 
05334400 

— REAL " 
05402000 

•- REAL -- 
♦054?4000^ 

•• STREAM VAR 
05419000 

•- REAL -• 
♦05444000^ 

•• INTEGER - 
♦0e999i75^ 

" fNTEfiER - 
♦06999525* 

— REAL — 
♦09393300^ 

" DEFINE " 
10277000 

— STREAM VaR 
13673300 

-" tNTFRER - 
17002015 



06089000 
DECLAREn !N SEGMENT 98 aT i40l7000 -• 

14508000 
- DECLARED IN SEGMENT 56 AT 07393000 

07398000 07410000 07412000 
EOURE -- DECLARrn IN SEGMENT 3 AT 13731000 

14489000 14600000 
PROCEDURE — DECLARED IN SEGMENT 122 AT 1703600 

E -- DECLARED IN SEGMENT 122 AT 17042400 

E •• DECLARED IN SEGMENT 124 AT l7ll2000 



OCCURS AT 14382000 



DECLAR 
•05002000 
05224000 
05344620 
06072000 
06324000 
07401000 
07599000 
07745000 
08029000 
09414040 

*09'>32000 
12044000 
13767000 
♦14264000 
♦14360000 
15184850 
16204000 
16376000 
17004710 

- PECLAR 
04241000 

lABLE -- 
05334600 

VALUE PAR 
05402200 

OECLARfO 

05425000 
IABLE -- 



ED IN SEGM 
♦♦05003000 

♦05225000 
05344660 
06104300 
063115000 
07430000 

♦076OO200 
07748000 
08034000 

♦09414100 

* 09433000 
13200000 
13768000 

♦♦14269140 

♦ 14399000 
15276010 
16206000 
16379000 



ENT 3 AT 01 
♦♦05107000* 

♦ 05273300 
♦05344670^ 

06108000 

06326000 

07516000 

♦♦07600500^ 

,^07749000^ 

08037000 
♦♦09415000^ 

09434000 
13310350 
14062000 

♦ 14269446 
♦14406000^ 
♦15276040^ 

16211000 
16408000 



319000 

♦05l07i00^^0 
05273400 
05344700 
06166000 

4i07008000^^0 
07516300 
07600950 

♦07750000^^0 

♦06li0000^ 
09416000 «0 

♦09436000^^0 

♦13324000^ 1 
14063000 ♦I 
14269448 1 
14516000 1 
15301900 1 
16212500 ♦I 
16412000 1 



5107200 
5274100 
5344710 
6185000 
7031000 
7518000 
7604020 
7751000 

euiooo 

9419000 

9447020 
3341300 

4067000 
4269520 
4519000 
5302000 
6252000 
6435000 



♦ 05189000 
05274200 

♦05344770 
06315300 

♦ 07066000 
07521000 

♦07604130 

♦ 07768100 
♦08120000 

♦♦09420020 

♦ 09447030 
13361000 

♦ 14129000 
14269540 
15077000 
15302100 

♦ 16254000 
♦16449000 



05216000 
05280000 
05 350120 
06315400 
07070000 
07554000 

♦♦07604150 
•07768130 

♦♦08174000 

♦♦09424000 
09447040 
13372000 
♦14137200 
14314000 
15091400 
16000700 
16321000 

♦♦16450000 



05217000 

05281000 

05350160 

06316300 

07070500 

♦07556000 

♦♦07646525 

♦♦07766170 

♦ 08176000 

♦ 09426000 
12015000 
13394000 

••14189000 

♦14332000 

15091600 

16121000 

16329000 

♦ 16482300 



05218000 
05344570 
05350180 
06316400 
07071000 

* 07566000 

* 07667000 
♦♦07768l80^ 

♦08223000^ 

♦09427000^ 

12020000 

13753100 

♦ 14220000 

♦ 14349000 
15091600 
16124000 
16342000 

♦16469000^ 



05221000 
♦05344600^ 
06016000 
06320100 
07396000 
07572000 
♦07727040^ 

07994000 

♦09391000* 

09427100 

12024000 
♦13757000^ 
14221000 
14352000 
15184750 
16159000 
16344000 
16495100 



ED IN SEGMENT 33 AT 04237000 
♦04242000* 04243000 

NAME Parameter — 



AMFTER -• DECLARED 
05402300 05404000 

JN SEGMENT 46 AT 0541 
05425100 *05425400* 
VALUE PARAMETER -• 



DECLARED IN SEGMENT 44 AT 05334100 

00000 



IN SEGMENT 3 AT 054 
05409200 05409500 

4000 
05426000 ^05430000 
DECLARED IN SE6ME 



♦ 05430500 05431000 
NT 46 AT 05415000 



DECLARED iN SEGMENT 47 AT 05438000 
05445000 05447000 05455000 ♦05456000^^05458000^ 05459000 

- DECLARED IN Segment 7l at 0b999050 
08999225 06999350 

- DECLARED IN SEGMENT 72 AT 08999500 
06999550 06999650 

DECLARED ?N SEGMENT 83 AT 09393270 
09393310 

IN SEGMENT 86 AT l0256200 



DECLARED 
10282000 

iable 

13673400 
• VALUE PARAMETER 
17002020 17002040 



— naMf Parameter — declared 
•- Declared 



IN SEGMEN 
IN SEGMENT ll9 A 



T 96 AT 13673100 
T 17002020 



I — tNTrnFR -- Value: paramfter "- dfclaRfd in srcMcNT ii9 at 17002055 

17002050 17002055 17002075 
1 -• tNTcgER — DECLARFD IN SEfiMFNT 125 AT 1705^400 

*17054600» 17O54B00 170550)0 
I — REFINE — DECLARED IN SEGMENT l27 AT 17073100 

17079000 17080000 
I — REAL — OECLARrO |N SEr.MENT 129 AT 17091120 

♦17094900* 17095000 17095100 17095300 17095310 
ID ""• REAL -- OECLaRFD IN SfrGMfNT 18 AT 023l0000 

•02312000* 02313000 
ID — STRFAM variable — VALUE PARAMETER "- DfCLARED iN SEGMENT 38 AT 05067000 

05070000 
ID — STRPAM VARIABLE -- NAME PARAMETER •- DECLARED IN SEGMENT 43 AT 05325040 

05325320 
IDBIT — BOOLEAN — OECLARFD IN SEGMENT 57 AT 07039000 

♦07047000* 07050000 07068000 O7O82OOO 
IDBLDR — STREAM LABEL — DECLARED iN SEGMENT 9 AT 0209i500 -• OCCURS AT 02U0500 

02095000 02103000 
lOENT -- LABEL -- DfCLARFD 1N SEGMENT 24 AT 02639000 -• OCCURS AT 02865000 

02643000 
lOMAX -- OEFINE — DECLARED IN SEGMENT 3 AT 01479000 

05344520 O61O63OO 07664000 13337000 13754000 16213000 16253000 16482100 l7047i00 17095000 
IONOF -- DEFINE — DECLARED IN SEGMENT 3 aT 0l0074l0 

02001660 02001795 l70?5400 17042350 17091900 17093850 17094050 I7094l00 

iotypf — Real array — declared in segment 124 at 17047100 

♦17084010* 17094900 
lOV "- DEFINE -- OErLAPED IN SEGMENT 3 AT 01651000 
IFCLAUSf -- PROCEDURE -- DECLARED IN SrCMpNT 3 aT 06409000 -- FORWARD AT 03018000 

06296000 07563000 
IFFXP — tNTEGFR procedure — DECLARED IN SEGMENT 3 AT 06294000 •' FORWARD AT 03013000 

06005000 *06299000* 06311000 
IFS — PROCEDURE -- DECLARED IN SEGMENT 108 AT l6l9l000 

16239000 16486000 

IFSB — Label -- declared in sfgment ih at 16193000 — occurs at 16216000 

16194000 

IFSC — label -- DECLARED IN SEGMENT Ii4 AT 16193000 «•- OCCURS AT 16207000 

16194000 
IFSTMT -- PROCEDURE -- DECLARED IN SEGMENT 3 AT 07561000 -- FORWARD AT 03022000 

07587000 07761000 

IFSW — SWITCH LABEL — DECLARED IN SEGMENT 114 AT 16194000 

16197000 
IFTOg •- LABEL " DfCLaREO IN SEGMENT 114 AT I6i93000 -- OCCURS AT 16217000 

16194000 16215000 

irv — OFFINE — DECLARED IN SEGMENT 3 AT 01231000 

06004000 
IMPFUN '^ PROCEDURE -'• DECLARED IN SEGMENT 3 AT O6I63OOO •* FORWARD AT 03039000 

06158000 
INCR -- DEFINE — DECLARED IN SEGMENT 3 AT 01153000 

02658000 05124000 05189000 05222000 06080000 06l89000 13206000 13240000 13307000 l4ll6000 15255000 

15295100 

INCRF -• REAL — DECLARED IN SEGMENT 3 AT 0l607000 

♦13206000^ 13769000 14314000 
INdEC -• LABEL " DFCLaRED IN SEGMENT 98 aT I40l4000 -- OCCURS AT 14158000 

14019000 

INDEX — REAL — VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 02001650 

02001640 02001645 02001660 0200i695 

INDEX -- REAL -- VALUF PARAMETER " DECLARED, |N SEGMENT 3 AT 02001750 



020017^0 0200i7«5 02001795 
INDEX — tNTfgfR — VALUE PaRaMeT 

INDEX -- tntegeR -- Value paRamet 

05006000 
INDEX — REAL •- VALUE PARAMETER 

05009000 
INDEX -• REAL -<• VALUE PARAMETER 

07035000 07042000 07098000 
INDEX -- DEFINE -- DECLARED IN SE 

07601000 07610000 
INDEX — tNTegeR -• DECLARED IN S 
♦161?0000**1 6328000** 163 S'ftOOO* 
INDEXS — PROCEDURE •- DECLARED I 

16355000 16490000 
INFO — RFAL ARRAY -• DECLARED IN 

02001805 02212250 0221^250 

02368000 02410000 02485000 

04209000 *04210000**04211000* 

05325470 05350i60 05350200 
♦09085000**09121650* 09253500 

13281000 13310000 #13593000* 
INFO — STREAM VARIABLE — NaMf P 

02006000 
INfO -- STREAM VARIABLE — NAMf P 

02320600 
INfO -- RfAL array -- DECLARED IN 

09406000 09427500 09447060 
INFO — STREAM VARIABLE -- NAMf P 

10238000 
INLiNf — PROCEDURE -- DECLARED I 

07746000 13774000 
INLINfTOG — BOOLEAN -- DECLARED 

13307500 *13752000**13770500* 
INPUTI -- BOOLEAN PROCEDURE -- DE 

l70i2000* 17045000 

BOOLEAN PROCEDURE -- DE 

17082000* 17119000 
OWN BOOLEAN -- DECLARED IN 

08060000* 08070000 

ID -• DEFINE -- DECLARED 

045?!2000 08057000 15185200 

— DEFINE — DECLARED IN S 

02577000 09253050 09253100 

EC " LABFL -- DECLARED T 
140i8000 

• DEFINE — DFCLAREO iN SE 
04509000 08038000 08061000 
D — DEFINE -- DECLARED T 

• DEFINE — DECLARED IN SE 
02577000 09253050 09253100 
D — DEFINE -- DECLARED I 
13278000 14294000 15078000 
CAOR — DEFINF -- DECLARE 
09253100 

PROciD -- DEFINE -- DECLA 
OCID -- DEFiNf -• DECLARE 
14284000 



INPUT? — 

* 
INT -• 

* 
INTARRAY 

INTBIT 

integfRd 

iNTiD - 

INTNAMEf 
INTOG - 

INTPROCI 

INTRINSt 

INTRNSIC 
INTSTRPR 



02001805 02001610 0200l8l5 02001820 0200182? 
ER — DECLARED IN SEGMENT 3 AT 03053000 
ER -- DECLARfD in SEGMENT 3 AT 05005000 

" DECLARED iN SEGMENT 3 AT 05008000 

-- DECLARED IN SEGMENT 3 AT 07036000 

GMENT 65 AT 07595000 

EGMENT 116 AT i63l4000 

16346000 16349000 
N SEGMENT l08 AT 16311000 

SEGMENT 3 AT 01007000 

02214260 02226000 02234750 02234900 0?265600 02265700 02265850 02265950 

02602800 02877010 02878000 02879000 02881000 02923000 04172000 04167000 

04221000 *04223000* 05006000 *05009000* 05039500 05045000 05088000 ♦05233000* 

05426000 05431000 05449000 05450000 07086400 «0e035000* 09034200 09034500 

09254000 09255000 09384100 09386000 10251000 10254000 10264800 1211^000 

13677300 14440000 * 17025100** 17025300* 17080000 

aRaMETER -• DECLARED IN SEGMENT 3 AT 02005000 

ARaMeTeR — DECLARED |N SEGMENT l9 AT 02320200 

Segment 8i at 09392500 

ARaMeTER -- DECLARED IN SEGMENT 87 AT 10236000 

N SEGMENT 3 AT 13748000 •- FORWARD AT 03010000 

IN SEGMENT 3 AT 01695500 

GLARED IN SEGMENT 122 AT 17006000 

CLARED in SEGMENT 124 AT 17070000 

Segment 69 at 08012000 
in segment 3 at 01205000 

15304200 
EGMENT 3 AT 01000960 

09394100 094i40l0 09430050 13651100 
N SEGMENT 98 AT 14013000 -- OCCURS AT 14141000 



GMENT 3 AT 01201000 

12035000 12042000 14141OOO 
N SEGMENT 3 AT 01205400 
GMeNT 3 AT 01001250 

09394100 094i40l0 09430050 
N SEGMENT 3 AT 01197000 

IN SEGMENT 3 AT 01299500 

Red IN Sfgment 3 aT oiissooo 

D IN SEGMENT 3 AT 0H93000 



15085200 15098000 
13651100 



INTV -- DFFINE -- DFCLARED IN SEGMENT 3 AT O1285OOO 
INV -- DEFINE -• DECLARED IN SEGMENT 3 AT 0i290000 
INX .- DEFINE — DECLARED IN SEGMENT 3 AT 0ifl5?000 

04531000 07091000 15301600 15305600 
lOCLASS -- DEFINE -- DFCLARFD IN SEGMENT 3 AT 01233000 
lOSTMT — PROCEOURF -" DECLARED IN SEGMENT 3 AT 07993000 »- FORWARD AT 03012000 

07765000 
IPART -• LABEL •- DrCLARpD IN SEGMENT 2a aT 02639000 -• OCCURS AT 02758000 

02643000 
IS -• LABFL — DECLARED IN SEGMENT 36 aT 04501000 — OCCURS AT 04548000 

045?7000 04540000 
ISd •• DEFINE -- DECLARED IN SegMeM 3 AT 0i653000 

15098400 I5276i00 15304300 
ISKIP *- STREAM VARIABLE -• VALUE PARAMETER mm DECLARED IN SEGMENT 87 AT 10236000 

10237000 10238000 15098800 15276100 15304300 
ISOLATE -- DEFINE — DECLARED IN SEGMENT 3 AT 0i270000 

06092000 
J ■»• REAL — DECLARED IN SEGMENT 3 AT 01618000 

• I 32 10000**1 3324000** 133 3 35 00** 13 34 2000* 13351000 *1 3381 000**1 34 08500**13 71 8000**13 724000**1 3 727000**1 4069000* 
*H 129000* 14132000 14134000 * 14 135000** 1« 136000** 14 136l00** 14 1 37600**14 16 I000**l4 16 1 020** 1 4164000** 14278000* 
*142ai0O0**l42960O0**l442l000* 14425000 14438000 14440000 14445l00 14446000 14448000 *14449000* 

J •- tNTfGFR -- PFCLARfO IN SEfiMFNT 31 AT 04166000 

*04170000* 04172000 04117000 
J -• REAL — DECLARED IN SEGMENT 45 AT 054O1OOO 

*05405000**05'i»06000* 05407000 
J -- REAL •- DECLARED iN SEGMENT 46 AT 05414000 

*054?8000**05429000* 05430000 
J •- REAL •- DECLARED iN SEGMENT 47 AT 05436000 

♦05444000* 05446000 05448000 05452000 *05453000* 
J -" REAL — DECLARED iN SEGMENT 58 AT 07393100 

♦07397300* 07397400 
J •• tNTegER -- DECLARED iN SEGMENT 66 AT 07646410 

*07646630* 07646635 *07646645* 07646650 *07646660* 
J — iNTfgER — DECLARED iN SEGMENT 7l AT 08999050 

♦08999125* 0a999??5 *0e999275* 08999350 
J " INTEGER — DECLARED IN SEGMENT 7? AT 08999500 

♦06999625* 08999650 06999700 *08999750* 
J — INTEGER -- DECLARED IN SEGMENT 81 AT 09393010 

♦094l4022# 09414024 *094l4026**094 14030**094 i4060* 09414070 09414110 *09420020**09425000**09428000**09447050* 
09447060 09447080 
J -- REAL -• DECLaRfD IN SEgMeNT 83 AT 09393270 

♦09393290* 09393350 ♦09393360* 09393400 *09393420* 09393430 *09393450* 
J •• REAL -- VALUE PARaMeTER -- OECLaREH iN SfGMeNT 3 AT 10228000 

10263110 10264600 10264900 
J -- STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 86 AT l0257l00 

IO2575OO *i0?57700* 
J -" REAL — DECLARED IN SEGMENT 89 AT I2i0?000 

♦12116000* 12117000 12126000 
J •- REAL " DECLARED IN SEGMENT 91 AT I322l000 

♦ 13232000* 13239000 * 1 3257000** 13258000* 13264000 *13265000* 13270000 ♦n27l000^ 
J — INTEGER -- DECLARED IN SEGMENT 97 aT 13750000 

♦13765000^ 
J -• REAL -- DECLARED IN SEGMENT 102 AT 14254100 

♦14259010**14259015**14259060* 14259150 14266000 
J — STREAM VARIABLE -• VALuF PARAMETER -• DECLARED IN SFGMENT 102 AT 14254200 

14254500 
si — REAL " DECLARED IN SEGMENT 107 AT 15075000 

*15234000* 15255000 15266000 *15280000* 15290000 15296000 15301100 15305200 



J -- tNTFRFR -- DFCIARFD JN SEGMENT 116 AT 163U000 

♦16348000**16349000* 
J •• tNTFGFR "- DECLARED IN SEGMENT 117 AT 16364000 

*16387000* 16389000 ♦16392000* 16393000 
J "- TNTFGER — DECLARED IN SEGMENT 120 AT 1?00?030 

♦17002035* 17002040 
J — tNTEBER -- DECLARED iN SEGMeNT 121 AT 17002065 

♦17002070* 17002075 
J — tNTFRER -• DECLARED IN SEGMENT 125 AT 17054400 

♦17054900* 17055010 17055020 
JEOEN — tNTEGfR -- DECLARED IN SEGMENT 15 AT 0?264l00 

*02265000^ 02?65i00 *0p265350* 02265450 02265600 0?265700 02?65850 02265950 
Jrc — DEFINE -- DECLARED IN SegMeNT 108 aT I6O16OOO 

16219000 
JEW -- DEFINE -- DECLARED IN SeQMeNT 108 aT 16007000 

16079000 16232000 
JNS -- DEFINE -- DECLARED IN SFGMeNT 108 aT 16023000 

16453000 
JOINED — REAL " DECLARED IN SEGMENT 3 AT 01482000 

l6l?7000 *16128000* 16134000 16138000 I6n9000 ♦16143000^ 16440000 ^16442000* 16445000 16447000 16449000 
JOINT — REAL -- DECLARED IN SfgMeNT 112 aT I6lj8000 

•16127000* 16143000 
JRV — DEFINE -- DECLARED IN SEGMENT 108 aT 16009000 

16079000 
JUMPCHAIN — PROCEDURE — DECLARED IN SEGMENT 108 AT 16085000 

16097000 16139000 J6173000 
JUMPChKNX — PROCEDURE -" DECLARED IN SEGMENT 3 AT 13616000 •- FORWARD AT 03058000 

14165000 14387000 
JUMPchKX — PROCEDURE -• DECLARED IN SEGMpNT 3 aT 13596000 -- FORWARD AT 03059000 

14506000 
JUMPctR — INTEGER •- DECLARED iN SEGMENT 3 AT 01459000 

14497000 *14499000* 
JUMPLfVfL — Real -- declared in segment 3 at 0i465000 

16260000 16265000 * 16269000** 164 33OOO** 16435000* 16452000 
JUMPS — PROCEDURE — DECLARED IN SEGMENT 108 AT 16431000 

16455000 16493000 
JUMPV — DEFINE — DECLARED IN SEGMENT 3 AT 01242000 
JUNK -- OEFINE •- DECLARED IN SEGMENT 3 AT 01430000 
K •- REAL — DECLARED iN SEGMENT 3 AT 01693000 

♦14085000* 
K •• STREAM LABEL — DECLARED IN SEGMENT 9 AT 02091500 -- OCCURS AT 02099000 

02099000 
K "•• REAL " DECLARED iN SEGMENT 45 AT O54O1OOO 

♦05405000* 05406000 
K -• REAL " DECLARED ?N SEGMENT 46 AT O54I4OOO 

*05428OO0* 05429000 
K — REAL — DECLARED IN SEGMENT 47 AT 05438000 

♦05444000* 05452000 ♦05454000* 05455000 #05457000* 
K •• INTEGER -- DECLARED IN SEGMENT 66 aT 07646415 

*07646635* 07646640 
K — DEFINE •- DECLARED IN SEGMENT 69 aT O8OI6OOO 

08033000 08034000 06035000 08094000 08180000 08223000 08232000 
K "" INTEGER -- DECLARED IN SEGMENT 71 AT 08999050 

♦08999200**08999275* 08999350 
K — INTEGER — DECLARFO IN SEGMENT 81 AT 09393010 

*09447030* 09447060 
K — REAL •" DECLARED iN SEGMENT 86 AT 10258100 



*102/S3200* 10?63800 *10?6*'I200**1026A400* 
K -- REAL — DECUARrO TN SEGMENT 89 AT I2i0?000 

*12109000* 12117000 1211«000 12121000 
K " STRfaM variable -- VALUE PaRaMeTER — DECLARED TN SEGMENT 89 AT 12103000 

12104000 
K — REAL — DECLARED TN SEfiMENT 102 AT U254100 

♦ 14259010* H259080 H259090 
K •• STREAM VARIABLE -- VALUE Pa^AMeTeR "" DECLARED IN SEGMENT 102 AT H254200 

14254400 
K — tNTEGER -- DECLARED IN SEGMENT 117 AT 16364000 

•I63fl9000« 
K -- INTEGER -- DECLARED IN SEGMENT 125 AT 17054400 

*17055010«*17055020* 17055025 

Key -• Real -- value parameter -" declared in segment 3 at 04231000 

04239000 04241000 
KLASSE •- REAL -- DECLARED IN SEGMENT 3 AT OI6O3OOO 

05350100 05350?00 * 1 320 1000**13226000* 13246000 13278000 *13333500**1334?000* 13372000 *13677200* 13677300 
*16000300* 
KNOT -- BOOLEAN -- oECLAReD IN SEGMeNT 27 AT 02973500 

*02974500* 02978500 
L — tNTFGER -- DECLARED IN SEGMENT 3 AT 01428000 

02195000 02195750 02214200 02228750 02421000 04086000 04102000 *04 l05000**04 109000* 04119000 »04l20000* 
' ' "" ♦04151000**04172000* 04175000 04182000 +04 185000**04 I86OOO* 04207500 

04279000 04282500 04293000 04296000 *04298000**04300000* 05038000 




L -- R| 

I •" STREAM VARIABLE •- NAMp PARAMETER »- DECLARED iN SEGMeNT 3 AT 01742100 

01742110 
L •• STREAM LABEL -- DECLARED tN SEGMENT 3 AT 0i758000 — OCCURS AT 01764000 

01762000 
L •- STREAM LABEL -- DECLARED IN SEGMENT 9 AT 0?09i500 -» OCCURS AT O21O1OOO 

O21O1OOO 
I •- LABEL — DECLARED IN SEGMENT 9 AT 02127500 -y OCCURS AT 02128000 

02135500 
L " STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02183500 

02183750 02186000 

L — STREAM Variable -- name parameter -- declared in segment ii at 02196530 

02196550 
L •- REAL -- VALUE PARAMETER -- DECLARED iN SEGMENT 3 AT 03020000 
L — iNTEfiFR -- VALUE PaRaM^TeR ^- DECLaReD IN SEGMeNT 3 AT 03039500 
I •• INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 0305l00l 

03051000 
L — LABEL -- DECLARED IN SEGMENT 33 AT 04232000 -- OCCURS AT 04243000 

04241000 
L — LABEL -- DECLARED IN SEGMENT 38 AT O5O49OOO -- OCCURS AT 05092000 



05094000 05098000 
L •• STRfAM VARIABLE -- NAMf PARAMETER -- DECLARED IN SEGMENT 38 AT 05050000 

05051000 05052000 
L •- STREAM VARIABLE -- NAMr PARAMETER -- DECLARED IN SEGMENT 38 AT 05059000 

05060000 

L — REAL — Value paRamftpr — declare in Sfgment 3 at 05123000 

0512*000 
L " REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05128000 

05131000 05132000 
U — REAL •- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05307000 

05312000 
L ••• INTEGER -• VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05333000 

05311000 05376100 
L — REAL -- VALUE PARAMETER -• DECLARED iN SEGMENT 3 AT 05411100 
L — STREAM VARIABLE •- NAMp PARAMETER -- DECLARED IN SEGMENT 46 AT 05415000 

05418000 
L — REAL " VALUE PARAMETER " DECLARED iN SEGMENT 3 AT 05437000 

O544OOOO 05441000 05442000 05444000 05458000 
U — STREAM VARIABLE — NAMp PARAMETER — DECLARED IN SEGMENT 49 AT 06064000 

06065000 
L — INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 08999450 

08999525 
L "- LABEL — DECLARED IN SEGMENT 93 AT 13360000 -• OCCURS AT 13364000 

13366000 
L "- LABEL •- DECLARED IN SEGMENT II6 AT i63l3000 •- OCCURS AT 16347000 

16319000 16327000 16340000 
L — tNTEGFR -- DECLARED IN SEGMENT 117 AT 16364000 

*i639l000* 16393000 
I — LABEL — DECLARED IN SEGMENT 108 aT i6475000 •- OCCURS AT 16483000 

16476000 
I — LABEL — DECLARED IN SEGMENT 123 AT 17009000 -- OCCURS AT 17014000 

17011000 
L — LABEL -- DECLARED IN SEGMENT 127 AT 17073000 -- OCCURS AT 17085000 

17081000 
LABELBAT — REAL — VALUE PARAMETER -- DECLARrO IN SEGMENT 3 AT 03025000 

03023000 03024000 
LABELBAT — Real -" VaLUe PaRAMeTeR — DECLARED iN SEgMeNT 3 AT 07537000 

07535000 07536000 07539000 
LABELDEr -- LABEL -- DECLARED fN SEGMENT 98 AT 14014000 -- OCCURS AT 14187000 

I40i9000 
LABELfD — DEFINE -- DECLARED IN SEGMENT 3 AT O12O6OOO 

05344520 05350i?0 05350i60 O6IO41OO O61O63OO 06l07i00 07047000 07075000 07506000 07553000 07645000 

07664000 13246000 13337000 13754000 l4i94000 14220000 I5l28l00 15376900 I62i3000 16253000 16482100 

17047100 17095000 
l-ABEbR -- PROCEDURE -- DECLaRED IN SEGMENT 3 AT 07593000 

07646000 07741000 

Labels — procedure -• declared in segment io8 at i6i56ooo 

16177000 16485000 
LABELv " DEFINE -• DFCLARED IN SEGMENT 3 AT 01266000 

14399000 
LabUMONfiLe — DEFINE -- OEC^ARED IN SfgMtNt 3 aT 01535000 
LAMPER — Label -• declared in segment so at 06i37000 -- occurs at 06179000 

06164000 06166000 06168000 
LASS — Label — declared in segment 107 aT 15O76OOO -• occurs at 15276060 

15276160 
LASTADORESS — REAL •- DECLARED IN SEGMENT 124 AT 17069600 

*17079000* 17080000 *i7084000* l709i800 17095750 *i7096850* 



10263100 

14079000 

♦16447000* 



UASTCRDPATCH -- HOOLFaN -- DECLARED IN SEGMENT 3 AT OlOOlSOO 
LASTENTRY — REAL -- DECLARED fN SEGMENT 3 AT 01376000 

04170000 *04189000* 04208000 04210000 04211000 ♦04214000* 14038000 
LASTGT "• DEEINE -- DECLARED IN SEGMENT 106 AT 14420000 

14438000 
UASTGT — DEEINE " DECLARED rN SEGMENT 108 AT 16003000 

16089000 16266000 
LASTINEO — Real -- declared in segment 3 AT 01619000 

027?4000 02725000 *027?6000* 05350200 ♦09033000* l026l000 
13309000 *13311000* 13347000 13348000 13408000 13755500 
♦14330000**14373000* 14421000 ♦14463000^ 16000700 16445000 
UaSTINFOT — Real •- declared in segment 98 at 14029000 

♦14330000* 14373000 14463000 
LaSTRtSULT -- integer -- DECLARED IN SfGMtNt 86 AT 10258000 

♦10276000* 
DECLARED IM SEGMENT 3 AT 01570000 
02226000 02234750 02234900 02368000 
09033000 09014200 09034500 09253500 09254000 
OEEINf -- DECLARED iM SEGMENT 3 AT 01569000 
02214260 02226000 02234750 02234900 02368000 
09033000 09034200 09034500 09253500 09254000 
LaSTUSED -- INTEGER -- DECLaRED IN SEGMENT 3 AT 01391000 

02194500 *02204000^^02209250* 02212000 02212250 ♦02212750* 02228050 
♦02458000*^02722000^ 02900000 ♦0290l000^^07030000^^09029000^^09037000+ 
' DFFINf — dFtLaRED in SrcMpNT 3 AT 0l645000 

— DEFINE — DECLARED IN SEGMENT 3 AT 01007486 
O75981OO 16159^00 17092300 

— STREAM VARIABLE -- Val^'E PARAMETER -- DECLARED IN SEGMENT 124 
17047400 17050900 
-- OWN BOOLEAN -- DECLARED IN SEGMENT 129 AT 17091110 

♦17092500^ 17094800 ♦17095400* 



10263110 
14083000 



10264800 13222000 
14259150 14269260 



♦13290000* 
14320000 



♦10262000^ 10272000 

LASTSfQROW — DEFINE -• 

02214250 02214260 

07086400 

LaSTSfOUENcf "• 
02?l4250 

07086400 



02410000 
09255000 

02410000 
09255000 



Lbc • 
lblref 


LBLTOr, 


lbltog 


LBP - 

lcard 



02485000 
09384100 

02485000 
09384100 

02234000 
09282000 



02602800 O5O395OO 
09386000 



05045000 
05045000 
♦02332000 **024 30000^^024 38000 ♦ 



02602800 05039500 
09386000 



AT 17047200 



DEFINE 
• LABEL 
02191250 
LCR •• INTEGER 
02129500 
02226000 02228150 
02716000 02717000 

-• strfam vaRtabLf 

01767000 01774000 

-• stream variable 

02006000 
— STREAM VARIABLE 
02320600 



- DECLARED IN SEGMENT 98 AT 14023000 
-- DECLARED IN SEGMENT 1O aT 02191000 

-- DECLARED IN SEGMENT 3 AT 01330000 
02193250 ♦02202000^^022040 00*^02?09000^ 



-- OCCURS AT 02194750 



LcR 
LCR 
LCR 
LDES 



02232000 02233500 
♦02719000^ 02902000 

- vaLUf PaRaMetfR 
■- value parameter 

'- VALUE PARAMETER 



02234750 
♦02903000^ 



decLaRfo 
declared 

DECLARED 



02213000 ♦02214000^ 02214250 
02235750 02368000 02369000 
02904000 02905000 ^07025010^ 

IN Segment 3 at 01756000 



02214500 *02215750^ 02225250 
02410000 02485000 02602800 
♦07025030* 



IN 
IN 



SEGMENT 
SEGMENT 



3 AT 02005000 
19 AT 02320200 



DEFINE -- DECLARED IN SEGMENT 3 AT 
05248000 05250000 09415500 13252500 

LOOT — Label -- declared in segment so at 

06144000 06156000 06198000 06160000 

LEFTPaRFN — DEFINE -- DECLARED IN SEGMENT 

02975000 06069000 06415000 07409000 

14259020 14326000 16125000 16482400 



01299030 



06137000 — OCCURS 
06162000 06170000 

3 AT 01212000 
07437000 07768110 



AT 06178000 
06172500 



LENGTHi " Label 

02364000 

LCNGTH2 — Label 
IENQTH3 — Label 

02364000 

LCN6TH4 -- Label 



"- DECLARED IN SEGMENT 19 AT 02360000 



10264100 
OCCURS AT 02374000 



12007000 12114000 13753000 14137000 



DECLARED 
DECLARED 



IN 

IN 



SEGMENT 
SEGMENT 



19 

19 



AT 
AT 



02360000 
02360000 



OCCURS 
OCCURS 



AT 
AT 



02380000 
02381000 



DECLARED IN SEGMENT l9 AT 02360000 •- OCCURS AT 02399000 



LENGTHS 

U£NgTh6 

LENGTH^ 

LCNgThS 
UCNGTH9 

LEO -• 

Lce -• 

LEVEL ' 



LEVEL - 

LEVELr 

LFC •• 
LFTBRKET 

LFTPAREN 
LGTFLn 

Lib •• 

LIN . 



LiN -- 

LINE -- 



LiNf 

LINE 

LINE 

LINE 

LINE 

LINECOUN 

LINK 



02364000 

-• Labf 

02364000 

— Labf 

02365000 

"• LABF 
02365000 

" LABF 
-- LABF 
02365000 
DEFINE 

oeosoooo 

DEFINE 

• tNTFGF 
05?08000 
14333000* 
14500000* 

• nEFlNE 
16171000 
— REAL 
13204000* 

DEFINE 
-• DEF 
05273800 

— DEF 

16125000 

•• DEFIN 

16172000 

BOOLEAN 

Real arr 

02194000 

05038000 

05325480 
09388000 

STREAW V 
05325090 

FILE - 
O1829OOO 
02265650 
05087000 
07025020 
17054500 

stRfaM 

02184250 

STREAM 
050t9000 

STREAM 
05069000 

STREAM 
O7O382OO 

STREAM 
09379000 
T •- OF 
17091520 

DEFINE 
02725000 
06190000 



L -- DFCLARFn IN SEGMENT 19 

L -- DFrlARED IN SEGMENT 19 

L -• DFCLAREn IN SEfiMENT 19 

L -- DECLARED IN SEGMENT 19 

L -- DECLARED IN SEGMENT 19 



AT 02361000 

aT 02361000 

AT 02361000 

AT 02361000 

AT 02361000 



occurs at 02476000 

Occurs at 02518000 

occurs at 02569000 

occurs at 02574000 

OCCURS AT 02575000 



— DECLARED IN SEGMENT 3 AT 0i655000 



-- DECLARED 

R -- DFCLA 

05344400 

14387000 1 

14603000 ♦! 

— declaR 

16265000 
" DECLARE 
13339000 1 

-• DECLARED 

INE -- DEC 
06139000 

INE -•• DEC 
16482400 1 

E -- DFCLA 



IN SEGMENT U9 aT 
RED IN SEGMENT 3 A 
5350100 05350120 
4389000 14411300 
4604000* 
ED IN SEGMENT 108 

D IN SEGMENT 3 AT 
3371000 14307000 

IN SfgMeNT 3 at 
LARED IN SEGMENT 3 
6316000 06421000 
LARED IN SEGMENT 1 
4167000 
RED IN SEGMENT 108 



17002000 
T 01402000 
13339000 13371000 I3677i00 *14053000* 
I44i5300 14451000 I446ll00 14477000 

aT 16005000 

01605000 



14220000 
14478000 



14307000 
14497000 



14318500 
14499000 



1648000 

AT 01263000 

10264100 12114000 
08 AT 16003000 

AT 16004000 



13391000 14259020 14269320 15183100 



-- valuf Parameter 

AY -- DECLARED TN 
02195000 02195750 
05039«SOO 05039600 
05325490 06122000 
09389500 13653000 

ARiABLr " NaMe Parameter - 



DECL 
SEGMENT 3 
02196580 
O5O44OOO 
06123000 
13653500 



AREO in SEGMENT 12 AT 02202500 

AT 01559010 
02196590 02214200 02226750 02228750 
O5O46OOO 05096000 05097500 05099000 
07025020 07086300 07086500 09384100 
13675000 13676000 

• DECLARED iN SEGMENT 43 AT 05325040 



02421000 
05325450 
09384500 



04149000 041S0000 
05325460 05325470 
09386000 09387000 



' DECLARED iN SEGMENT 3 AT 01558000 

O18357OO 02195000 O219575O 02196590 02214200 022?8750 0?264950 

02265750 02265900 02266000 02421000 02464000 04150000 04279000 

05088000 05089000 05090000 05097500 05099000 05325490 05427000 

07086500 09384500 09387000 09389500 09390000 13653500 13676000 

17054800 17055020 17091510 17094300 17094400 17094550 17095500 

- naMe Parameter — decLaRfo in segment 3 at 02ib35oo 



Variable 

variable 
05O21000 

VARIABLE 
0507ig00 

Variable 
07038300 

VARIABLE 
09390000 

FINE — 
17094410 

-• DECL 
02882200 
09133800 



02265150 
04282500 
05432000 
14461500 
17096300 



02265300 
05039600 
O5434OOO 
14493500 



02265450 
05046000 
06123000 
17002520 



-- NAME Parameter 

05024000 

— NAME Parameter 
05076000 05O85000 

•- NAME PARAMETER 

— NAME PARAMETER 

DECLARED IN SEGMENT 

17095510 17096350 

ARED IN SEGMENT 3 AT 

05124000 05132000 

09134000 13207000 



-- DECLARED IN SEGMENT 37 AT 05016000 

— DECLARED IN SEGMENT 38 AT 05067000 

•- DECLARED IN SEGMENT 57 AT 07038100 

-• DECLARED IN SEGMENT 80 AT 09378000 

129 AT 17091140 

01154O00 

05lfl9000 05233000 05234000 05447000 

13232000 13286000 13308000 13361000 



05448000 
13362000 



06079000 
13364000 



06189000 
14448000 



LINK 
UINK 

Link 

LINK 
LINKC 



LINKF 
LINKP 
LINKR 

LfNKR 

LlNKR 

LINKT 

LINKTOG 

LISTAR! 

LISTATO 

LlSTBfT 

LiSTrR 

LiSTin 
LISTOr 

LISTPbI 

listpto 

LITERAL 
LiTNO 

LITV - 

LN •«► 



14470000 

- INTEGER 

♦04182000* 

- nrFiNE 

07601000 

- INTEGER 
07646550 

• rfal 

♦16092000* 

-• DEFINE 
02001660 
05350180 
05450000 
10264800 
170?5300 
•• REAL 
♦13207000* 

•" REAL 
♦13361000* 
-• OEFINE 
02001660 
05350160 
05450000 
12117000 

- hffiNf 

09393130 

-- OEFINE 
09393350 

-^ REAL 
♦13361000* 



15080000 16443000 

-- nECLAREH IN SEGMENT 31 AT 04166000 
04185000 

-- OFClARED IN SEGMENT 65 aT 07595000 
07604040 07604050 07604060 07604070 

" nrcLAREO IN SEGMENT 66 AT 07646355 
*07646560* 07646645 *07646650* 07646660 
- DECLARED IN SEGMfNT 111 AT 16087000 
16094000 

-- nEClAREO IN SEGMENT 3 aT 



07604090 07605000 07607000 07607100 07608000 07609000 
07646665 



01156000 
0200l8i5 
05407000 
09393330 
13310200 



02001695 02001795 O2OO18O5 

05350200 05402100 05405000 

07397400 07397500 09393110 

12117000 13281000 13310000 

17080000 
■- DECLARED IN SFfiMENT 3 AT O16O6OOO 

13^68000 13^69000 I43l0000 l43l4000 
•- DECLARED IN SEGMENT 93 AT 13359000 

13362000 13364000 

— DECLARED IN SEGMENT 3 aT 01155000 
02001695 02001795 O2OO18O5 0200l8i5 
O535O2OO 06402100 05405000 05407000 
O73974OO 07397500 09414070 094l8000 
13281000 13302000 13303000 13310000 

-- nFCLARFD IN SEGMENT 82 AT 09393090 
09393i70 09393190 

— nECLAREO IN SEGMENT 83 AT 09393280 
O93934OO 09393430 

■- DECLARED I bi SEGMENT 93 AT 13359000 
13362000 13364000 13365000 ♦l3366000^ 



O2OO1822 
05409000 
09414070 
13310350 



14315000 



02001822 
05409000 
09419000 
13310200 



AT 0i00l570 
♦02602500* 02910600 



— BOOLEAN -- DECLA9ED IN SEGMENT 3 AT 01399000 

04100000 ♦04213000**04222000**04295000* 06021000 ^06022000* 
T — DEFINE -- DECLARED iN SEGMENT 3 AT 01000970 

02194250 02511000 02602500 
G -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001260 

02194250 02602500 
"• DEFINE -- DECLARED IN SEGMENT 3 aT 0l000980 

02402000 02602500 09028000 

-- BOOLEAN -- OFCLaRfD |N SEGMENT 3 

02195000 02195750 02214200 0?464000 

13674000 14461500 14493500 

•- DEFINE •- DECLARED IN SEGMENT 3 AT O1181OOO 

•• DEFINE -- DECLARED IN SEGMENT 3 AT 01001270 

02602500 09028000 
T -- DEFINE -- DECLARED IN SEGMENT 3 aT 01000990 

02195000 02228750 02480000 
R •- DEFINE — DECLARED IN SeGMeNT 

02195000 02228750 
•• INTEGER •• VALUE PARAMETER 

04004000 
-• DEEINE — DECLARED IN SEGMENT 3 aT O121OOOO 

02850000 05275000 0527^000 05344610 06085000 06094000 

07666500 07727050 07994000 13392000 14269460 14269500 

16341000 16374000 I64i0000 16435000 16482300 
- OFFINE -- DECLARED IN SEGMENT 3 AT 01250000 

16372000 16381000 

INTEGER -- DECLARED IN SEGMENT 97 AT 13750000 
♦13755500^ 13773000 



02212250 
05426000 
09418000 
13310950 



0?876000 
05428000 
09419000 
13593000 



05006000 
05430000 
09433000 
13677300 



05009000 
O5431OOO 
09447060 
14483400 



05325470 
05449000 
10251000 
17025100 



02212250 
05426000 
09433000 
13310350 



0?875000 
05428000 
09447060 
13310950 



05006000 
O543OOOO 
10251000 
13593000 



05009000 
05431000 
10254000 
13677300 



05325470 
05449000 
10264800 
14483400 



05036000 07025020 07086100 *09028000* 13652000 



3 AT 01001280 
• DECLARED IN SEGMENT 3 AT 04003000 



06317300 06319000 06321000 07600300 07665000 
15276010 16119000 16204000 16212500 16326000 



UNd •• OFFINF — DEtLaRED IN SFGMeNT 3 AT 01656000 

045*5000 
INr, -- DFF!NF -- DFrLARtO IN SrcMpNT 3 AT 01657000 

0«U2000 

to •»• Real -- declared in sfgmfnt 98 at UO29000 

♦ H304000* 14496000 
L.OC •- DEFINE •- DECLARED IN SEGMENT 106 aT 14420000 

14438000 
LOC -- DEFINE -- DECLARED IN SEGMENT 108 aT 16003000 

16070000 16163000 16255000 
LOCAL -• ROOLEAN PROCEDURE -- DECLARED IN SeSMENT 3 AT 05206000 

*052l0000* 07516000 07554000 07599000 
LOcaLv — DEFINE — DECLARED IN SEGMENT 3 AT 01249000 

14396000 
LOfBERlN -• DEFINE ■- DECLARED iN SEGMENT 98 AT 14022000 
LOCFLD — DEFINE -• DECLARED IN SEGMENT 108 AT t6004000 

16138000 
LOCLIO — DEFINE " DECLARED IN SEGMENT 3 AT Oii79000 

13755000 14409000 14411200 14415200 14425000 16198000 l63l7000 16326000 16330000 1*335000 16340000 

16368000 16406000 16482100 16482300 I64fl2500 17095310 
LOCV -- DEFINE -- DECLARED IN SEGMENT 3 AT 01247000 

16336000 16339000 
LOd — DEFINE •- DECLARED IN SEGMENT 3 AT 01658000 

04523000 05201000 05227000 05316000 06172500 07071000 07090000 08079000 15185300 15267000 15302600 

15305800 
LOLn — INTEGER •" oFCLaRfD IN SEQMeNT 98 AT 14030000 

*14054000i^ 
UONfiin — DEFINE " DECLARED IN SEGMENT 107 AT i5076120 

15301500 15305300 
LOR — DEFINE — DECLARED IN SEGMENT 3 AT 0i659000 
LOWER -- REAL -- VAl.UE PARAMETER -- DECtAREO iN SEGMENT 3 AT 05299000 

05297000 05298000 05304000 
LPRT •- RpAL -- DECLARED IN SEGMENT 3 aT 01483000 
LS -- INTEGER -- DECLARED IN SEGMENT 97 AT 13750000 

♦13752000* 13765000 
LSO •• STREAM VARtABLf •- NaME PARAMETER -- DECLARED IN SEGMENT 80 AT 09364000 

09366000 
LSS — DEFINE -- DECLARED IN SEGMENT 3 AT ©1661000 
LSS .- DEFINE -- DECLARED IN SEGMENT li9 aT 17002000 

I7li7400 
LSTRTn " DEFINE -- DECLARED IN SEGMENT 3 AT 0U300OO 
LSTSEO -- STREAM VARIABLE -- NAME PARAMETER — DECLARED IN SEGMENT 37 AT 05016000 

05020000 06023000 
LTAPE •- LABEL -- DECLARED IN SEGMENT lO AT 02191000 -- OCCURS AT 02195500 

02191250 
LVL — DEFINE — DECLARED IN SEGMENT 3 AT 01151000 

05116000 05206000 07432000 13204000 14220000 16171000 16265000 
LI — LaBFL — DECLaREP in SEGMENT 38 aT 05049000 -" OCCURS AT 05096000 

05099100 
LI — LaBfU " DECLARED IN SEGMENT 44 aT 053340oO 
LI — LABfL " DECLaRFD in SEGMENT 50 aT 06128000 -'• OCCURS AT 06152000 

06133000 
Ll *- LABEL •- DECLARED IN SEGMENT 67 AT 07658000 " OCCURS AT 07675000 

07667500 07672500 07673000 
Ll — LABEL — DECLARED IN SEGMENT 68 AT 07713000 -- OCCURS AT 07729000 

07720000 
Ll -• LABEL -- DECLARED IN SEGMENT 73 AT 09025000 



LI — 

L.1 "• 

Ll •• 

LI •- 

Ll — 

Ll •- 

LIO •• 

LIO •- 

LlO — 

Lll -- 

Lll •• 

L12 — 

L12 — 

L13 — 

Ll 3 "• 

L14 »•- 

Ll4 •" 

L15 — 

L15 -- 

L16 -- 

L16 •- 

L17 -• 

L17 — 

Lie •- 

LIB "" 

L19 -. 

Ll9 •• 

L2 — 

t2 -*• 

L2 -• 



LaBfL •- OFCLARrn in SFGMfNT 88 AT 12005000 -- OCCURS AT 12009000 

12057000 

STRfAM LABFl, -- HFCLARFD IN SEGMENT 95 AT 13635000 — OCCURS AT 13641000 

136^9000 

LABEL -- DECLARED IN SEGMENT 97 aT i375l000 -- OCCURS AT 13754000 

13761100 13762000 

LABEL -- nrCLARCO IN SEGMENT 116 AT 16313000 - 

16353000 

LABEL -- DECLARED IN SEGMENT 117 AT 16365000 - 

16372000 

Label -- declared in segment loe at I6475000 - 

16482400 

N SEGMFNT 50 AT 06128000 - 



OCCURS AT 16349000 
OCCURS AT 16397000 
OCCURS AT 16484000 



Label -• declarfo 

06133000 

Label -- declared 

077?0000 

LABEL — DECLARED 
16476000 

LABEL -- DECLARED 
06134000 

LABEL -- DECLARED 
077?1000 

Label -- declared 

06134000 

Label — declared 

07721000 

LABEL -- DECLARED 
06134000 

LABEL -- DECLARED 
077?l000 

LABEL -- DECLARED 
06134000 

Label -- declared 

07721000 

LABEL -- DECLARED 
06134000 

LABEL -- DECLARED 
07721000 

LABEL -• DECLARED 
06134000 

LABEL "- DCCL.ARED 
07721000 

LABEL -- DECLARED 
061 34000 

LABEL -- DECLARED 
07721000 

Label -• declared 

06134000 

Label -- declared 

07721000 

LABEL -- DECLARED 
06134000 

LABEL -- DECLARED 



- OCCURS AT 06152000 
N SEfiMENT 68 AT 07713000 -- OCCURS AT 07734000 

N Segment los at 16475000 — occurs at 16493000 



N Segment so at O6129000 

N segment 68 AT 07714000 
N SEGMENT 50 AT 06129000 

N Segment 68 at 07714000 
N Segment so at O6129000 

N SEGMENT 68 AT 07714000 
N SEGMENT 50 AT 06129000 

N Segment 68 at 07714000 

N segment 50 AT 06129000 
N SEGMENT 68 AT 07714000 

N Segment 50 at O6129000 
N Segment 68 at 07714000 

N SEGMENT 50 AT 06129000 

N SEGMENT 68 AT 07714000 

N SEGMENT 50 aT 06129000 

N SEGMENT 66 AT 07714000 

N SEGMENT 50 AT 06129000 

N SEGMENT 68 aT 07714000 



occurs at 06157000 
occurs at 07729000 
Occurs at 06152000 
occurs at 07736000 
occurs at 06152000 
occurs at 07729000 
occurs at 06159000 
occurs at 07729000 
occurs at 06159000 
occurs at 07729000 
occurs at 06152000 
occurs at 077^9000 
occurs at 06152000 
Occurs at 07729000 
occurs at 06161000 

occurs AT 07734000 
OCCURS AT 06161000 
occurs at 07734000 



07721000 

Label — decLaRed in segment 44 at 05334000 -»• occurs at 05373000 

LABEL -- declared IN SEGMENT 50 aT 06i28000 -- OCCURS aT 06152000 

06133000 

Label -- DECLaRfD in segment 68 at 07713000 -- occurs aT 07729000 



L2 -. 

U2 -1 

19 -• 

120 ' 

IZO ' 

L21 ' 
U21 - 
L22 . 
U22 • 
U23 • 
U23 • 
L24 • 
L2fl • 
L25 • 
L25 « 
L26 . 

126 • 

127 - 
127 . 
L29 - 
L28 - 
t29 . 
U29 - 
L3 "" 
L.3 — 
U3 - 
L3 "■ 
L3 •■ 



077?0000 
LABfL -- 
I2O18OOO 

LABEL -- 
13753100 

LABEL -■* 

16481000 

LABEL - 
06134000 

LABEL - 
07721000 

Label - 

06135000 

Label - 

077P2000 

label - 

06139000 

LABEL - 
077?2000 

Label - 

06135000 

Label - 

07722000 

LABEL - 
06135000 

Label - 

077?2000 
LABEL - 

06115000 
LABfL - 

07722000 
LABEL - 

06135000 

Label - 

07722000 

Label • 

06135000 
LABEL - 

07722000 
LABEL - 

06135000 

Label - 

07722000 

Label - 

06135000 

Label - 

07722000 

Label — 

06133000 
LABEL " 
07720000 
LABEL "" 
J2026000 
LABEL "- 
13770000 

Label — 

16476000 



nECLARFD IN SEGMENT 88 aT 120050oO 
12048000 

DECLAREfJ IN SEGMfNT 97 aT l375l000 
13754000 

DECLARED IN SEGMENT j 08 AT 16475000 
l6482?00 

N SEGMENT 50 AT 06129000 



- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

• DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

- DECLARED 

• DECLARED 

• DECLARED 

- DECLARED 

- DECLARED 

• DECLARED 

- DECLARED 

• DECLARED 

- DECLARED 



N SEGMENT 68 AT 07714000 
N SEGMENT 50 AT 06130000 

N Segment 68 at 07715000 

N SEGMENT 50 AT 06130000 

N Segment 68 at 07715000 

N Segment so at O6130000 

N SEGMENT 68 AT 07715000 
N SEGMENT 50 AT 06130000 

N Segment 66 at 07715000 
N Segment 50 at O6130000 

N segment 68 AT 07715000 
N SEGMENT 50 AT 06130000 
N SEGMENT 68 AT 07715000 
N SEGMENT 50 AT 06130000 
N SEGMENT 68 AT 07715000 
N SEGMENT 50 AT 06130000 
N SEGMENT 68 AT 07715000 
N SEGMENT 50 AT 06130000 
N SEGMENT 68 aT 07715000 
DECLARED IN SEGMENT 50 aT 0*128000 
DECLARED IN SEGMENT 68 AT 07713000 
DFCLARED in segment 88 AT 12005000 
DECLARED IN SEGMENT 97 aT 13751000 
DECLARED IN SEGMENT l08 AT 16475000 



' occurs at 12055000 

- occurs at 13760000 
•• occurs at 16485000 
■- occurs at 06152000 
•- occurs at 07729000 

— occurs at 06152000 
■- Occurs at 07729000 
•• occurs at 06163000 

— occurs at 07738000 

- Occurs at 06I63000 

- OCCURS at 07738000 
■• OCCURS at 06152000 
•• OCCURS AT 07729000 
•- OCCURS AT 06152000 
■- OCCURS AT 07729000 
"- OCCURS AT 06163000 
'- OCCURS AT 07738000 
•- OCCURS AT 06163000 
■- OCCURS AT 07738000 

- OCCURS AT 06152000 
•- OCCURS AT 07729000 

- OCCURS AT 06152000 
■- OCCURS AT 07729000 

• OCCURS AT 06152000 
■ OCCURS AT 07729000 

• OCCURS AT 12056000 

• OCCURS AT 13767000 
■• OCCURS AT 16486000 



L30 




Label -• 

06135000 


L30 




Label -• 

07722000 


L31 




LABEL -• 
06136000 


L31 




LABEL -■ 
07723000 


L32 




LABFL -■ 
06136000 


L32 




LABEL -• 
07723000 


L33 




LabfL -• 

06136000 


L33 




LABEL -- 
07723000 


L34 




LABEL -" 
06136000 


L34 




Label -• 

07723000 


L35 




Label -*■ 

06136000 


L35 




LABEL -- 
07723000 


L36 




Label -- 

06136000 


L36 




label -•• 

07723000 


L37 




LABEL -• 
06136000 


L37 




LABEL -• 
07723000 


L38 




Label -- 

06136000 


L36 




Label -- 

07723000 


L39 




LABEL -- 
061 36000 


L39 




LABEL -- 
07723000 


L4 


• • 


LABEL " 
061 33000 


L4 


• •• 


LABEL -- 
07720000 


L4 


•<••> 


LABfL -- 
16476000 


L40 




LabfL -- 

07723000 


Lfll 




LABEL -- 
07724000 


L42 




LABEL -- 
07724000 


L43 




LABEL -- 

07724000 


L44 




Label -- 

07724000 


L45 




Label -- 



DECLARFD IN SERMENT 50 AT 06130000 
- DECLARED iN SEGMENT 68 aT 07715000 
DECLARFD jN SEGMENT 50 AT 06131000 
DECLARED IN SEGMENT 68 AT 07716000 
DECLARED IN SEGMENT 50 AT 06131000 
DECLARED IN SEGMENT 66 aT 07716000 
DECLARED jN SEGMENT 50 AT 06131000 
DECLARFD iN SEGMENT 66 AT 07716000 
DECLARED IN SEGMENT 50 AT 06131000 
DECLARFD jN SEGMENT 68 AT 07716000 
DECLARFD IN SEGMENT 50 AT 06131000 
DECLARFD IN SEGMENT 68 AT 07716000 
DECLARED IN SEGMENT 50 AT 06131000 
DECLARED jN SEGMENT 66 AT 07716000 
DECLARED IN SEGMENT 50 AT 06131000 
DECLARFD iN SEGMENT 68 AT 07716000 
DECLARED IN SEGMENT 50 AT 06131000 
DECLARED IN SEGMENT 68 aT 07716000 
DECLARED iN SEGMENT 50 AT 06131000 
DECLARED iN SEGMENT 68 AT 07716000 
DECLARED IN SEGMENT 50 AT O6i?800O 
DECLARED IN SEGMENT 68 AT 07713000 
DECLARED IN SEGMENT l06 AT 16475000 
DECLARFD IN SegMeNT 66 aT 07716000 
DECLARED iN SEGMENT 68 AT 07717000 
DECLARED IN SEGMENT 68 AT 07717000 
DECLARED IN SEGMENT 68 AT 07717000 
DECLARED iN SEGMENT 68 AT 07717000 
DECLARED iN SEGMENT 66 AT 07717000 



-- occurs at 06163000 

-- occurs at 07738000 

-• occurs at 06163000 

— occurs at 07738000 
-- occurs at 06153000 

— occurs at 07740000 
-- occurs at 06165000 

— occurs at 07730000 
-- occurs at 06167000 
-• occurs at 07730000 
"• occurs at 06165000 
■• occurs at 07730000 
•- occurs at 06167000 
"- occurs at 07730000 
•• occurs at 06173000 
■- occurs at 07730000 
•- occurs at 06169000 
•- occurs at 07742000 

— occurs at 06171000 

— occurs at 07730000 
' occurs at 06152000 

' occurs at 07729000 

•- occurs at 16487000 

•" Occurs at 07744000 

•• occurs at 07770000 

'• occurs at 07752000 

- occurs at 07754000 

— Occurs at 07756000 

- occurs at 07758000 



L46 




U47 




U48 




L49 




L5 


• 


L5 


• 


L5 


m 


L50 




L.51 




L.5? 




1,53 




U54 




U6 




L6 




16 




17 




17 




17 




L8 




L8 




LB 




L9 




U9 




t9 




M •• 


M -• 


M — 


M •- 



DECLARFD in SEfiMENT 68 aT 07717000 



DECLARFD IN SEGMENT 68 AT 07718000 

DECLARPD IN SEGMENT 68 AT 07716000 

DECLARED iN SEGMENT 68 aT 07718000 

DECLARFD iN SEGMENT 68 aT 07718000 



07734000 

• LAflFL - 
077^4000 

• LABEL -- DECLARED iN SEGMENT 68 aT 07717000 -■ 
077?4000 

■ LAREL -- DECLARED IN SEGMENT 68 AT 07717000 - 
077?«000 

" LABEL -- DECLARED IN SEGMENT 68 AT 07717000 -■ 
07794000 

Label — declared in segment 50 at 06128000 -- 

06133000 

LABEL ^- DECLARED iN SEGMENT 68 aT 07713000 -- 

07720000 

LABEL -- DECLARED IN SEGMENT 1 08 AT 16475000 -• 

16476000 

• LABEL -- DECLARED IN SEGMENT 68 AT 07717000 -• 
077?4000 

' LABEL - 
07725000 

• LABEL - 
077^5000 

■ LABEL - 
077?5000 

' Label - 

077:>5000 

LABEL -- DECLARED IN SEGMENT 50 AT 06i28000 -- 

06133000 

LABEL -- DECLARED IN SEGMENT 68 AT 07713000 -- 

077?0000 

LABEL -- DECLARED IN SEGMENT l08 AT 16475000 - 

16476000 

Label — declared in segment 50 at 06128000 -- 

06133000 

Label -- declared in segment 68 at o7713ooo -- 

07720000 

LABEL " DECLARED IN SEGMENT l08 AT 16475000 - 

16476000 16482500 

LABEL -- DECLARED IN SEGMENT 50 aT 06i280o0 -- 

06133000 

LABEL -- DECLARED IN SEGMENT 68 AT 07713000 -- 

077?0000 

LABEL -- DECLARED IN SEGMENT 108 AT 16475000 - 

16476000 

LABEL -- DECLARED IN SEGMENT 50 aT 06l28000 — 

06133000 

UABeL -- DFCLaRED in SEGMENT 68 At 07713000 -- 

07720000 

LABEL -- DECLARED IN SEGMENT l08 AT 16475000 - 

16476000 
BOOLEAN -- DECLARED IN SEGMENT 44 AT 05343000 
♦O535O1OO* 05350i40 

REAL •- DECLARED IN SEGMENT 45 AT 0540)000 
»05404000**05407000**05409000* 05409300 05409400 
REAL " DECLARED IN SEGMENT 47 AT 05438000 
«05441000» 05442000 05443000 05444000 05445000 
INTEGER -• DECLARED IN SEGMENT 81 AT 09393010 
♦09447040* 09447050 



OCCURS AT 07769000 
OCCURS AT 07769000 
OCCURS AT 07769000 
OCCURS AT 07759100 
OCCURS AT 06152000 
OCCURS AT 07729000 
OCCURS AT 16488000 
OCCURS AT 07769000 
OCCURS AT 07760000 
OCCURS AT 07762000 
OCCURS AT 07764000 
OCCURS AT 07766000 
OCCURS AT 06152000 
OCCURS AT 07729000 

OCCURS AT 16489000 
OCCURS AT 06155000 
OCCURS AT 07732000 

OCCURS AT 16490000 
OCCURS AT 06152000 
OCCURS AT 07732000 

OCCURS AT 16491000 
OCCURS AT 06152000 
OCCURS AT 07729000 
OCCURS AT 16492000 



Macro •- rtal. array -- 

•09215000* 16346000 



nrcLARED 

16349000 



fN SEGMENT 3 

— DECl 



Macro -• boolean -- valuf parameter -' 

10763600 i0?76500 
MACROtD -- BOOLEAN -- DECLARED IN SEGMENT 3 A 

02882100 02913000 *1 2l07000**1212r000* 1 
MAKEUPACCUM -- PROCEDURE -• DECLARED IN SfGME 

13333500 13342000 16000600 
MARK — Real -- PECLARFD in segment 3 AT 0161 

14117000 *14314000**14319000* 14333300 1 
MATCH »• HEFINf — HECL-AREO IN SEGMENT 129 AT 

17091600 

maxintRtnsic — definf — Declared in segment 

09253100 09414120 
MAXROw -- INTEGER -- DECLARED IN SEGMENT 3 AT 
MAXSAVE -- INTEGER -- DECLARED IN SEGMENT 3 A 

maxstack — Real «- declared in segment 3 at 

13230000 *13231000* 14277000 *14502000* 
MAXSTaCkO — real — declared in segment 98 A 

*1«277000* 14502000 
MAXTLcR — INTEGER — DECLARED IN SEGMENT 3 A 

02439000 *02456000* 
McPBIT -- DEFINE -" DECLARED IN SEGMENT 3 AT 

02397000 
McPTOg — DEFINE -• DECLARED IN SEGMENT 3 AT 
MCPTYPE — DEFINE — DECLARED IN SEGMENT 3 AT 

O943OO6O 
MDESC -- STREAM PROCEDURE — DECLARED ]H SEGM 

09034200 09253500 09254000 09255000 
MEDIUM " ALPHA -• DECLARED IN SEGMENT 3 AT 

02195000 02195750 ♦02203250**02204250**0 



AT 01487000 

ARfD iN SEGMENT 3 

T 01717800 
3305200 13307500 
NT 3 AT 13368000 

5000 

4334000 14374000 
17091115 

3 AT 01299400 



AT 10228000 



*14265900**14266100* 
-- FORWARD AT 01627000 



14430000 14451200 14463000 



MERGERIT •- DEFINE -- DECLARED IN SEGMENT 3 A 
01835600 02425000 02425500 02426000 

mergeoption — Label — dfclaRfd in segment i 

02428000 
McRfiETOfi -- DEFINE "- DECLARED iN SEGMENT 3 A 
01835600 02425500 024?7000 02428000 
MiN -- INTEGER " OfCLARFD IN SEGMENT 5 AT 01 

♦O1828OOO* 01834000 

MKABS -- REAL STREAM PROCEDURE -- DECLARED IN 

«02023000« 02202000 02202050 02214000 

02485500 02486000 02903000 0509i000 

MKS — DEFINE — DEcLaRED IN SfgMeNT 3 AT O16 



07408000 07434000 13761000 13^65000 
MKST — BOOLEAN — DECLARED IN SEGMeNT 97 AT 

*13752000**13761000* 13764000 
MODE — INTEGER -- DECLARED IN SEGMENT 3 AT 

04175500 04184000 042l2l00 04223100 

14478000 *14501000* 
MON •• DEFINE -- DECLARED IN SegMeNT 3 AT Oil 

16254000 
MONITORDEC -- LABEL -- DECLARED IN SEGMENT 98 

14019000 
MONITORV — DEFINE -- DECLARED IN SEGMENT 3 A 
MOVE — STREAM PROCEDURE -• DECLARED IN SrGME 

02212250 02366100 02412000 02487000 

08999575 08999700 09393130 09393170 

13310000 13651000 13746000 14259000 1 



O1684ODO 
T 01598000 
OI683OOO 

T 14029000 

T 01331000 

OlOOlOOO 

01001290 
01561410 

ENT 73 AT 09005000 
9418000 09419100 
1001580 

2205500**02214100* 
T 01001010 
2427'000 02428000 
9 AT 02363000 -- 

T 01001300 

2436000 

822000 

Segment 3 at 0202 

2215750 02216500 
7025j010 07025030 
62000 

13750000 

1402000 

5115000 05345000 

47000 

AT 14014000 — 

T 01291000 
NT 3 AT 02054000 
2602600 02916000 
9393190 09393350 
4440000 16495100 



022H200 02228750 02421000 05038000 07025020 

02435000 02436000 
OCCURS AT 02437000 



2000 
02217750 02226000 02410500 02411000 02456000 
08999175 08999200 09400000 09401000 



07397200 07600410 07748000 08093000 ♦14303000* 



OCCURS AT 14142000 



04147000 05039500 07029000 07669000 08999550 
09393400 09393430 09433000 09447060 13281000 



MOVF — STREAM PROceDURf " DETLARed IN SrSMENT 71 AT 08999075 

08999100 08999p75 08999350 
MOVECHARACTrRS •- STRrAM PROCEDURE •- DECLARED fN SEGMENT 3 AT 02045000 

02705000 07668500 I63fl9000 16392000 
MOVECODr — STREAM PROCEDURE " DECLARED iN SEGMENT 3 AT 13683000 
MOVEIT •• LABEL -- DECLARED IN SEGMENT 2ft AT 0?638000 — OCCURS AT 02704000 
MOVEXREFINrO -- STREAM PROCEDURE »- DECLARED IN SEGMENT 8 AT 02001760 

02001785 02001805 
MRcLEaN -- BOOLEAN -- DECLARED iN SEGMENT 3 AT 01379000 

04164000 ♦09040000* 08049000 

500 *02978500* 02982000 02983000 
- OCCURS AT 053253i&0 
w-^25240 
Ml — STREAM LABEL — DECLARED IN SEGMENT 43 AT 05325080 -- OCCURS AT 05325350 

05325250 
M2 -• STREAM LABEL -- DECLARED fN SEGMENT 43 AT 05325080 »• OCCURS AT 05325360 
05325260 

STRrAM Label -- declared in segment 43 at 05325080 -• occurs at 05325380 

05325270 

STRfAM label -- DECLARED iN SEGMENT 43 AT 05325080 -- OCCURS AT 05325390 
05325280 

STREAM LABEL -- DECLARED iN SEGMENT 43 AT 05325080 — OCCURS AT 05325400 
0519529© 

STREAM LABEL -- DECLARED IN SEGMENT 43 AT 05325080 •- OCCURS AT 05325410 
05325300 
M7 -- STREAM LABEL -- DECLARED iN SEGMENT 43 AT 05325080 — OCCURS AT 05325420 
05325310 



M3 
M4 
M5 
M6 



N 
N 



05325310 

REAL -- DECLARED IN SEGMENT 3 AT 01693000 
STREAM VARIABLE — VaLUE PaRaMeTER -- DECLARED 

01737450 



IN SEGMENT 3 AT 01737350 



N — STREAM VARIABLE -- DECLARED iN SEGMENT 3 AT 01759000 
♦01781000* 



STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 8 AT 02001760 
02001765 0200i7fi0 

STREAM Variable -• value parameter -- declared in segment 3 at 02041000 
02043000 

stream VARIABLE -- VALUE PARAMETER ••- DECLARED IN SEGMENT 3 AT 02045000 

O2O46OOO 02050000 
STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 11 AT 02196530 

02196560 
tNTESER -- DECLARED IN SEGMENT 14 AT 02249000 
*0225l000**02252000* 02255000 02259000 
STReaM VaRIABUe -- VALUE PaRaMeTER — DECLARED IN SEGMENT 15 AT 02264400 

02264550 
STREAM VARIABLE " VALUE PARAMETER -- DECLARED IN SEGMENT 15 AT 02264700 

02264650 



N - 

N • 

N • 

N - 

N « 

N •* 

N •• 

N - 

N — INTEGER -- DECLARED IN SEGMENT 33 AT 04237000 




N — STREAM VARIABLE — VALUE PaRaMeTeR — DECLARED IN SEGMENT 38 AT 05067000 
05075000 
•- tNTFcER -• VALUE PARAMfTeR -- DFCLaReO IN SEGMfNT 3 AT 05325010 
05325460 05325470 05325480 



N 



N -• STRFAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 43 AT 053?5040 

053?5050 05325?30 
N -- STREAM VARIABLE -- DECLARED IN SEGMENT 44 AT 05334200 

05334400 05334600 
N — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 46 AT 05415000 

05421000 
N -- STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 49 AT 06064000 

06067000 
N -- STREAM VARIABLE -- VALUE PaRaMeTER -- DECLARED IN SEGMENT 57 AT 07038100 

07038500 
N " INTEGER -- DECLARED iN SEGMENT 66 AT 07646395 

*07646495* 07646510 *076465l5* 07646625 0764663^ 
N -- STREAM VARIABLE " VALUE PARAMETER — DECLARED IN SEGMENT 67 AT 07653500 

07655500 
N — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 71 AT 08999075 

08999100 
N — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 80 AT 09378000 

09381000 
N -«• INTEGER •• DECLARED IN SEGMENT 81 AT 09393000 

♦09400000* 09402l00 09403000 09405500 09406000 09407000 ♦09413000* 09417000 09420000 *09430050* 09430075 
N -- REAL — VALUE PARAMETER -• DECLARED IN SEGMENT 8l AT 09393240 

09393300 

N — stRfaM Variable -- value paRa^eTer — declared in segment 8i at 09393700 
09393730 

N mm stream VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 86 AT 10257100 

10257300 
N «•- REAL -• DECLARED IN SEGMENT 86 AT 10258100 

♦10263110* 10264700 10264900 
N •• REAL — DECLARED IN SEGMENT 91 AT 13221000 

♦13258000* 13265000 13271000 
N — STREAM VARIABLE -- DECLARED IN SEGMENT 96 AT 13673150 

13673300 13673400 
N — STREAM VARIABLE "- VALUE PaRaMeTER -" DECLARED IN SEGMENT 124 AT 17051400 

17051500 17051900 
NaMeDfC -• LABEL — DECLARm IN SEGMENT 98 AT 14015000 — OCCURS AT 14161000 

14020000 
NAMEID " DEFINE •• DECLARED IN SEGMENT 3 AT O12O52OO 

07046000 07048000 I4t6l0i0 14161120 15276020 15276090 I5295l00 15301500 15305300 
NAMEV •- DEFINE -- DECLARED IN SEGMENT 3 aT 01295000 
NB — REAL -- DECLARED IN SEGMENT 103 AT 14269060 

♦14269448^*14269540^ 14269560 14269600 
NBITF -- DEFINE — DECLARED IN SEGMENT 3 aT OllS'lSOO 

05273400 05274200 06315400 06316400 14269448 14269600 
NCII -• INTEGER -- DECLARED IN SEGMENT 3 aT 01624000 

♦13228000* 14056000 *14057000^ 
NCnO •• INTEGER -- DECLARED IN SEGMENT 98 AT 14031000 

*14056000* 
NCR *- STREAM VARIABLE -- VaLUE PaRaMETER -" DECLARED IN SEGMENT 2 AT 00511000 

00512000 
NCR -• INTEGER •- DECLARED IN SEGMENT 3 AT 01330000 

02128500 02129000 02129500 *022l 3000**0221 4000**02225250**02229000**02230750* 024i0000 02*65000 02665000 

02680000 02697000 *02720000* 02731000 02745000 02750000 02753000 0?786000 02791000 02807000 02813000 

02888000 02902000 *02903000^ 
NcR •• STREAM VARTABLe — VaLUe PaRA^ETER — DECLARED IN SEGMENT 3 AT 01756000 

01761000 ♦0l76eO0O**Ol77300O^ 0l780000 
NCR — STREAM VARIABLE -- NAME PARAMETER -• DECLARED iN SEGMENT 9 AT 02089500 

02126000 



NCR — STREAM VARTABLF -• VALUf PARAMETER -- DECLARED IN SEGMENT 3 AT 02183500 

0?183750 0?184«500 

NCRV -- STRFAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 9 AT 0?090000 

02090500 02092500 *0?10?000* 0?124500 

NEC -• DEFINE -- DECLARED IN SEGMENT 3 AT 0i664000 

NEO •- DFFINE -- DECLARED IN SEGMENT ll9 aT 17002000 

NFR "- STREAM VARIABLE •- VALUE PARAMETER -- DECLARED IN SEGMENT 80 AT 09364000 

09368000 

NESTBfT -- DEFINE — DECLARED tN SEGMENT 3 AT 0i00l020 
02472000 07397100 14483100 146O1OOO 

NcsTcTR — Real — oeclaReo in segment 3 at 01^22000 

*05375l00**l448l?00* 14483400 
NESTCUR -- REAL -" DECLARED IN SEGMENT 3 AT 017?2000 

♦05402200* 05409i00 *05409300* 
NCSTFORM — STREAM PROCEDURE — DECLARED iN SEGMENT 46 AT 05415000 

05426000 05431000 
NESTLfVfL — REAL " DECLARED IN SEGMENT 3 AT 01484000 

♦16126000**16142000* 16166000 16l7i000 16260000 16265000 
NESTOr -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001310 

07397100 14483100 14601000 
NESTPRT -- REAL ARRAY -- DECLARED IN SFGMfNt 3 AT 01724000 

05402000 05402200 *05402300+^05404000^ 05409200 ♦05409500* 05425000 05425400 05430500 05447000 05448000 
♦14483300^ 
NCSTS -- PROCEDURE -- DECLARED iN SeGMeNT 108 AT 16115000 

16144000 16484000 
NESTSORT — PROCEDURE -- DECLARED IN SEGMfNT 3 AT 05437000 -- FORWARD AT 0541U00 

05425200 05442000 05443000 
NEW -- STREAM VARIABLE -• NaME PARAMETER "- DECLARED IN SEGMENT 3 AT 02016000 

02018000 
NEWBASE — BOOLEAN -- DECLARED iN SEGMENT 3 AT 01001490 

02192000 ♦02l92500**025i3000**09028920* 
NEW8IT -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001030 

02193750 02388000 09282500 
NEWID -- DEFINE '" DECLARED IN SEGMENT 119 AT 17002009 

17080000 
NEWlNCL -- DEFINE -- DECLARED IN SEGMENT 3 AT 0i00l330 
NEWINCLBIT -- DEFINE -- DECLARED IN SEQmEnT 3 AT O1OO1O4O 
NEWINX -- INTEGER — DECLARED IN SEGMENT 3 AT O1OOO86O 
NEWTAPBUF — REAL ARRAY -- DECLARED IN SEGMENT 3 AT 0i4905l0 
NEWTAPE -- FILE -- DECLARED IN SEGMENT 3 AT 01560000 

02194000 09282500 17002510 
NEWTOfi " DEFINE " DECLARED IN SEGMENT 3 AT 01001320 

02193750 09202500 
NEXT -- INTEGER PROCEDURE — DECLARED iN SEGMENT 3 AT 02956000 

*02968000* 02968500 02974500 02978500 
NEXT -- Label -- declared in segment 107 at 15076000 -- OCCURS AT 15253000 

15292000 
NCXTChK -- LABEL — DECLARED IN SEGMENT 54 AT 06315000 -- OCCURS AT 06327000 

06315500 06317000 06320500 
NEXTINFO -- Real -- declared in SEGMENT 3 AT 01620000 

02265350 *02726000**09033000* 10250000 10254000 1O261OOO 10263000 *10263 lOO**i0285000**l 329i000* 13302000 

13303000 13304000 *13305000* 13308000 13309000 13310000 13310200 13310580 13310950 13311000 ♦13312000* 

13593000 #13594000* 13770600 14055000 14166500 14217000 14319000 14329000 * 14330000** 14373000* 14375000 
*14463000* 16442000 
NpXTUtNK -- DFFINE "- DECLARED |N SFGMfNT 65 AT 07596000 

07604050 07604080 07604090 07607000 07609000 
NHI — Real -- declared in segment 3 at Oi689000 



•026BlOOO**0?785000* OpBOOOOO O28O1OOO 02833000 0?835000 O2838OOO 0?840000 12015000 
NINFOO •- INTEGER " OFCLARED IN SEGMENT 98 AT 14030000 

♦14055000* 14600000 14601000 
NUAB •- RrAL -- DECLARED IN SEGMENT 106 AT 14418000 

*14422000**14437000* 
NLO — REAl — DECLaRFD IN SEGMENT 3 AT 01689000 

*02681000**02785000* O28OOOOO 02833000 02835000 O2838OOO 02840000 12014000 
NUOc •- RrAL. -- DECLARED IN SEGMENT 106 AT 14418000 

♦ H422000**14433000* 14451200 
NtOcS — oEFINe -• DECLARED iN SEGMeNT 98 AT 14022000 
NODlMPART — OEFTNE — DECLARED IN SEGMENT 3 AT 0]532000 

07098000 07412000 
NOhEAOING — BOOLEAN -- DECLARED IN SegMENT 3 AT 0l00i480 

♦O1836OOO* 02195000 02195750 02196590 022i4200 02228750 02?64950 0?42l000 O5O396OO O5O46OOO 05325490 
07025020 *09028n50* 09362000 13653500 13676000 
NONLITNO — DEFINE -- DECLARED IN SEGMENT 3 AT 01209000 

02851000 02924000 07604120 07665000 07666500 08032000 13226000 
NONSAVNnX — INTEGER — DECLARED IN SEGMENT 81 aT 09393000 

09405500 09406000 ♦09407000* 09427100 
NOP -• DEFINE — DECLARED IN SFGMeNT 3 AT 01665000 

04212100 04223100 07078000 08094000 13752000 
NOP — DEFINE •- DErLARED IN SEGMENT 108 aT 16012000 

NORMAL — Label -• declared in segment 35 at 04311010 -- occurs at 04311120 

04311060 04311080 
NORMALRFF — DEFINE -- DECLARED IN SEGMENT 3 AT 01007495 

02882200 13310580 
NOTOP -- DEFINE "- DFCLAREO IN SEGMENT 3 aT 01272000 

02964000 02974500 06146000 
NUMBEREND — LABEL -- DECLARED IN SEGMENT 24 AT 02640000 -- OCCURS AT 02845000 

02687000 
NUMBERS "- STREAM LABfL — DECLARED IN SEGMpNT 9 AT 02091500 — OCCURS AT 02117000 

02096000 02102500 
NUMLE -• BOOLEAN — VaLUE PaRAMETeR -• DECLARfD IN SEGMENT 69 AT 08080000 

08095000 08162000 08165000 
NXTELBT — INTEGER -• DECLARED iN SEGMENT 3 AT 01319000 

02644000 029i0000 ^0291 2000*^029i7000^^08i j 0000^*08i74000**0903a000* 10263400 *l0263500* 10277000 10282000 

12112000 ♦12113000* 12125000 
Nl -• ALPHA -- DECLARED IN SEGMENT 5 AT 0i822000 

*018?8500* 01835500 *0i835800* 
N2 — ALPHA -- DECLARED IN SEGMENT 5 AT 01822000 

*01828500* 01835500 *0l835800^ 
OCR — REAL — DECLARED IN SEGMENT 91 aT 13221000 

♦13249000* 13250000 13252500 ♦13257000* 13262000 13263000 
OcTaLwORDS -- STREAM PROCEDURE -" DECLaRED IN SfGMeNT 15 AT 02264400 

02264650 02265l00 02265250 02265700 02265950 
OCTIZf — BOOLEAN STREAM PROCEDURE -" DECLARED iN SEGMENT 3 AT 02001838 

♦02001652* 02001854 02686000 
OK -- LABEL — DECLARED IN SEGMENT 58 AT 07393100 -- OCCURS AT 07397600 

07397400 
OLDL •- RFAL — DECLARED IN SEGMENT 65 AT 07596500 

*07597000* 07600800 *07604040* 07604067 07604070 07604100 
OLdSeO — STREAM VARIABLE "" VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 01741200 

01741300 
OMtT •• STREAM VARIABLE "- VALUE PARAMETER •- DECLARED IN SEGMENT 3 AT 02183500 

02183750 02186750 
OMiTBiT -- DEFINE -• • DECLARED IN SEGMENT 3 AT OiOOlOSO 

02194259 02195000 02195750 02214200 022?8750 02235250 02421000 02421100 07025020 
OMtTTtNr •• DEFINE -- DECLARED TN SeQMeNT 3 AT 01001340 



02194250 0?l95000 02195^50 02214200 022?8750 0?235250 02421000 070250?0 
OPARSIZP — DEFINE -- DECLARED IN SEGMENT 3 AT 01000902 

01000904 02316000 02331000 09414022 09414026 
OPCLASS — REAL -- nECLARED IN SEGMENT 28 AT 02981000 

*02982000* 02983000 02913500 02984000 
OPrUASS " INTEGER "- DECLARED IN SEGMENT 48 AT 06042000 

♦06048000* 06052000 06055000 
OPCODE " DEFINE -- DFCLaREO IN SFGMENt ll7 AT 16366000 

16379000 
OPOC -- DEFINE -- DECLARED IN SEGMENT 69 aT O8O16OOO 

O81O8OOO 08130000 08217000 
OPERATOR — DEFINE — DECLARED IN SEGMENT I AT 01271000 

06076000 
OPERATOR — INTEGER -- VALUf PARAMETER -- DECLARED IN SEGMENT 3 AT 04006000 

04007000 
OPERATOR "w INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04011000 

O4O1OOOO 04014000 
OPERATOR — INTEGER — VALUf PARAMETER -- DECLARED IN SEGMENT 3 AT 04030000 

O4O28OOO 04029000 O4O34OOO 
OPERATOR — INTEGER -- DECLARED IN SEGMENT 48 AT 06042000 

*06044000>» 06054000 
OPERATORS — DEFINE -- DECLARED IN SEGMENT 3 AT 01299200 

06071000 
OPINX — INTEGER -- DECLARED IN SEGMENT 3 AT O1OOO8OO 

♦O2I1 l000f*023l2000* 02314000 02316000 023i7000 0?334000 02338000 0?34?000 
OPTIONLENGTh -- SWITCH LABEL "- DECLARED IN SEGMENT 19 AT 02364000 

02373000 
OPTIONS •- REAL ARRAY -- DECLARED IN SEGMENT 3 AT 01000904 

02312000 *023l4000* 023i7000 *0233l000**02334000**02338000#*02352000**02356000**02426000**0925l208* 09414024 

09414026 

OPTIONWORO -• BOOLEAN — DECLARED IN SfGMtNT 3 aT 01000910 

01835600 02191500 02193750 02194250 02195000 02195^50 02196590 02214200 

02232500 02234800 02235250 ♦02330000**02335000**02339000*»02353000**02357000* 

02428000 02436000 02533000 *0257700o* 02602500 02882200 029l0600 04148000 

05039600 05046000 O5O48OOO 05097500 05099000 05325490 05350i00 05376i00 

07397100 07598i00 07660600 08l78l00 *09028000**09253050* 09253100 09282500 

09394100 09405000 094i40iO 0942i000 09430050 09447010 13310050 13310525 



12356000 



OROP 
OUTDEC 



13652000 13653500 13674000 13676000 I3677i00 14312100 14461500 14469i00 
15090600 15091200 15184400 15184700 15301000 I6l59l00 16318500 16495300 
-• OFFINf -- OfCLaREO fN SFGMENT 3 AT 01275000 



2228100 
2421000 
4150000 
6123000 
9384500 
3310560 
4483100 
7094250 



02228750 
♦02425500* 
04278500 
07025020 
09387000 
13341200 
14493500 
17094500 



02231500 
02427000 
04297000 
07086500 
09389500 
1365U00 
14601000 



02965000 02984000 

•• LABEL -- nECLARED jN SEGMfNT 98 AT 14014000 -• OCCURS AT 14158000 

14019000 
OUTPUTSOURCE — PROCEDURE -- DECLARED |N SEBMENT 3 AT 02190500 

02196500 O223O5OO 02235000 
OUTPUTI -- PROCEDURE — DECLARED IN SegmEnT 122 AT 17016000 

17045000 
0UTPUT2 — PROCEDURE -- DECLARED IN SEGMENT 124 AT 17087000 

17096900 17119000 
OUTV — DEFINE -- DECLARED IN SEGMENT 3 AT 01289000 
OWNERR — LABEL -• DECLARED IN SEGMENT 98 AT 14013000 -- OCCURS AT 14135000 

14018000 
OHNTOfi •• STREAM VARIABLE -• VALUE PARAMETER 

17047400 I7048i00 
OWNV •- DEFINE " DECLARED IN SEGMENT 3 AT 01280000 

13383000 13723000 14161040 
P "- REAL -- DECLARED IN SEGMENT 3 AT 01489000 



DECLARED IN SEGMENT 124 AT 17047300 



♦ H335000* H387000 H'fSOOOO 14451200 14463000 

P " INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02635000 

02644000 *029l7000* 02920000 02^23000 02924000 
P -• STREAM VARIABLE " VaLuE PARAMETER -- DECLARED IN SEGMENT 38 AT 05050000 

05052000 05055000 
P — STREAM VARIABLE " VALUE PARAMETER -• DECLARED IN SEGMENT 38 AT 05059000 
P •- REAL •- DECLARED TN SErMENT 46 AT 05414100 

•05425300* 05425400 
P •• REAL •- DECLARED fN SEGMENT 89 AT I2l0?000 

♦12t08000* 12126000 
P — tNTfaER -- DECLARED IN SEGMENT 97 AT 13750000 

♦ 13752000* 13755000 * 1 376 l000**l 3^6i 200* 13767000 

PACK — STREAM PROCEDURE -- DECLARED iN SEGMENT 3 AT 04270000 

04276000 04296000 
PACKIN "- LABEL — DECLARED IN SEGMENT 86 AT 10258300 -- OCCURS AT 10264910 

10264000 10264200 10264400 10264420 
PACKINEO — STREAM PROCEDURE -• DECLARED fN SEGMENT 87 aT 10236000 

10240000 10251000 10254000 
Pan -- STREAM PROCEDURE "" DECLARED IN SEGMeNT 80 AT 09364000 

09386000 
PANA -'• PROCEDURE -- DECLARED |N SEGMENT 3 AT 06413000 -- FORWARD AT 03021000 

06186000 06417000 
PARAMTOr -- STREAM VARIABLE •- VALUE PARAMETER -- DECLARED IN SEGMENT 124 AT 17047300 

17047400 17049410 
PaRM "m BOOLEAN STREAM PROCEDURE " DECLARED IN SEGMENT 102 AT 14254200 

♦14254700* 14259080 
PARSE -- PROCEDURE -- DECLARED iN SEGMENT 3 AT 06313000 «- FORWARD AT 03014000 

06035000 06181000 06335000 
PARTIaLwORD — DEFINE -- DECLARED IN SEGMfNt 107 AT 15076130 

15089200 15092800 15095400 15095700 15096400 15184000 I5l85l00 15185600 15186100 15300700 15302300 

15302800 15305000 15307000 
PASSEORMAT -- PROCEDURE -- DECLARED IN SErMeNT 3 AT 05214000 

05227000 

PAY "•- Real array -- declared in segment i24 at 17069500 

17083000 17091510 17094300 17O944OO 17094650 17094700 17095500 17095550 17096000 17096300 17096450 
PCTR -- RfaL — DECLARFD IN segment 57 AT O7O380OO 

♦07040000* 07042000 *07094000* 07098000 
PDES •- DEFINE -• DECLARED IN SEGMENT 3 AT 01299020 

13746000 
PEN -• STREAM PROCEDURE "- DECLARED IN SErMeNT 80 AT 09370000 

09177000 09388000 

Percent -• label — declared in segment 24 at 02637000 — occurs at 02731000 

O2641OOO 02906000 
PERIOD -- define — DECLARED IN SEGMENT 3 AT 0i?64000 

06105000 O6IO61OO 06340000 0702^000 070?6000 15087600 I5l83300 15276l40 15300000 
PERMANENT *• BOOLEAN »•• VALUE PARAMETER .»• DECLARED IN SEGMENT 3 AT 05333000 

05331000 05345000 
PINFOO "- INTEGER — DECLARED IN SEGMENT 98 AT 14026000 
*14375000* 14471000 14483000 14489000 

PJ — Real -- declared in segment 3 at 01617000 

*13344000* 14073000 14085000 14117000 * 14 1 20000*«14323000* 14333300 14334000 14335000 14349000 14364000 
14374000 *14387000* 14411300 14415300 
PLUG "• PROcFDURf — DFCLaReD in segment 69 ftT 08020000 

08116000 08188000 082l3000 08218000 
PN -• INTfGER •- DECLARED IN SfrMeNT 97 AT 13750600 

*13751l00**i376lil0* 13770000 ♦13770600^ 13773000 
POinTfR -- INTEGER — DECLARED IN SEGMENT 9i AT 13219000 



*13???000* 13223000 13226000 13229000 ♦13240000* 13249000 13255000 13?57000 13263000 13279000 13281000 
13283500 13284000 132«6000 *13287000* 13290000 i c yjv ij^f*u».u u^oiwuu 

POL -- LarEL -- DECLARFD IM SEfiMENT 57 AT 07037000 -- OCCURS AT 07052000 

07059000 
POLISHER — PROCEDURE -- DECLARED IN SpGMrNT 3 aT 06060000 -• FORWARD AT 03009000 

06170000 07052000 07512000 07743000 
POLiShV -•• DEFINE -• DFCLaRfD IN SEGMENT 3 AT 01212100 

07052000 07511000 13338000 

PORS -- tNTEGFR -- VALUE PARAMETER -- DECLARED iN SEGMENT 3 AT 05325010 
05325460 05325470 05325480 

PORS -. STREAM VARIABLE -- VALUE PARAMETER " DECLARED IN SEGMENT 43 AT 05325040 

05325050 05325090 
POSiTtON — STREAM VARIABLE -- VALUE PaRAMETE" — DECLARED IN SEGMENT 3 AT 04270000 

04271000 04273000 
PRIMARY — PROCEDURE " DECLARED IN SEGMENT 3 AT 06126000 — FORWARD AT 03005000 

06016000 06018000 06023000 06035000 06049000 06147000 06i72000 O6I81OOO 06182000 07076000 
PRINT — STREAM PROCEDURE — DECLARED ?N SEGMENT 95 AT 13633000 

13643000 13653000 
PRINT •- STREAM PROCEDURE -- DECLARED iN SEGMENT 96 AT 13661000 

13673000 13675000 
PRfNTcARD — DEFINE — DECLARED IN SEGMENT 3 AT 02182500 

02195000 02195750 02214200 02226750 02421000 07025020 
PRINTDOLLARRIT -- DEFINE -- DECLARED IN SfGMENT 3 AT 01001060 

02??B750 02377000 
PRINTdOLLARTOG -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001350 

02228750 
PRINTER -• DEFINE -- OFCLaReD IN SEGMENT l29 AT 17091000 
PRINTxReFSTaTISTICS — PROCEDURE — DECLARED IN SEGMENT 124 AT 17053300 

17055200 17119200 
PRL -- DEFINE -- DECLARED IN SfgMeNT 3 AT O1666OOO 
PROAD -- INTEGER -- DECLARED IN SEGMENT 98 AT 14032000 

»14313000**14320000* 14461100 14'»76000 14489000 
PROADO -- REAL -- DECLARED IN SEGMENT 3 AT OI613OOO 

14037000 ♦14476000* 14602000 
PROCEDUREDEC -- LABEL -- DECLARED IN SeGMfNT 98 AT 14015000 — OCCURS AT 14270000 

140?0000 14137700 
PROCID " OCFINE •• DECLARED IN SEGMENT 3 AT 0li87000 

07399000 07404000 13278000 14284000 14292000 
PROCSTMT — PROCEDURE -- DECLARED IN SfGMfNT 3 aT 07391000 -- FORWARD AT 03029000 

06162000 07425000 07735000 
PROcV -• DEFINE " DECLARED IN SEQMeNT 3 aT 01293000 
PROGDrScBLDR — PROCEDURE -- DECLARED IN SEGMENT 3 AT 05245000 -- FORWARD AT 03047000 

05255000 07677000 13252500 13746000 l4461l00 
PROGRAM " PROCEDURE -- DECLARED IN SEGMENT 3 AT O9OO3OOO 

O9448OOO 16495200 
PROiNfO -- REAL -- DECLARED IN SEGMENT 3 aT OI6O8OOO 

07090000 13677?00 13677300 14304000 *1 43, 4000**i 4320000* I4388i00 14411200 14411300 I44i5200 l44i5300 

14457000 14461200 14469100 14470000 14483200 14463300 14483400 *14496000* 5080000 *'*"'' 14«i3300 

prt — Real array -- declared in segment 3 at 01343000 

♦05248000**05252000* 09414040 09415000 
PRTAO -• REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 13734000 

13731000 U732000 13746000 
PRTAOR — INTEGER — VALUE PARAMETER " DECLARED IN SEGMENT 3 AT 05247000 

05245000 05246000 *05247500* 05248000 05252000 
PRTBASE — DEFINE •- DFCLaRfD IN SEQMeNT 3 AT 01342000 

01343000 01724000 01725000 05424000 09039000 09414030 09415000 094l9i00 
PRTBIT -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001070 



08068000 15100600 I530/li00 



AT 01703000 
09414100 09419000 
AT 14030000 



02395000 05376100 

nFFINE — DFCLARCD IN SEGMENT 3 AT 01667000 
04018000 04023000 04033000 05316000 O611O3OO 
- INTEGER -- nECLARFD IN SEGMENT 3 aT 01703000 
*05349000* 07600440 *09039000» 14054000 
— INTEGER — DECUaRED IN SEGHpNT 3 
05347000 *05350000**09039000* 09388000 
'- rNTEGER -- DECUAREO IN SEGMENT 96 
♦14054000* 
-- nEElNE 
05376100 
PRTOP -- DEFINE — DECLARED IN SEGMENT 3 aT 01342000 

01343000 01724000 0i725000 05424000 
PRTSIZ — STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 80 AT 09370000 

09371000 09372000 
PTOG •» BOOLEAN -- HECLAREO IN SEGMENT 3 aT 01592000 



PRTE " 
PRTl • 
PRTIMaX 
PRTIO 
PRTOG 



— nECLARED IN SEGMENT 3 aT 0l00l360 



13370000 #14 332000** 14373000** 14388000* 

Segment 3 at 01001080 



AT 13215000 
14601000 
AT 01001090 



13310580 13341100 13343000 
PUNCHRIT — DEFINE — OECLARED IN 

02506000 05046000 
PUNcHTOr, -- DEFINE -- DECLARED |N SEGMENT 3 AT 01001370 

O5O48OOO 
PURGE -- PROCEDURE -- DECLARED IN SEGMENT 3 

13745000 13773000 14471000 14483OOO 
PURGEBIT — DEFINE -- DECLARED IN SEGMENT 3 

02508000 
PURGETOr -- DEFINE -• DECLARED IN SEGMENT 3 
PURPT — DEFINE — DECLARED IN SEGMENT 3 AT 

02726000 13285000 13309000 14O88OOO 
PUSHEF -• PROCEDURE -- DECLARED IN SEGMENT 

09393480 09396000 09402100 09406000 

PUSHER •- Real procedure -- declared in segment 8i at 09393050 

♦09393140**09393?00* 09393230 09424000 094?7500 
PUT *• PROCEDURE — DECLARED IN SEGMENT 3 AT 05008000 
05132000 06104400 07545000 076l0000 09i33900 

14166000 
I445120D 



FORWARD AT 03068000 



AT 01001360 
01626000 

I4ii6000 14446000 
81 AT 09393240 



14224000 
14457000 



14259150 
14470000 



09134100 
14269600 
15376400 



13304000 
14315000 
16138000 



IN SEfiMpNT 3 AT 13589000 " 
14217000 14221000 14319000 



14116000 14117000 

14415200 14430000 

16260000 17004710 
PUTNBuMP -- PROCEDURE -• DEcLaRFD 

09034000 14167000 14195000 

16446000 
PUTOGFThER -• PROCEDURE ^- DECLARED IN SErMeNT 86 AT 10234000 

10257000 10263900 10268000 10269000 lOp/OOOO 10273000 10274000 
PUTSEONO — STREAM PROCEDURE -- DECLARED |N SEGMENT 3 AT 0?005000 

02202060 02214250 02218000 02234750 02368000 02716000 

Parameter -• declared in segment 3 at 03057000 

- DECLARED IN SEGmEMT 38 AT O5O5OOOO 



13348000 
14334000 
16166000 



13365000 
14353000 
16167000 



13408000 
14388100 
16172000 



13766000 
144U200 
16257000 



Pi 
PI 



Pi 



P2 •■ 



02006000 

Real •• value 
stream procedure 

05096000 



forward at 03057000 
14331000 14403000 



0?904000 



16000600 16443000 16445000 



INTEGER 
I5O858OO 

15276210 

BOOLEAN 

13341000 



15276110 
*15307300* 



P2 
P3 



- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 15070000 
15069600 15098200 15099200 i5l02400 I5l84200 I5i86800 I5276i00 
15300600 15301700 15304300 15304400 *15304600* 15305000 15306700 

- OEr^ARED IN SEGMENT 3 AT 01588000 
13343000 13347000 *13385000* 13722000 *1 3723000**14 1 33000**14 I6l070**l43i8000**1432l000* 

STREAM PROCEDURE — DECLARED iN SEGMENT 38 AT 05059000 

05096000 

BOOLEAN *•• DECLARED IN SEGMENT 3 AT 0l589000 



15276160 15276190 



137?5000 ♦13726000** 14 133000** 14138000** 14 139000** 14 140000** 14141000* 

TREAM Variable -- value parameter -- declared in segment 2 at 005 



005?4000 00526000 



523000 



Q -- ALPHA •» 

02313000 

02389000 

02433000 
♦02499000* 

02598000 

02879000 

07086300 
Q .« TNTFr,FR - 
•01833000* 
•• REAU ARRAY 

04239000 
Q '■'" REAL •- 

*043tl050* 
•• rOOLFAN - 
1*05344750* 
Q •• REAL -- 

♦05425100* 
Q •- REFINE — 

08093000 
Q •- tNTFfiFR - 
*09395700* 
Q ••• STREAM VAR 

10257700 
QUOTE — LABEL 

02641000 
R — STREAM VAR 

02193750 
RANGE — BOOLeA 
♦05304000* 
RCA — DEFINE 
ROV -- DEFINE 
READACArD -- PR 

02130500 
READTaPF •- PRO 

02202250 
REALARRaYIO " 

07056000 
REALDfC — LABF 

14018000 
RCALIn — OEFIN 

07060000 
RCALPROrlD " n 
REALSTRPROCfD -- 

14?94000 
REALSUBTD — DE 

14164000 
REALV — DEFINE 

13389000 
RECOV — LABEL 

13251000 
RED -- STREAM V 

REED — Real pr 

♦08999175* 
REFCOUNT -- DEF 

17080100 
REFIDNOF — DEF 



DECLARED 

02314000 

02392000 

02462000 

02505000 

♦02590000* 

♦02958500* 

♦13282000^ 

" DECLARE 
♦01834000* 
-- NAME 
04241000 
DECLARED I 
♦0431 1070* 

- DECLARE 
♦05371000* 

DECLARED T 
♦05425200+ 

DECLARED 
08094000 

- DECLARE 
♦09405500* 
lABLE -- 



IN SEGMENT 3 AT 01316000 

♦02327000* 02343000 ♦02371000^ 02375000 02376000 

02394000 02396000 024o0000 02406000 02419100 

02467000 02469000 02471000 02473000 02477000 

02507000 02509000 025i5000 02519000 02521000 

♦0 2650000^^0 2686500^*0 2696000^*0 2698000^ 02700000 

02960500 02961000 02964000 02964500 02965000 

♦14441000* 16213000 16378500 

D IN SEfiMFNT 5 aT 01822000 



02378000 
02419200 
02479000 
02523000 



02382000 
02420000 
02481000 
02529000 



02384000 
02422000 
02495000 
02566000 



02386000 

*02424000^ 

02497000 

02576000 



♦0 2754000^^0 2822000^^02846000^^02865000^ 
02965500 05043000 05044000 07086200 



DECLARED IN SEGMpNT 3 AT 04231000 



Parameter - 

04243000 
N SEGMENT 35 AT 04311020 

04311090 
D IN SEGMENT 44 AT 05343000 
♦05374000* 05376100 
N SErMeNT 46 AT 05414100 

05425300 

IN SEGMENT 69 aT 08015000 

08185000 08200000 082l0000 08218000 

D IN Segment si at 09393010 
09447020 

VALUE PARAMETER — DECLARED IN SEGMENT 86 AT 10257100 



— DFCLARED in SEGMENT 24 aT 0263700O -- OCCURS AT 02690000 

IARLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 aT 02183500 

02185750 

N PROCEDURE -- DECLARED iN SEGMENT 3 AT 05297000 



FORWARD AT 02065000 



— DECLARED IM SEGMENT 108 aT 16008000 

•- DECLARED IN SEGMENT 3 AT O5668OOO 

OCEDURE •- DECLARED IN SEGmEnT 3 AT 02196750 - 

02238000 02731000 O9O35OO0 
CEDURE " DECLARED IN SEGMpNT 12 AT 02198500 

O22O85OO 02219500 
DEFINE -- DECLARED IN SEGMfNT 3 aT 01203000 

07057000 13310000 13389000 
L " DECLAREn IN SEGMENT 98 AT 14013000 -- OCCURS AT 14138000 

14135000 14136000 14136100 
E — DECLARED IN SEGMENT 3 AT 0li99000 

07069000 O8O38OOO 12035000 14138000 15276210 
EFINe -• • DECLARED iN SEGMENT 3 AT 01195000 
DEFINE -- DECLARED IN SEGMENT 3 AT 01191000 

FINE — DECLARED IN SEGMENT 3 AT OII84OOO 
14167000 

-- DECLARED IN SEGMENT 3 aT 01283000 
14161120 14164000 

— DECLARED IN SEGMENT 91 aT 13220000 •• OCCURS AT 13281000 
13256000 

ARiABLF -- Value parameter -- declared in segment 3 at 02011000 

OCEDURF -- declared in segment 3 AT 08999000 

08999425 09399000 
INE •• declared in SEGMENT 1?4 AT 17069300 



INE 



DECLARED IN SEGMENT 3 AT 01007425 



02001700 17080000 iJOffSOO I709i900 l7093fi50 17094050 17094100 17117000 I7li7300 
REFTYPE -- RFAL -- VALUF PARAMETFR "- OfCLARFO IN SEGMENT 3 AT 02001650 

02001640 0P001645 02001695 
RE60 -• OWN REAL — OFCUAREn IN SEGMENT 69 aT OflOlOOOO 

♦08093000* 08094000 *06111000* 08120000 ♦081 60000**081 70000* 08185000 08200000 *082l0000* 08218000 06231000 

ReI-ad -• Real — valuf PaRaMftfR -- heclaRed tN segment 3 at 13734000 

13731000 13732000 
RELAD — real -• DErLARFO !N SEGMENT 98 AT 14029000 

*14487000^ 14489000 

RELOP -- DEFINE -- nECLARER IN SEGMENT 3 AT 01277000 

05344500 14260000 14269260 16207000 

REMCOUNT -- OWN INTEGER -" DECLARED IN SEGMpNT 86 AT 10230000 

10245000 10247000 *1 0248000*^ 10249000*^1 0263000^ 

REMpMrfRSeQNO -- RFAL -- DECLARfO IN SfQMfNT 107 AT 15075550 

♦15085100* 15090600 15184400 I530i000 

Repeat — integer -• value parameter -- declared in segment 3 at oftouooo 

O4O1OOOO 04013000 04014000 

reStZf — strfam procedure -- declared in Segment 3 at 02056000 

RESTORESEQNUM -» STREAM PROCEDURE — DECLARED IN SEGMENT 19 AT 02320200 

02602800 
RESULT -- INTEGER — DECLARED IN SEGMENT 3 AT O1 386000 

02128500 02129000 *023?7000* 0236*200 +0237 1000^^02499000* 02500000 0?579000 02586000 ♦02590000* 02591000 
02598000 ♦02602700* ♦02647000* 02648000 *0 266 3000 ♦♦02666000^^02667000 ♦♦0 268 4000 **02694000**02698000*^0 2700000* 
*02744000^^02747000+^0 2749000^^02751 000+^0 2752000^^02754000^^02757000^^02788000^^0279 3000**02806000^^02809000^ 
♦028l2000^^028l6000**02820000**02846000**02889000**02fl90000*^02958500* 02959000 02959500 10265000 10272000 
10276000 

Result — stream vartable -- name paRametfR -- declared tn segment 9 at o?o8950o 

02092500 
RESUlTSWITCH — SWITCH LABEL -- DECLARED IN SEGmEnT 24 AT 02643000 

02648000 
RESULTV — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 9 AT 02089500 

02090500 02094000 
RETURnSTORE -- OWN REAL •- DECLARED IN SEGMENT 69 AT 08010000 

08087000 08090000 *08166000**OB168000**08l90000* 08193000 *08207000* 08215000 
RIGHT -- PROCEDURE — DECLARED IN SEGMENT 3 AT 08999450 — FORWARD AT 03039500 

07675500 08999800 14461300 14603000 
RINX -- RfaL — DECLARED IN SEGMENT 92 aT 13301000 

♦13302000* 13304000 13305000 
ROSE — Label — OErLARED IN SFrMeNT 24 AT 02639000 — OCCURS AT 02875000 

02879000 02881000 
ROUND — LABEL — DfCLaRED IN SEGMENT 65 aT 07594000 -- OCCURS AT 07645000 

07600000 07600900 07604000 
ROW — INTEGER -" DECLARED IN SEGMENT 44 aT 05344000 
RP — LABEL -- DECLARED IN SEGMENT 50 AT 06l370o0 
RRBl — BOOLEAN -- DECLARED IN SEGMENT 3 aT 01522000 
RRB2 -•■ BOOLEAN •^- DECLARED IN SEGMENT 3 aT 01525000 
RRl -- REAL -- DECLARED IN SEGMENT 2 AT 00507000 

*005?9000**00530000* 01557000 ♦14329000* 14373000 
RRIO — RpAL <"• DECLARED IN SEGMENT 2 AT 00507000 
RRll — RrAL -• DECLARED IN SEGMENT 2 AT 00507000 
♦00529000^ 00531000 00533000 00536000 

RR2 -• Real -- declared in segment 2 at oo5070oo 

♦OO53OOOO* 01557000 

RR3 — Real — declared in segment 2 at 00507000 

♦0053l000**00532000* 0l558000 

RR4 — Real -- declared in segment 2 at 00507000 

*00532000* 01558000 



RR5 •»■ REAL, "- DECLARED IN SESMfNT 2 AT 00507000 

*00S34000**00535000* 01560000 
RR6 -- RfaL " DECLARED IN SEGMENT 2 AT 00507000 

*00534000**00535000* 01560000 
RR7 — Real -- DECLARED IN SFGMfNT 2 AT 00507000 

•00534000**00535006* 0l560000 
RR8 — Real •- declared in segment 2 at 00507000 

*00537000**00538000<' 0l56l000 
RR9 .- REAL -- DECLARED IN SEGMENT 2 AT 00507000 

*00537000**0053BOOO* 01561000 *07599000* 07601000 
RSA •- DEFINE — DECLARED IN SfgMeNT 108 aT I6O18OOO 
RTBRKrT — DEFINE -- DECLARED IN SEGMENT 3 AT 01265000 

0527'»300 05276000 06141000 06316500 06320000 06322000 06422000 10264300 12126000 13395000 13402000 
14259120 14269680 15260000 15276010 15294000 
RTN — DEFINE — DECLARED IN SFGMENT 3 AT 01669000 

13740000 
RTPaRfN •• DEFINE — DFCLA^FD TN SEGMENT 3 AT 0i266000 

02976500 06115000 06175000 06416000 07067000 07096000 10264300 12039000 12126000 13756000 13761100 
13763000 14259120 14336000 16132000 16478000 
RTPARpN -• LaBfL — DECLARED IN SEGMENT 24 AT 0?639000 — OCCURS AT 02744000 

02642000 
RT5 — DEFINE "- DECLARED IN SeqMeNT 3 AT Ol670000 
07097000 13264000 13266000 

- DECLARED iN SEGMENT 8 AT 02001760 



S 

S 

S 

S 

S 

S 

S 
S 

S 

S 

s 
s 
s 

s 
s 
s 
$ 
s 



STREAM VARIABLE 

02001760 
STREAM VARIABLE 

0200J842 
STREAM VARIABLE 

O2OOI868 
STREAM VARIABLE 

02264500 
STREAM VARIABLE 



namf Parameter 

naMf Parameter 

name parameter 

NAME Parameter 

name parameter 



DECLARED IN SEGMENT 3 AT 02001838 

DECLARED IN SEGMENT 3 AT 02001858 

DECLARED IN SEGMENT 15 AT 02264400 

DECLARED IN SEGMENT 15 AT 02264700 



DECLARED IN SEGMENT 3 AT 03051001 



02264800 
BOOLEAN -• VALUE PARAMETER - 

03051000 

BOOLEAN -• VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 03067000 
REAL — VALUE PARAMETER " DECLARED IN SEGMENT 3 AT 04277500 

04280000 04280500 04281500 04282000 04283500 04284000 04285000 04285500 
REAL -- Value parameter -• declared TN segment 3 at 04291000 

04296000 04297000 

tNTegeR •- declarfd in Segment 36 at 04502000 

♦04548000* 04551000 

STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 42 AT 05309000 

05311000 
STREAM VARIABLE " NAME PARAMETER -- DECLARED IN SEGMENT 44 AT 05334100 

05334300 05334500 
REAL — DECLARED iN SEGMENT 45 AT O54O1OOO 
•05407000* 
STREAM VARIABLE -- DECLARED IN SEGMENT 46 aT 05416000 

05418000 05420000 
BOOLEAN — DECLARED IN SEGMENT 49 AT O6O63OOO 
♦06O74000**O6lQ3000# 
SWITCH LABEL -- DECLARED IN SEGMENT 5O AT 06132000 

O6138OOO 
SWITCH LABEL -- DECLARED IN SEGMENT 66 AT 07719000 

077?7000 
BOOLEAN -- NAME PARAMETER — DECLARED IN SEGMENT 69 AT 08027000 



♦080?9000* 
S •- BOOLFAN -- Value PARaMfTER -- DFCLaREO in segment 69 AT 08063000 
♦08065000* 08069000 

s — rOOLfan -- vaLuf paRaMfTeR -- dfcLaRfd in Segment 69 at 08072000 

08075000 08079000 
S — STREAM VARIABLE -- NaMf PARAMETER -- DECLARED IN SEGMENT 86 AT 10257100 

l0?57?00 i0?57800 
S -- REAL •- DECLARED IN SEGMENT 88 AT I200ft000 

* 12006000**1 2025000** l?0 30000** 120 38000** 12055000* 
S •- REAL •• DECLARfO IN SEGMENT 89 AT 121O2OOO 

♦12110000* 
S — STREAM VARIABLE -- NAMf PARAMETER -- DECLARED |N SEGMENT 89 AT 12103000 

12104000 
S — STREAM VARIABLE -- NaMf PARAMETER -- DECLARED iN SEGMENT 96 AT 13673100 

13673200 13673350 
S •* STREAM VARIABLE •• NaMf PARAMETER — DECLARED IN SEGMENT 102 AT 14254200 

14254300 
S — REAL — VALUE PARAMETER -- DECLARED TN SfGMENT 108 AT 16029000 

I6O12OOO 
S — STREAM VARIABLE -- NAME PARAMETER -« DECLARED IN SEGMENT 124 AT 17047200 

17047700 
SAF -- BOOLEAN -- DECLARED IN SEGMENT 3 AT 01300200 

13677400 ♦14299000* 
SAN •- DEFINE -- DECLARED IN SEGMENT 3 AT 0l677l00 
SAV — BOOLEAN — VaLUF PARaMETER -" DECLARED IN SEGMENT 3 AT 05247000 

05245000 05246000 05248000 
SAVECODF -• BOOLEAN -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 13632000 

13651000 1365H00 136S3000 
SAVECODF — STREAM VARIABLE — VALUE PARAMETER -- DECLARED IN SEGMENT 95 AT 13633000 

13639000 
SAVEINFO -- INTEGER — DECLARED IN SEGMENT 94 AT 13378000 

♦13394000* 13396000 ♦! 33*7000^^1 340 lOOO^^l 3405000* 134O8OOO 
SAVEINFO -- REAL -- DECLARED IN SEGMENT 103 AT 14269060 

*14269260* 14269600 14269620 
SaVEINX -- INTEGER -- DECLARED IN SEGMENT 20 AT 02324000 

♦02331000^*02342000* 02352000 
SAVEIT -• Label — OECLARED in segment 103 at 14269100 -- OCCURS AT 14269590 

14269450 
SAVEL — REAL •- DErLARED IN SFCMfNT 3 AT 01623000 

13606000 ♦13628000^ 14055000 *14609000* 
SAVELO •- INTEGER — DECLARED iN SEGMENT 98 AT 14030000 

♦14055000* 14609000 
SAVeRR — LABEL — DECLARED IN SEGMENT 96 AT 14013000 -- OCCURS AT 14136000 

140t8000 
SAVETfMF — INTEGER -- DECLARED IN SEGMENT 2 AT 00503000 
SAVETiMfS •- PROCEDURE "- DECLARED iN SEGMENT li9 AT 17002015 

17002525 17091180 I7ll79i0 
SAVEV — DEFINE -- DECLARED IN SEGMENT 3 AT 01281000 

13726000 14292000 l42fB0OO 14299000 
SAVINfO — REAL ARRAY -- DECLARED IN SEGMpNT 8l AT 09392300 

♦09395100* 09396000 09402100 ^094 I4070^^094l 4l lO+ 09418000 ♦094l9000^ 094l9i00 09424000 09433000 
SaVL -• RfaL -- DECLARED IN SegMFNT 109 AT I603l000 

♦16032000* 16034000 
SAVL — RfaL -- DECLARED iN SEGMENT 111 AT 16087000 

♦16088000* 16096000 
SAVNDX -- INTEGER -- DECLARED IN SEGMENT 81 AT 09393000 

♦09397000^ 09402l00 ♦09403000* 09413000 ^094 i4l20^+09420000* 09426000 09436000 



SB -• REAL •- OFClAREn IN SFGMpNT 103 aT 14269060 
*14269446**1'!j2695?0* 14269560 14?69600 

SBiT — ROOLrAf^ -• valuf PaRaMftfR — DrCLARrn in Segment 3 at 070360oo 

07035000 07046000 
SBITF -• OEFlNr -- DECLARED IN SEGMENT 3 AT 01154?00 

05273300 05274i00 063t5300 06316300 14269446 14269600 
SBV •• DEFINE — DECLARED IN SEGMENT 3 AT 0i244000 

16197000 16415000 
SCAN -- STREAM PROCEDURE " DECLARED IN SEGMENT 9 AT 02089500 

02127000 O21285OO 
SCAN «■- STREAM PROCEDURE -- DECLARED IN SfGMENT 86 AT 10257100 

10264800 
SCANAGAtN — LABEL -- DECLARED IN SEGMENT 24 AT 02639000 •- OCCURS AT 02646000 

02650000 02686500 O26»6000 0?728000 02737000 02890000 
SCaNNfR -- PROCEDURE -- DFCLARfD IN SEGMENT 3 AT 02066000 

02137000 02327000 0?371000 02499000 02590000 0?647000 02663000 O2666OOO 02684000 0^694000 02698000 

02744000 02747000 02749000 02^51000 02752000 02754000 02788000 02793000 02806000 02809000 O2812OOO 

02816000 02820000 02889000 02890000 02958500 
SCATTfRfLBAT — PROCEnURF -- OFCLaREO TN SEGMENT 3 AT 13197000 •» FORWARD AT 03035000 

07395000 13208000 13327000 13^67000 14206000 14305000 
SCI •• DEEINE -- DECLARED IN SfrMeNT 3 AT Ol677050 
SCLASS -• REAL -- DECLARED iN SEGMENT 57 aT O7O38OOO 

*07044000**07046000* O7O48OOO 07056000 07060000 ♦07079000* 07088000 
SCOUNt -- INTFGFR -- DECLARED fN SEGMENT l9 AT 02365100 

♦02366200* 02602700 
SCRAM •- tNTfgfR " DECLARED IN SEGMENT 3 AT O13O1OOO 

*02865000**09385000* 09386000 12110000 *12122000* 13308000 13361000 13362000 13755000 
SCS •- DEFINE — DECLARED IN SEGMENT 3 AT 0i677i50 
SCV — DEFINE -- DECLARED IN SEGMENT 3 AT 0i246000 

16206000 16337000 
SEARCH — ALPHA PROCEDURE -- DECLARED IN SEGMENT 3 AT 04231000 
*04?43000* 04244000 04280000 04280500 04283500 04284000 
SEC •• DEFINE — DECLARED IN SEGMENT 108 aT 16022000 

16342000 
SECOND -• INTEGER -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 05271000 

05270000 *05273400**05274200**0528i000* 05282000 
SECOND -- INTEGER -- DECLARED IN SEGMENT 54 AT 06314000 

*06315400**06316400**06320400**06325000* 063?8000 06332000 

SEfONn — intfge« " dfcLa^fd in Segment 55 at 06339000 

06341000 06344000 
SECRET " DEFINE — DECLARED IN SEGMENT 3 AT 01628000 

13331000 14333000 14345000 
SED — DEFINE — DECLARED IN SEGMENT 106 aT I44i9000 
SED -• DEFINE -- DECLARED IN SEGMENT 108 AT I60i7000 
SE6 -- STREAM VARIABLE -- VaLUe PARAMETER -- DECLARED IN SEGMENT 124 AT 17047200 

17047400 
SEGMENT -- PROCEDURE -- DECLARED iN SEGMENT 3 AT 13657000 -- FORWARD AT 03042000 

07676500 13681000 14461200 146O2OOO 
SE6MENTSTART — PROCEDURE -- DECLARED IN SEGMENT 3 AT 13632000 -- FORWARD AT 03041000 

07661500 13655000 14298000 14387000 
SEGNOf — DEFINE -- DECLARED IN SEGMENT 3 AT 01007405 

13310450 17094800 
SEgSBtT •- DEFINE -- DECLARED IN SEGMENT 3 AT O1OO1IOO 

02470000 13652000 13674000 
SEfiSIZEMAX — INTEGER " DECLARED IN SEGMfNT 3 AT 01687000 

♦13678000* 
SE6STO6 -- DEFINE — DECLARED IN SEGMENT 3 AT 0i00l390 



136'52000 13674000 
SEMICOLON -• DFFINF "- DFCLaRED IN SEGMENT 3 AT 0J230000 

05109000 07012000 O7O32OOO 07646*90 076*6535 l02644l0 13766000 14O62OOO 14063000 14165000 14269840 

14325000 14338000 14357000 14519000 I613IOOO 
SeO •- STREAM VARIABLE -- NaME PARAMETER "- DrCLARED IN SEGMENT 3 AT 01756000 
SEO "- STREAM VARTABLf -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 04130000 

04132000 
SeQ mm STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 57 AT O7O381OO 

07018300 07038600 
SEQ — STREAM VARIABLE -- NaME PARAMETER -- DECLARED IN SEGMENT 80 AT 09378000 

09382000 
SEQBIT — DEFINE — DECLARED IN SEGMENT 3 AT OlOOlllO 

02191500 02234800 023*3000 
SEOCOmPaRE — PROCEDURE -- DECLARED IN SEGMENT 12 AT 02202500 

02?09750 02224500 
SEOERRBtT *- DEFINE -- DECLARED IN SEGMENT 3 AT O1OO1120 

025?0000 
SEQERRTOG — DEFINE -- DECLARED IN SEGMENT 3 AT 0i00l420 
SEQNO -- REAL -• VAt.UE PARAMETER — DECLARED IN SEGMENT 3 AT 02001650 

02001640 02001645 02001695 
SEQNO -• STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 124 AT 17047200 

17047400 17O5O4OO 
SEQNO -- STREAM VARIABLE -- VALUE PARAMETER -" DECLARED IN SEGMENT 124 AT 17051400 

17051500 17052100 
SEONOf — DEFINE — DECLARED IN SEGMENT 3 AT 01007430 

17092600 17093400 17094800 17095750 17095900 17117702 17117708 
SECTOR -- DEFINE — DECLARED IN SEGMENT 3 AT 01001400 

02191500 02234800 
SEQUENCEERROR — STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 01742100 

01742110 02226750 
SEOXEOTOG — BOOLEAN -- DECLARED IN SEGMENT 3 AT 0l00i560 

♦02525000* 
SES -- DEFINE -- DECLARED IN SEGMENT 106 aT 14419000 
SET — STREAM PROCEDURE -- DECLARED IN SERMpNT 89 AT 12103000 

12117000 
SETTING -- BOOLEAN -- DECLARED IN SEGMENT 3 AT 01000802 

♦02327000* 02336000 02352000 02356000 02427000 
SeTUPhEADINt, •- STREAM PROCEDURE -- DECLARED IN SEGMENT 124 AT 17047200 

17051200 17094700 
SGAVL -• INTEGER -- DECLARED IN SEGMENT 3 AT 01369000 
SGNO -- INTEGER -•■ DECLARED IN SEGMENT 3 aT 01370000 

13310450 14054000 
S6N00 •• INTEGER -^- DECLARED IN SEGMENT 98 AT I4O3OOOO 

*14054000* 
SIGNA — OWN BOOLEAN -- DECLARED IN SEGMENT 69 AT 08012000 

♦O8O56OOO* 08065000 08098000 O8IO8OOO O813OOOO 08179000 O8181OOO 08189000 08212000 08217000 #08227000* 
SI6NB -- OWN BOOLEAN — DECLARED IN SEGMENT 69 aT 08012000 

06050000 08112000 ♦08121000* 08126000 08183000 08196000 *08203000* 08214000 
SifiNc -- OWN rOOLfaN -• OECLaRfD IN SeqMfNT 69 aT 06012000 

O8O44OOO ♦08112000* 08185000 08197000 *08202000* 08219000 *08220000* 
SIMPARITH — PROcEDURf -- DECLARED iN SEGMENT 3 AT 06032000 -- FORWARD AT 03003000 

06006000 07085000 I50f7000 15186400 15303500 
SIMPGO •• BOOLEAN PROCEDURE -• DECLARED IN SEGMENT 3 AT 07548000 -- FORWARD AT 03026000 

♦07555000* 07557000 07564000 07570000 07581000 07646520 
SIMPI -«• BOOLEAN PROCEDURE -- DECLARED IN SEGMENT 69 aT 08052000 

♦08061000* 08176000 08211000 08224000 
SIMPLE -■ BOOLEAN PROCEDURE -- DECLARED IN SEGMfNT 69 AT 08027000 

♦08033000**08038000* 08039000 08112000 O8I8IOOO 08183000 08185000 



09389500 13653500 13676000 17094250 



SiMPLrB — OFFlNfr -- dFCLaRfO IN SEGMcNT 6? AT 08014000 

08044000 OeilPOOO 08?20000 
SiMPLfV -- OFFINf -• DFCLaRfD ?N segment 69 AT 08015000 

08074000 08099000 06211000 08224000 08227000 
SiNGLBIT -- DEFINE -- nECLASEO iN SEGMfNT 3 AT 01001130 

02195000 02195750 02196590 02214?00 022?8750 0?42i000 02522000 0fli50000 04278500 05039600 05046000 

05097500 05099000 05325490 06123000 07025020 07086500 09384500 09387000 09389500 13653500 13676000 

17094250 17094500 
SiNGLTOr, -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001430 

02195000 02195750 02196590 02214200 02228750 02421000 04150000 04278500 05039600 05046000 05097500 

05099000 05325490 06123000 07025020 07086500 09384500 09387000 

17094500 
S!V -- DFFINe -- DFtLaRED in SfrMeNT 3 AT 01236000 

I63l9000 16320000 16328000 16334000 

Size •- integer -- value parameter -- declared in segment 3 at 03042000 
Size — integer — value parameter -- declared in segment 3 at 05247000 

05945000 05246000 05?48500 05249000 05250000 0525?000 05254000 
SIZE — INTEGER — VALUE PARAMETER ••- DECLARED IN SEGMENT 3 AT 07647000 

07663000 07675500 07676500 07677000 
SIZE -• INTEGER -- VALUE PARAMETER -■ DECLARED IN SEGMENT 3 AT 13657000 

13675000 13677400 13678000 
SIZE "- STREAM VARIABLE -- VAUUE PARAMETER "- DECUARED IN SEGMENT 96 AT 13661000 

13670000 
SKaN — DEFINE — DECLARED IN SEGMENT 3 AT 02277000 

02327000 02371000 02499000 02590000 02958500 
SKaNAGAiN -- LABEL -- DECLARED IN SEGMENT 19 AT 02360000 -■ OCCURS AT 02370000 

02378000 02383000 02385000 02389000 02465000 02468000 02478000 0?503000 02527000 02577250 02584000 

02595000 02599000 
SKBIT — • STREAM VARIArLF "- VALUE PaRAMETfR -- DECLARED IN SEGMENT 67 AT 07653500 

07655000 
SKIP — Label — DEtLaRED in segment 129 aT 17091100 •• occurs at 17096850 

17094150 
SKfPcOUNT — INTEGER "- DECLARED iN SEGMENT 87 aT 10241000 

♦10247000* 10253000 10254000 10256000 
SKiPlT — DEFINE " DECLARED IN SEGMENT 27 AT 02974000 

02974500 02978500 
SKtPS •- PROCEDURE -- DECLARED iN SEGMENT 108 AT 16403000 

16419000 16492000 
SKtPV -• DEFINE •" DECLARED IN SEGMENT 3 aT 01241000 
SKP -• STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02001838 

02001842 
SkP — STREAM VARIABLE "•• ValUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02001858 

02001890 
SKP — STREAM VARIABLE -■ VaLUe PARAMETER -- DECLARED IN SEGMENT 3 AT 02041000 

02043000 
SKSC •- LABEL — DECLAREO IN SEGMENT 86 AT 10259000 -- OCCURS AT 10263500 

10283000 *13755500* 13767000 13^68000 *13769000* 
SND •- DEFINE -- DECLARED IN SfGMeNT 3 aT 0i67l000 

15099800 15196900 15276110 15304400 
SOP -• BOOLEAN — Value parameter -^ declared in SEGMfNT 3 at 14003000 

14001000 14002000 14O36OOO 14506000 14600000 
SORCE ■»• stream variable -- NAME PARAMETER " DECLARED IN SEGMENT 3 AT 02045000 

02048000 
SORTNrST — PROCEDURE " DECLARED IN SEGMpNT 3 aT 05412000 

14601000 
SORTPRT -- REAL ARRAY -~ DECLARED IN SeGMeNT 3 aT 01725000 

♦05425100* 05425400 05447000 05448000 *05452000**05455000**05459000* 



SPACETTnOWN •• DEFINE 

14461500 144935OO 
SPCUMON -• BOOLEAN -- DECUARFO IN 

15306100 

DECLARED 
02795000 
DECLARED 



-- DFCLARrn IN SFGMrNT 98 AT 14023100 

AT 15076300 



SEGMENT 107 
15306600 

IN SeGMfNT 3 AT 01003000 
02961500 02963000 O7O31OOO 
IN SEGMENT 24 aT 02637000 -- 



♦09198000* 
OCCURS AT 



DECLARED IN SEGMENT 24 AT 02641000 



SEGMENT 3 AT 01593000 
13310500 13328000 13341200 
14160000 14161070 14187000 



13385000 
14205000 



02651000 



I36O1OOO 
14275000 



13621000 
14287000 



13719000 1 
4<14364000**1 



4070000 
4368000>K 



IN SfGMfNt 
SEGMENT 19 



3 AT 01698000 
AT 02365100 



♦15305000* 153O57OO 

SPECIAL — REAL ARRAY - 

02655000 02666000 

specialchar " Label -- 

02643000 
SPECIaLSWITCH -- SWITCH LABEL 

02659000 
SPECTOG — BOOLEAN — DECLARED IN 
♦05034000* I3305i00 I33l0300 
*141?2000» 14142000 14149000 
14377000 14507000 
SPRT — BOOLEAN aRRAY •• DECLARED 
SReSULT •• INTEGER "•• DECLARED IN 

♦02366200* 02602700 
SSKiP — STREAM VaRIARLf — VALUE 

O2O46OOO 02049000 
SSP — DEFINE -- DECLARED IN SEGMENT 
05226000 

sss -• Real -- declared in segment 49 

♦06068500* 06125000 

STaCKcT — REAL -- DECLARED IN SEGMENT 3 aT 0l5660l0 

04527000 ♦060541 50**061 58000 ♦*06 172000**06 174500**061 79500 **06296500**06299500*^06305000**06 332500**0 

♦07 i00500^^07726990^*l 41 25500^* 15089000** 15096400*^15097800+* 15 186 lOO** 15 187000*+15234500^^1 5276 115^*1 
♦15304500**15306900^ 

STACKcTR — Real •• DECLARED IN SEGMENT 3 AT 01683000 

05370000 ♦0537i000^ 06068500 *06125000* 14O58OOO 14477000 *14478000* 144812OO *14493000* 14506000 *l46l0000* 
STaCKcTRO — RfAL — DECLARED IN SEGMENT 98 AT 14029000 
♦14058000**14477000* 14493000 I4610OOO 



Parameter — declared 

3 AT 01672000 
AT 06063500 



IN SEGMENT 3 AT 02045000 



7041200* 
5278000* 



stacKhEad — Real aRRay 

♦027?4000« 02865000 
♦13308000* 13361000 

STaRS — strfam vaRiarLf 



17051500 

REAL 
O8O82OOO 

— LABEL 
14138000 
14269980 

•• LABEL 

— LABEL 
14259090 

-- LABEL 

— LABEL 

— LABEL 
16485000 

STaRTiNTRSc -- 
STARTl " LABEL 

143^5000 
START? — LABEL 
STATS — SWITCH 

17054500 
STD •• DEFINE 

08090000 



START -• 



START 



START 
START 

START 
START 
START 



17052000 

■- VALUE 
O8O830OO 



• DECLARED IN SFgMfNT 3 AT OmOOOO 

05090000 05233000 ♦05234000* 09134100 *09 i 34200**09405500* 09447030 
13768000 *13769000**14448000* 16443000 
PaRaMfTfR — DECLARED iN SeGMeNT 124 AT 17051400 



♦13362000* 
-- VaLUF 
17052400 

PARAMETER 
08086000 



09447040 ♦13286000^ 



-- DECLARED |N SEGMENT 70 AT 08084000 



-- DECLARED IN SEGMENT 98 AT I40i7000 
14139000 14140000 14141000 14156000 
14379000 14504000 14521000 
" DECLARED IN SEGMENT lOl AT 

SEGMENT 



-- DECLARED IN 



102 AT 



14202000 
14254050 



— OCCURS AT 14063000 

14160000 14162000 14170000 14199000 14253000 14269000 

— OCCURS AT 14269000 



DECLARED 
DECLARED 
DECLARED 



IN 
IN 
IN 



SEGMENT 
SEGMENT 
SEGMENT 



104 
105 
108 



AT 
AT 
AT 



14272000 
14384000 
16fl75000 



OCCURS 
OCCURS 
OCCURS 



AT 
AT 
AT 



14373000 
14503000 
16477000 



STfPI 



DEFINE •- DECLARED IN SeqMfNT 73 AT 09024000 

" DECLARED IN SEGMENT IO4 AT 14272000 -. OCCURS AT 14375000 
14364000 

— DECLARED IN SEGMENT 1O4 AT 14273000 -- OCCURS AT 14376000 
FORMAT — DECLARED IN SEGMENT 126 AT 17053500 
17054800 17055020 
— DECLARED iN SEGMENT 3 AT Ol 673000 
12038000 13230000 15099400 15186800 15276110 15304400 



tNTeGfR PROCEDURE "- DECLARED JN SeGMeNT 3 AT 05003000 



05108000 
06069000 
063?1000 
07600100 
07673000 
13351000 
H220000 
1*393000 
16160000 
16324000 



05273J00 
06071000 
06322000 
07600600 
07727070 
13392000 
H223000 
1<»396000 
16197000 
16326000 



stfPtt 



-• PROcFDURC •• 
05344690 06015000 



06147000 
06345000 
07«85000 
07584000 
08142000 
12036000 
13772000 
14314000 
15276070 
16494000 
"• OFFINf 
08103000 



06166000 
06410000 
07487000 
07604100 
08155000 
12039000 
14166000 
14359000 
15300/100 



05273900 
06015000 
06415000 
07604110 
07767000 
13395000 
1A259110 
14467000 
16206000 
16340000 

dfcLaReo [ 

060J5000 
06168000 
06411000 
074f3000 
07646450 
06161000 
12045000 
14193000 
14403000 
15302200 



05274300 
06094000 
06421000 
07604140 
07768100 
13402000 
14268000 
15085600 
16207000 
16367000 

N SFGMfNt 
06049000 
06172000 
06416000 
07495000 
07727020 
08175000 
12054000 
14259000 
14472000 
15303300 



05276000 
06106100 

07018000 
07645000 
07994000 
13404000 
14269320 
I5lfl3l00 
16208000 
16368000 

3 AT 0500 
06102000 
06174000 
06417000 
07505000 
07727090 
08192000 
13327000 
14259070 
15088400 
15376800 



05277000 
06199000 
07041000 
07646456 
08029000 
13753000 
14269480 
15253000 
16217000 
16372000 
2000 

06104700 
06177000 
06422000 
07516500 
07996000 
08231000 
13406000 
14259140 
15092000 
16130000 



05278000 
06316100 
07437000 
07646475 
08178000 
13754000 
14269500 
15260000 
16220000 
16384000 

06106200 
06161000 
06423000 
07518000 
08031000 
12013000 
13409000 
14269220 
15096600 
16176000 



05344500 
06316500 
07505000 
07646603 
09252000 
13756000 
14338000 
15276050 
16252000 
16406000 

06111000 
06201000 
07010000 
07552000 
08039000 
12017000 
13753100 
14269380 
15183700 
16234000 



05344520 
06318000 
07552000 
07662000 
12007000 
13766000 
14341000 
15276160 
16253000 
16434000 

06117000 
06208000 
07072000 
07569000 
08120000 
12025000 
13757000 
14269640 
15185000 
16376000 



05344610 
06319000 
07567000 
07664000 
12010000 
13771000 
14345000 
15300000 
16316000 
16435000 

06140000 
06303000 
07100000 
07573000 
08131000 
12030000 
13758000 
14269705 
15186200 
16408000 



05344670 
06320000 
07597500 
07666500 
12013000 
14126000 
14356000 
16125000 
16319000 



06143000 
06331000 
07407000 
07580000 
06135000 
12034000 
13761100 
14269640 
15274000 
16412000 



stfpv -" offinf -- ofclaRfd 

08182000 
STLABiD •- DEFINE •- OFCLAReD iN 

14403000 14447000 16OOO3OO 
STMT -• PROCEDURE -- DFCLARED IN 

O51O8OOO 07011000 07485000 

09275000 14167000 14488000 
STMTSTART — OWN RFAL -- DECLARED 

08157000 ♦08169000**08191000* 

STOP — Label -- detLaRfo in sfgm 

14464000 
STOPOfFtNe " BOOLEAN " DECLARED 
02893000 *02911000**02926000* 
* 1 4258000** 1 4259060** 1 4 2S9 100* 

stopentry -- boolfan -- declaRfr 

13351000 *i4l88000**i4l98000* 
♦14402 00 0**14404000* 
STOPGSP »• boolean "w declared IN 

13343000 13345000 *1,4164500* 

♦14269940** 14318500** 143 19500* 

STOPPfR — REAL •- VALUE PARAMFTE 

STOPPfR — REAL — VALUE PARAMfTE 

I32l5000 13216000 13223000 
STOPPfR -- REAL -- VALUE PARAMfTE 

13731000 13732000 137*5000 
STORE -• PROcfOURE •- DFCLARED ?N 

O6O7OOOO 08130000 06135000 
STORE -- REAL ••- VAlUF 

08082000 08083000 
STOREFIX -- INTEGER — 

♦06093000* 08157000 
STreAmERR — LABEL - 

14021000 
STReAMSTMT — PROCEDURE " DECLaR 

O7O11OOO 13771000 14415400 



IN SEGMENT 3 aT 01255000 



SEGMENT 3 AT 0il78000 

16253000 16437000 16443000 1648IOOO 
SEGMENT 3 AT 07711000 -- FORWARD AT 03027000 

07495000 07574000 07577000 07565100 07646530 07771000 08163000 06201000 

14515000 

IN SEGMfNT 69 AT 06010000 

O8I93OOO *0e206000* 06221000 
ENT 105 aT 14384000 -- OCCURS AT 14491000 

IN SegMfNT 3 AT 01597000 

♦070l7000^*07646602**10263300**l028l000**l 21 11000**1 3327000**14 130000**14 192000* 
* 14 259 130** 14269200** 14402000** 1440 3000* 

IN Segment 3 at 01594000 

♦14205000**1 4251000** 14255000** 14269000**1 4269 120**1 4269940**1 431 8000**1 4 321000* 



AT 01694000 

*1 41 88000** 141 98000** 14205000*^ 1425 1000+*14255000**1 4269000**1 4269120^ 
*14404000* 

LARED IN SEGMENT 3 AT 03066000 

LARED IN SEGMENT 3 AT 13217000 



Segment 3 

♦14166000* 
*14402000* 
R -- DFC 
R — DFC 
13291000 

R — dpclaReo in Segment 3 at 13734000 



PARAMETER 
080S9000 

DECLARED I 
06171000 
DECLARED IN 



Segment 69 at O6O63000 

06136000 O6216OOO 

-- DECLARED jN SEGMENT 70 AT 08084000 

N SEGMENT 70 Al 08091000 

SEGMENT 98 AT 14017000 — OCCURS AT 14137000 

ED IN SEGMENT 3 AT 16001000 -- FORWARD AT 03040000 
16130000 16229000 16235000 16495000 



00 



STREAMTOG — BOOLFAN -- DFCLARfD IN SEflMENT 3 AT Ol4l7'O00 

02692000 02692500 0^279500 O^pBiOOO 04283000 0^284500 05344400 OZOnOOO ♦07'66 1 000**07676000** 121 1° lOO* 
*12127l00* 13310580 13343000 ♦! 3^7 i000«*l 3773000* H077000 14082000 ♦14280000* 14298000 I43l8500 14324000 

14361000 14377000 14385000 *14461000» 
STRfaMV — orriNc — HFCI-ARfD in SEfiMfNl 3 aT 01297000 

07745000 07768)00 14278000 
STRFAMWOROS " PROCEODRF -- DECLARED IN SfGMENT 3 AT 05230000 

05236000 13771000 13773000 14324000 14460000 
STRMPROrSTMr -- PROCFnURF -- DFCLaRED TN SFRMENt 3 AT 07426000 •- FORWARD AT 03030000 

06160000 07446000 07737000 
STRNGrON -- DEFINE -- DECUARED JN SeGMfNT 3 AT 01211000 

02705100 07075000 07604ii0 07665500 07668000 08032000 16210000 163840 
STRNgxT •• UABFt — DFfLAREn IN SEGMENT 24 AT 0?638000 -- OCCURS AT 02701000 
STRPRoCtD — OEEtNE -- DECUaREO IN SEGMENT 3 AT 0ii89000 

07431000 14281000 
STUFF m" FILE -• DECLARED IN SEGMENT 3 AT Gi56l600 

O535O3OO 09281000 13677500 
STUFF •• STREAM PROCEDURE -- DECLARED IN SEGMENT U AT 02196530 

02196580 
STUFFBIT -- DEFINE -- DECLARED IN SEGMENT 3 AT 01001140 

02516000 O535O1OO 13677100 
STUFFF •- PROCEDURE ^^ DECLARED IN SEGMENT 3 AT 05199000 

05203000 
STUFFTOr — DEFINE •"• DECLARED jN SEGMENT 3 AT 01001440 

O535O1OO I3677i00 
Tl •- STREAM VARtABLF -- VALUE PaRaMeTFR -• DECLARED IN SEGMENT 9 AT 02090000 

O2O9O5OO *02120000* 02124500 *02126000* 
,T? -- STREAM VARIABLE "• VaLUe PARAMETER •- DECLARED IN SEGMENT 9 AT 02090000 

02090500 ♦02121000* 02121500 
SUB -- DEFINE — DECLARED IN SEGMENT 3 AT 01674000 

O6O16OOO 08030000 080ft4000 08214000 I20i5000 16329000 
SUBC -- DEFINE -- DECLARED IN SEGMENT 3 AT 13213000 
SUBOEC -- Label — declared in segment 98 at 14014000 -- OCCURS AT 14163000 

14019000 
SUBHAND •- PROCEDURE " DECLARED iN SEGMENT 3 AT 06194000 — FORWARD AT O3OIIOOO 

06156000 06209000 07733000 
SUBID •- DEFINE -- DECLARED IN SEGMENT 3 AT 01185000 

06198000 14164000 
SUBLEVEL — INTEGER — DECLARED IN SEGMENT 3 AT 01402000 

05117000 *lfl477000##14492000* 
SUBOP -- DEFINE — DECLARED IN SEGMENT 3 aT 01556500 

05344570 05344710 
SUBV — DEFINE " DECLARED IN SEGMENT 3 AT 01286000 
SUPeRfRmTID — DEFINE -- DECLARED IN SeGMfNT 3 AT 01183000 

05221000 05224000 
SVARMONFILE — DEFINE " DECLARED IN SEGMfNT 3 AT 01529000 
SH •• SWITCH LABEL — DECLARED iN SeGMeNT 10 AT 02191250 

02194500 
SW -. SWITCH LABEL -- DECLARED IN SEGMENT 20 AT 02326000 

023?8000 
SWITChDFC — LABEL -- DECLARED IN SEGMENT 98 AT 14015000 •- OCCURS AT 14200000 

I4O2OOOO l'i252000 
SWlTCHlO — DEFINE -- DECLARED IN SEGMENT 3 AT 01186000 

07507000 14207000 
SWITCHIT 



S 
ST? 



wrsQruuu i«»zuroi»o 

-- PROCEDURE -- DECLARED IN SeGMfNT 19 AT 02321000 
02359000 02377000 02388000 02393000 02395000 02397000 02402000 02415000 024i9i00 02419200 0242U00 
02425000 02435000 02470000 02472000 02474000 02480000 02490000 02496000 02506000 02508000 02511000 



02516000 02520000 02522000 02531000 02567000 02600000 

switchv -- ornNE: -- dfcIaRfd in segment 3 at 01292000 

SWITMONfILE •" DEFINE -- DECLARED IN SfGMfNt 3 f^J 01539000 

SYLUARLf -- RFAI " VALUE PARAMETER "- OECLARfD IN SEGMENT 3 AT 03019000 

syluabLf -- REAL — Value parameter •- declared in segment 3 at 03028000 

SYLLABLE — STREAM VARIABLE •- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 0ft?70000 

04271000 04274000 
SYMBOL — STREAM VARtaBLF -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 02183500 

02183750 02185250 
T -- REAL — DECLARfD IN SEGMENT 3 AT 01564000 

♦02655000* 02658000 ♦02666000**02692000* 02695000 *0270 l000**02705l00**0272l000* 02/22000 *02724000* 02726000 
♦02755000**02798o00**028i3000**02823000* 02824000 «02826000* 02627000 02842000 *02848000*«02850000**0285l000* 
*02865000* 02875000 02876000 *02877000* 02677010 *02877020«*02878000#*0?882000* 02882200 O2886OOO ♦02896000* 
02900000 02901000 02910000 02910200 029l0400 05096000 ♦05233000* 05234000 05236000 *08057000* 06058000 
O8O590OO 08061000 ♦08069000* 06070000 *09282600*^0938e000^ 09389000 

— REAL " VALUE PARAMETER -- DECLARED iN SfGMeNT 3 AT 01717900 

— STREAM VARIABLE '" DECLARED IN SEGMENT 3 AT 02057000 
O2O58OOO 0?059000 

— REAL •• DECLARED IN SEGMENT 14 AT 02?49000 
*0225l000**02257000**02259000* 02260000 

— rOOLfaN -- DECLARED iN SEGMENT 20 AT 02323000 

— STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 21 AT 02441000 
02443000 02444000 

— STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 21 AT 02446000 
O2448OOO 02449000 

'- INTEGER -- DECLARED IN SEGMENT 25 AT 0?957500 
*02960500**02961000^ 02961500 ♦O2964OOO* 02966500 

— BOOLEAN -- DECLARED IN SEGMENT 28 AT 02981500 
♦02982500* 02983000 02983500 02984000 02984500 

•• INTEGER •• VALUE PARAMETER •- DECLARED IN SEGMENT 3 AT 03050000 

— INTEGER -• VALUE PARAMETER -- DECLaRED IN SEGMENT 3 AT 04311000 
04311030 04312000 04318000 

•- STREAM VARIABLE -- DECLARED IN SEGMENT 38 aT 05068000 

♦05074000* 05061000 ♦05086000^ 
•"" REAL •- DECLaRfD iN SErMeNT 45 AT O54O1OOO 

♦05402000^ O54O21OO 05403000 05404000 05405000 05409000 ♦05409300*^05409400^ 05409500 
••■ REAL •- DECLARED iN SEGMENT 46 AT 05414000 

♦054?5400^ 05426000 05428000 ♦05430500^ 05431000 

— STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 71 AT 08999075 
08999100 

•• STREAM VARIABLE — VALUE PARAMETER *• DECLARED IN SEGMENT 80 AT 09364000 
09369000 

— REAL -- DECLARED iN SEGMENT 81 AT 093?3020 

— REAL — DECLARED IN SEGMENT 88 AT 120O4OOO 
♦12044000^ 12047000 

•- REAL " VALUE PARAMETER "- DECLARED iN SEGMENT 3 AT 12101000 
12106000 12117000 

— REAL — DECLARED IN SEGMENT 90 AT 13i99000 
♦13200000^ 13201000 13202000 13203000 13204000 13205000 13206000 13207000 

•- REAL -• DECLARED IN SEGMENT lOO AT 14163500 
♦14l«6500^ 14168000 

— REAL " DECLARED IN SEGMENT 110 AT 16067000 
*16070000^ 

-• INTEGER -• DECLARED IN SEGMENT 117 AT 16364000 
16393000 16394000 
'ABLE -- INTEGER PROCEDURE -- DECLARED IN SEGMENT 3 AT 02635000 

♦ 02920000^^0?924000^ 0292/000 0500?000 05003000 05221000 0522'kOOO 0/066000 0/39/210 O/4O1OOO O/6O0950 



07604020 07748000 
14516000 1509U00 
164fl2300 
TAKp "• RrAL PROcFDURf ' 
TAKE •• RrAL PROCEDURr ' 

0200ie?o 

07090000 
13226000 
13365000 

14320000 
14451200 
16172000 



07751000 
15091600 

■ OFCLaRFD 
DFCLARFD 



07768130 
15091800 



10263400 
15184750 



IO282OOO 
15164B00 



12020000 
15184850 



l?n2000 
15276010 



13753100 
15301900 



13761100 
15302000 



IN 
IN 



SEGMFNT 
SEGMFNT 



3 
3 



AT 
AT 



03053000 
05005000 



FORWARD AT 01717700 



TaILYV •'• 



TAN 



05124000 
07527000 
13257000 
14084000 
14411200 
15376300 



05131000 
07529000 
13279000 
14088000 
14415200 
16070000 



05189000 
07539000 
13284000 
14118000 
14425000 
16089000 



06002000 
07601000 
13286000 
14168000 
14430000 
I6138OOO 



15092200 
15185300 
15290000 
15376300 



06104300 
09133900 
13348000 
14259150 
14438000 
16139000 



15092600 
15185500 
15295100 



VALUE PARAMETER — DECLARED 
IN SEGMENT i2 AT 02210000 



0928?000 17002500 
IN SEGMENT 3 AT 



02188000 
- OCCURS AT 02219250 



02001810 02001820 02724000 02725000 *05006000* 

07042000 07090000 07098000 07412000 07441000 

10263110 13226000 132|?9000 13249000 13255000 

13364000 13365000 13408000 13677200 13767000 

14310000 14320000 14333300 14352000 1*388100 

14448000 14451200 14470000 14463200 14483400 

16166000 16172000 16254000 16260000 16449000 
TAKFFRST — RfaL PROCEDURE — nFCLAREO iN SfGMENT 3 AT 05188000 

•05189000* 05222000 06197000 07435000 

TALL -- Real -- declared in segment 107 at 15072000 

♦15077000* 15080000 *15083000* 15O85OO0 15085200 15086400 15086800 15090600 

15098000 15100000 15100600 15IOI6OO 15103400 15128100 15184400 15185200 

15187300 15255000 15267000 15276020 15276060 15276080 15276090 15276210 

15301200 15301500 15304000 15304200 15305300 15305500 15306200 15306400 

DEFrNr " DrrLARFn in sfgment 3 at 01239000 

16319000 16341000 
DEFINE -- DECLARED IN SFQMFNT 108 aT I60i4000 

16213000 
TAPE — FtLE -- DECLARED iN SEGMENT 3 AT 01561000 

01835800 0?20i750 02452000 0?454000 02457000 
TAPE — STREAM VARIABLE 

02188500 
TAPELaST — LABEL -- DECLARED 

02210750 
TBUFF •• REAL ARRAY .- DECLARED IN SEGMENT 

02201750 02202000 02456000 0?457000 
TBI — BOOLEAN — DECLARED IN SEGMENT 3 AT 
♦07506000**07507000* 07516200 07518000 
TBI -- BOOLEAN -- DfCLaRFD IN SEGMENT lOl 

*14206000* 
TCLASS -- INTfgeR " DfCLARfD iN SEGMENT Il6 AT 16314000 

*l63i5000* 16317000 16324000 16328000 16334000 16341000 *16348000* 16349000 16350000 16352000 
TCOUNt •• INTEGER -- DECLARED IN SEGMENT 3 AT 01566000 

02251000 02252000 *02758000**02790000* 02796000 02798000 02803000 
TEOOC -" STREAM VARTArLe "- NaMf PARAMfTER -- DECLARED IN SEGMENT 3 AT 

13686000 13703000 13706000 
TeMPL — tNTfGfR — DECLARED IN SEGMENT 3l aT O4I66OOO 

♦04172000* 04175000 04184500 O4I86OO0 
TEMPI — STREAM VARiABLF " DECLARED IN SfGMENT 3 AT 02001860 

02001866 02001868 02001890 
TEMP2 •• STREAM VARiArLE "- DECLARED IN SfGMFNT 3 AT 02001860 
TEN .- REAL ARRAY -- DECLARED iN SEGMENT 3 AT 0i340000 

02796000 0?799000 O28O3OOO O2826OOO O2833OOO O2835OOO 
TEST — PROCEDURE •- DECLARED IN SEGMENT 69 AT 08041000 

OBO51OOO 08131000 06220000 
TeSTcoDE -- DEFINE -- DECLARED IN SEGMENT li4 AT 16192000 

16211000 16212500 
TeSTLeV — DEFINE -- DECLARED IN SEGMENT t05 AT 14384100 

14387000 14389000 14411300 14415300 14451000 14461100 
TESTVOID -- LABEL — DFCLARfD IN SEGMENT l2 AT 02210500 — OCCURS AT 02234000 

02232500 , 
THENBRANCH -- INTEGER — DECLARED IN SfgMfNT 53 AT 06295000 
♦06297000* 06301000 



3 AT 01561056 

070?5030 
01457000 

♦10243000**10260000* 10275000 
AT 14204000 



*0 28 10000**0 28 17000* 
13683000 



O2838OOO 02840000 *09041000* 



14063000 
15302100 



06191000 
09134100 
13362000 
14269600 

14446000 
16163000 



15095600 
15186800 
15301000 



thfnv -- nrriNf: -^ declared in sfgment 3 at 01256OOO 

06411000 16P17000 
THERE •- STREAM VARIABLE -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 01737350 

0l737a50 
THI •- REAL — DECLARED IN SEGMENT 3 AT 0i689000 

*022«50000* 0??55000 0??56000 0?257000 02785000 02797000 02799000 OpBOOOOO 
THIRD •- tNTEGFR "- DECLARED IN SEGMENT 5« aT 063HOOO 

*06315400**06316400**06320200* 06320400 *06326000* 06327000 06328000 06332000 
TlMpl -• RfaL -• DFcLaRFD in SfgMfNT 3 AT 01300000 
01B28000 09385000 ♦ 1 64f 5200**17091 165* 

TiMiNns '" Real aRRay •• decLarfd in sfgmfNt ii9 at 17002012 

* 17002040** 17002075** 17022300* 17O548OO 1 70550 lO * 1 7080 1 00** 1 709 1520** 1 7094410** 170955 10** 17096350* 
TL -• INTfGER — DECLARED IN SfgMeNT 30 AT 04118000 

♦04119000* 04124000 
TL -- INTfgER •• DECLARED IN SEGMENT 60 AT 07483000 

*07485000* 07487000 
TL •- REAL •- DECLARED IN SEGMENT 9l AT 13221000 

*13?58000* 13277000 
TUCR — INTEGER — DECLARED IN SEGMENT 3 aT OI33OOOO 

*02?02050* 02202060 02202070 02224500 *02456000* 

tlcR •• Real — namf parameter "- declared in segment 12 at 02202750 

02202500 02203500 02204000 

tlo — Real — declared in segment 3 at Oi6890oo 

*02?50000* 02255000 02256000 02^85000 02796000 02797000 02799000 O28OOOOO 
TOgGLfV — DEFINE -- DECLARED IN SEGMENT 3 AT 0l2«5000 
TOLOC -• STREAM VARIABLE -- NaMf PARAMETER -- DECLARED IN SEGMENT 73 AT 09005000 

09006000 
TOP -- LABEL, -- DECLARED IN SEGMENT 47 AT 05439000 — OCCURS AT 05452000 

05445000 
TOTALNO — INTEGER -- DECLARED IN SEGMENT 3 AT 01000860 

02192000 *0?l92500*»02l93000* 02234800 •02582000** 1 7004500* 17045000 
TOV -• DEFINE •- DECLARED IN SfgMeNT 3 AT 01257000 

07505000 07552000 16252000 16437000 
TOWARDS -- INTEGER -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 03037000 

O3O36OOO 
TOWARDS -- INTEGER -- VALUE PARAMETER — DECLARED IN SEGMENT 3 AT 04116000 

04114000 04115000 04ll9500 O4I2O1OO O412O2OO 04120500 
TRB •- DEFINE -- DECLARED IN SEGMENT 3 AT O1682OOO 

04318000 
TRNSFfR — DEFINE -- DECLARED IN SEGMENT 3 AT 0i25l000 

16379000 
TRP •• DEFINE -- DECLARED IN SEGMENT 108 AT I60l9000 

16383000 
TRUTHV "• DEFINE -- DECLARED IN SEGMENT 3 AT O12O8OOO 
TRW -• DEFINE -• DECLARED IN SEGMENT 106 aT I44i9000 
TSSiNTYPE -" DEFINE -- DECLARED IN SEGMENT 3 AT 0i56l430 

O943OO6O 
TSSTOg "• BOOLEAN -- DECLARED IN SEGMENT 81 AT 09393020 

*09fli4026* 09430050 
TSUBLEVEL — REAL -- DECLARED IN SEGMENT 98 AT 14029000 

♦14477000* 14492000 
TURNOnSTOPLIGHT -- STREAM PROCEDURE -- DECLARED IN SEGMENT 3 AT 02011000 

02202070 02214500 022i8250 02235750 02369000 02717000 02905000 
TWXa — RfaL array — DECLARED IN SeGMeNT 3 AT 01561700 

05350180 O535O3OO 13677400 13677500 
TYPE — RfaL -- VALUE PARAMETER " DFCLaRfD IN SEGMENT 3 AT 03055000 
TYPf •"• INTEGER -" VALUE PaRAMfTER *- DfCLARED IN SeGMeNT 3 AT 05247000 



TYPE ■ 
TYPE ' 
TYPE • 
TYPE ' 
TYPE ' 
TYPERpI 

TYPEV 

TYPrV 
TYPEV 

T! 

t: 
T: 
T; 
t: 
t: 

TI 

t: 

t; 
t: 
t: 

T: 

T- 



T2 
T2 

T2 

T? 



0B?45000 
INTEGE 

06399000 
REAL 

13314000 

Real 

13714000 

SWITCH 

16477000 

STREAM 

17049300 

*•"• DEE 

02001695 

17092300 

- REAL 

13380000 

14294000 

• REAL. 
03069000 

• REAL 
14164000 

Real — 

13381000 
STREAM V 
02001874 

REAL "- 

04280500 

INTfGER 

04550000 

REAL •- 

05088000 

Real — 

06072000 
06108000 

Real — 

06185000 

real — 

06197000 

Real — 

07435000 

Real -• 

07566000 

Real — 

08179000 

STRfAM V 

13A850C0 

REAL -• 
15087800 

15185100 

15300700 

15376700 

Real -- 

STRrAM V 
02001874 
iNTrGER 
04550000 
REAL -- 



05246000 

R '•- nrc 

•'• VALUE 
13315000 

■»- Value 

137'15000 

LABEL -- 

VARIABLE 

INE — D 
07598i00 

17092900 

-- DECLA 

♦•13389000 

* 14319000 
— VALUE 

03070000 

"- DErtA 

* 14165000 

DECLARED 

* 13383000 

aRiable - 

* 02001876 
DECLARED 

* 04281000 

-- oecLa 

* 04551000 

DECLARED 
♦♦05091000 

DECLARED 
m 06077000 

* 06110000 

DECLARED 

* 06187000 

DECLARED 

* 06206000 

DECLARED 

* 07436000 

DECLARED 

* 07572000 

DECLARED 
♦♦06193000 

aRiable - 

* 13707000 

DECLARED 
15089?00 

15185600 

15302300 



I 05248000 05249000 05250000 05253000 
LARFD IN SEGMENT 53 AT 06295000 

parameter — DECLARED IN SEGMENT 3 AT 13316000 

13333500 13338000 13342000 

PARAMETER -" DECLaREO IN SEGMENT 3 AT 13716000 

13729000 

DECLARfD IN SEGMENT 108 AT 16476000 

-- NAME PARAMETER -- DECLARED IN SEGMENT 124 AT 17047300 

ECLARED in SEGMENT 3 AT 0i007420 

07660600 08178100 l33i0525 143l2l00 15091200 151847OO 16l59l00 I63l8500 17092000 

RED IN SEGMENT 3 AT O16IIOOO 

♦ 13390000 ♦1409i000^^l4l6l0l0^^l416ll20^ 14162000 ♦1428l000^^ 14284000^ 14285000 ^14292000^ 

Parameter •- declared in segment 3 at 03071000 

RED IN SFGMeNT 100 aT 14163500 

14167000 
IN SegMfNT 3 AT 01693000 

133B9000 ♦I416i000^^l4l6l020^ 14161040 
- DECLARED IN SfGMfNt 3 aT 02001860 

IN Segment 34 at 04278000 

04281500 ♦04284000^ 04284500 04285000 

RED IN Segment 36 at 04502000 

IN SEGMfNT 38 AT 05049000 

* 05096000 ♦05097000^^05099000^ 
IN SfGMfNT 49 AT 06062000 
♦06079000^ 06080000 ♦06081000+ 06082000 06087000 06089000 ♦06l04200^ 06104600 ♦06107200^ 

06110100 

IN Segment 5i at 06ie40oo 

♦06189000+ 06191000 

IN Segment 52 at 06196000 

06207000 
IN SfgMfNT 59 AT 07427000 
♦07440000+ 07442000 07443000 

IN Segment 64 at 07562000 

07573000 07575000 ^07577000+ 07579000 07583000 07585100 

IN Segment 69 at O8173000 



14161120 



♦ 08202000 08203000 08204000 082050 
- DECLARED IN SfgMfNt 3 aT 13684000 
13^11000 



00 08206000 08207000 08225000 



dfcUared 
aRiab^e • 

♦ 02001876 

— oecLa 

♦ 

declared 



1 J- i 1 MVV 

in Segment io7 at i5o73ooo 

15092800 15O954OO 15095700 t5096000 15096400 15097600 15103400 15183400 I5l84000 

15185900 151B61OO 15186700 15187300 152^6060 152^6070 15276150 15276210 I5300l00 

15302800 153O31OO 15303800 15305000 15307000 15307200 ♦15376300++15376500+^15376600+ 



IN SfGMfNT 3 AT 01693000 
■ DEcLaRfD in SfgWfNT 3 AT 02001860 

RED IN SEGMENT 36 AT 04502000 

IN SfGMENT 38 AT 050rt9000 



•0509?000* O5O930OO 05095000 05098000 
T? — REAL •• OrCLARED IN SeCMENT (i9 AT 06062000 

♦06072000* 06074000 06075000 06079000 *06080000* O6O81OOO *06084000* 06087000 06089000 #06090000* 06092000 

*06093000* 06099}00 06099200 *06104300* 06l0ft400 *06 106000**06 106200* 06110200 
T2 •• REAL -- OFCUAREO IN SEGMENT 51 AT 06184000 

*06185000* 06189000 ♦Oei 90000**0619l000* 
T2 — Real — OFCLARFD in SFGMfNT 64 at 07562000 

*07583000**07585000* 07586000 

T2 — Real -- dfclarfd in sfgMfnt 67 at 07657500 

♦07663006* 07668500 076*9000 0767l500 

T2 •• Real -- declareo in segment 69 at oeuaooo 

*08l98000* 08208000 
T2 — STREAM VARIABLE -- DECLARED IN SeGMfNT 3 aT 13684000 

-C13686000* 13694000 13698000 
T2 -- REAL -- DECLARED IN SEGMENT 107 AT 15074000 

15087600 15096000 150*7600 15103400 15183400 15185900 15186700 15187300 15276070 1S276150 15276210 
15300100 15303100 15303800 15307200 *15376300* 15376400 
T3 •• REAL *• DECLARED IN SEGMENT 38 AT 05049000 

*0509100Q« 05092000 *05093000* 05094000 05096000 #05098000* 

t3 — Real — dfcLarfo in sfgMfnt 69 at O8173000 

♦08199000* 08209000 
T3 — STRfAM VARIABLE -" DEcLARFD IN SegMfNT 3 aT 13684000 
13689000 13697000 13700000 13710000 

T4 •• Real -- declared in segmfnt 38 at 05049000 

♦05095000* 05096000 
T4 -• real -- declared IN SEGMENT 69 AT 08173000 

♦08200000* 08210000 
U — REAL " VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05411100 
U -• REAL " VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05437000 

05440000 05441000 05443000 05446000 05454000 05457000 05458000 
UNHOOK •- PROCEDURE — DECLARED IN SEGMENT 3 AT 13353000 -- FORWARD AT 01626000 

13305300 
UNKNOwNtD — DEFINE -- OECLaRED IN SEGMENT 3 AT 0ll77000 

06151000 
UNTtLV — DEFINE -- DECLARED IN SEGMENT 3 AT 0J226000 

O7O18OOO 07485000 O76466O3 O8II3OOO 08l?8000 O8184OOO 
UPDATeTtMES •- PROCEDURE -- DECLARED IN SfGMENT 119 AT 17002050 

17022200 17091175 I7ll9i00 
UPPER •• REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05299000 

05297000 05298000 05304000 
USeROPINX •• DEFINE -• DECLARED IN SEGMENT 3 AT 01001172 

02335000 02339000 02353000 02357000 02600000 09414022 

useswttch — SWITCH Label — declared in segment 12 at 02210750 
02212000 

USFTHfSWITCH •- LABEL — DECLARED IN SfGMfNt 12 AT 02210250 -- OCCURS AT 02211750 

O22281OO 02228i50 022295.00 0223l500 02232250 02234000 02234600 O2235?50 
V -- OWN REAL -- DECLARED IN SEGMENT 69 AT OBOlOOOO 

08078000 08099000 O6I81OOO 08188000 *08225000**08227000* 
VAL -• STREAM VARIABLE -- NAME PARAMETER — DfCLARED 1N SEGMENT 3 AT 01741200 

01741300 
VALTOr — STREAM VARIABLE -- VALUE PARAMETER — DECLARED IN SEGMENT 124 AT 170*7350 

17047450 17049430 
VALUEV — DEFINE "• DECLARED IN SEGMENT 3 AT 01^58000 

14341000 
VARIABLE -- PROCEDURE -- DECLARED IN SegMfNT 3 aT 15070000 -• FORWARD AT 03038000 

O614OOOO 06164000 07080000 07058000 07073000 07083000 07402000 07739000 08228000 12037000 l5l87600 

15304700 15377000 



VBtT -- ROOUfAN -- nfClARFn IN SEGMENT 57 AT 07039000 

*07043000* 07045000 
VO -- DEFINE •- DECLARFD IN SEGMENT 3 AT OllSOOOO 

07043000 13203000 
VOIOBTT — DEFINE -- DECLARED IN SEGMENT 3 AT OtOOllSO 

02231500 02*15000 
VOIDCR -' REAL -- DECLARED IN SEGMENT 3 AT 01785000 

02231750 *02232000**024l0500* 02*11000 
VOIDING -- DEFINE -- OFCLaReD iN SEGMENT 3 AT 0i00l450 

02231500 
VOlDPLACE — Real -- declared in segment 3 at 0i785000 

*02232000* 0?4l0500 02*12000 
VOIDRaNgE — ALPHA •- DECLARED IN SEGMENT 19 AT 02365200 

02410000 02411000 02412000 02*85000 02*86000 02*87000 
VOiOTaPF — DEFINE -- DECLARED IN SEGMENT 3 AT 01001*60 

02228100 02232500 
VOtOTBIT — DEFINE -- DECLARED IN SEGMENT 3 AT 01001160 

02228100 02232500 02*90000 
VOIDTCR •• REAL — DECLARED IN SEGMENT 3 AT 01785000 

02228125 02228i50 02233000 *02233500**02*85500* 02*86000 
VOidTPLaCE " REAL -- DECLARED IN SEGMENT 3 AT 01785000 

♦02233500* 02*85500 02*87000 
VONf — BOOLEAN — DECLARED IN SEGMENT 3 aT 01590000 

♦13203000**! 33*1000* 13373000 ♦16000*00* 
VP •• STRFAM variable -- NAME PARAMETER -- DECLARED IN SEGMENT 3 AT 01756000 

01761000 01780000 
VReT -- OWN Real -- OECLAREO in segment 69 AT 09010000 

♦08054000* 08077000 *08176000* 08198000 *08208000* 08211000 08224000 ♦08228000* 
W — INTEGER -• Value PaRaMfTeR •• DECLaRfD in segment 3 AT 01717700 

w •• STREAM Variable -- value parameter -- declared in segment 3 at 02054000 

02055000 
w — stream variable -- namf Parameter -• declared in segment 42 at 05309000 

0531 lOOO 
W — STREAM variable -- VALUE PARAMETER •- DECLARED IN SEGMENT 96 AT 13673100 

13673250 
WAITINGFORFWOREF -- OWN BOOLEAN — DECLARED IN SEGMENT 129 AT 17091110 

*17Q92l00* 17093000 ♦17093200^ 
WD — STREAM VARIABLE -- VALUE PARAMETER -- DECLARED IN SEGMENT 73 AT 09005000 

09006000 

WHAT — Real -• declared in segment 82 at 09393080 

♦09393170* 09393180 09393190 

whatisit — Label -- declared in segment i9 at o2362ooo — occurs at 02578000 

0236*000 02365000 02379000 02398000 02*75000 02517000 02568000 
WHILESTMT -- procedure •- DECLARED iN SEGMENT 3 AT 07*90000 

07*96000 07757000 
WHiLEV -- DEFINE " DFCLAREO IN SEGMENT 3 AT 0l?24000 

08113000 08133000 06139000 
WHO — REAL — DECLARED IN SEGMENT 82 AT 09393080 

*093931l0* 09393130 09393170 *09393i90* 09393200 
WHOLE •- REAL •- DECLARED IN SEGMENT 59 AT 07*27000 

♦07430000* 07432000 07*88000 07*39000 ♦07*41000^ 07442000 0744*000 
WITHV •• DEFINE "- DECLARED IN SEGMENT 3 aT 01259000 
WOP — RfaL ARRAY " DFCLaRfD IN SEGMENT 3 AT 01371000 

0253*000 *02536000* 0*210500 0*281000 04281500 O4284OOO 0*284500 0*285000 
WORD -- Real -• value parameter -" DECLaRFD in segment 3 AT 0*1*2000 

0*1*7000 0*1*9000 

woro -- STREAM Variable -- naMf PaRaMeteR -- declared in segment 3 at 0*270000 



04973000 
WORD -« REAL -- VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 05008000 

05009000 
WOROCOUnT — REAL -- DECLARED IN SEGMENT 92 AT 13301000 

♦133020O0* 13307000 13310000 13312000 
WRiTEaX -- STREAM PROcEDURE -- DECLARED IN SEGMENT 57 AT 07038100 

07086300 
WRITELINE — DEFINE — DECLARED IN SEGMENT 3 AT 02161000 

02195000 02195750 021»6590 022ia200 022?8750 0^421000 04150000 0S039600 05046000 05097500 05099000 

05325490 06123000 07025020 07086500 09384500 09387000 09389500 13653500 13676000 
WRITEOUT — STREAM PROCEDURE " DECLARED iN SEGMENT 49 AT 06064000 

06120000 
WRITEPRT -- PROCEDURE — DECLARED IN SEGMrNT 3 AT 05325010 

05325500 05376100 
WRITERROR -• STREAM PROCEDURE -- DECLARED IN SEGMENT 37 AT 05016000 

05031000 05044000 
WRrTNrW — BOOLEAN STREAM PROCEDURE "- DECLARED IN SEGMENT 3 AT 02016000 

♦02020000* 02194000 
X — STREAM VARIABLE " NaMf PARAMETER -- DECLARED |N SEGMENT 38 AT 05067000 

05072000 05074000 
X •• REAL -- DECLARED IN SEfiMENT 83 AT 09^93270 

♦09393400* 09393410 093934?0 09393430 
X — REAL — VALUE PARAMETER -- DECLARED IN SEGMENT 3 AT 13591000 

13589000 13590000 I39f3000 
XBIT — INTEGER — VALUE PARAMETER •• DECLARED IN SEGMENT 19 AT 02321000 

02327000 02335000 02339000 02353000 02357000 
XCH •- DEFINE — DECLARED IN SEGMENT 3 AT 0)675000 

04^07000 06203000 08065000 08123000 08228000 12054000 15100400 15303900 
XINFO -• REAL ARRaV •• DECLARED IN SEGMENT 3 AT 01007245 

02001660 02001695 02001795 0200l8l5 ♦0200lB22^^1 33 10200* 13310350 *13310950* 
XIT •- DEFINE -- DECLARED IN SegMeNT 3 AT 01676000 

13743000 

XfT -• Label •- declared in sec.ment 12 at 02210500 -- Occurs at 02237750 

02213250 02214750 
XlT -- stream label •• DECLARED IN SEGMENT 43 AT 05325080 — OCCURS AT 05325430 

053?5340 05325350 053g5370 05325380 05325390 05325400 05325410 
XIT -- Label -- declared 1N segment 66 at 07646436 -- OCCURS AT 07646674 

07646458 
XITR -• DEFINE -" DECLARED IN SEGMENT 3 AT 01430000 
XLUN — INTEGER — DECLARED IN SEGMENT 3 aT 01007380 

♦133l0450^ 16495300 17004500 *17004600* 17022300 *17025100**1 7025300* 17025400 *17043000* 
XMaRK •• nEFlNE -- DECLARED IN SEGMENT 3 aT 01007455 

07598100 07660600 08l78l00 13310525 I43l2l00 1509i200 15184700 I6l59i00 I63i8500 

xmas — Real -- value parameter -- declared in segment 8i at 09393050 

09393110 09393130 09393140 09393l70 *09393l80* 09393190 09393200 
XMODE -- INTEGER -- DECLARED IN SEGMENT 3 AT 01001530 

02328000 *02332000**02367000**02383000**02385000+ 02408000 02419100 02425500 ♦02478000^ 02483000 02525000 

02577000 
XMODEO -- LABEL -■ DECLARED IN SEGMENT 20 AT 02325000 — OCCURS AT 02329000 

02326000 

xmodei -- Label -- declared in segment 20 at 02325000 •- occurs at 02333000 

02326000 

XM00E2 "" Label — declared in segment 20 at 02325000 -- occurs at 02337000 

02326000 
XM0DE3 -• label -- DECLARED IN SEGMENT 20 AT 02325000 .- OCCURS AT 02341000 

02326000 
XM0DE4 •- LABEL -- DECLARED IN SEGMENT 20 AT 02325000 .- OCCURS AT 02355000 



0?396000 

XRFF -- DFTINE 

0?8'???00 

15091200 

XRFFAYl -- RCAL 

02001805 

17095000 

XRFFAY2 -- RfaL 

02001680 

•17003000* 
XRfFBTT -- OFFI 

024t9l00 

15090600 
XRFFDUMP -- nFF 

13283500 
XRFFINFO -- DEF 

02001660 
XRFFINFO -- OFF 

17025100 
XRfFIT — DEFtN 

02882200 

XRfFPT " INTfG 
02001670 

15184700 
4.17094600* 
Y •- RFAU "■- 

09393290 
Z •- REAL -• 

13746000 

Z -• tNTfofR - 

*06099100* 
ZEFRO -- STREAM 

07660500 
ZPl -- DEFINE 



0759 
1518 
ARRA 

♦ 0200 
1709 

aRRa 

♦ 0200 
1700 

Nf - 
0288 
1509 

INE 

1444 
INE 

0200 

INE 
1702 

E -- 
1331 

ER 

*0200 
1615 
1709 

VALUE 
*0939 

dfcLa 

♦ 1441 
- OE 



dfcla 

8i00 
4400 

Y WW 

1815* 
5300 
Y -- 
1695* 
4000 

- or 

2200 
1200 

n 
5i00 

-- n 

1695 

-- n 

5300 

DFC 
0575 

- OF 
1685* 
9i00 
5900 

paRa 

3330* 
Rfd T 
1?00* 
CLARF 



RED IN SERMEmT 3 AT 
07660600 08l7B)00 
15184700 
DECLARED 

♦02001820* 
17095320 



0l00i46l 
I33i0050 13310525 
15301000 16159100 16318500 
IN SFGMfNT 3 AT 01007145 
0?00l8?l ♦17084000* 17091900 



13310580 
16495300 



13341200 14312100 i4469l00 15090600 



17093850 17093950 17094050 17094100 17094700 



DErLARrn in SrOMrNl 3 aT 01007030 
07598 100**07660600**08 178 100**1 33 10525** 14 312100**1 509 1200^« 15 184700** 16 159 100**1 63 18500* 
17076000 17079000 



13310525 
16318500 



13310580 
16495300 



13341200 I43l2l00 i4469i00 



17076000 17079000 

cLaRfd in Segment 3 aT Oiooii7o 

07598100 07660600 O81781OO I33l0050 
15184400 15184700 15301000 16159100 
ECLARFD IN SEGMENT 3 AT 01007470 

ECLARED in SEGMENT 3 AT 01007481 

02001795 O2OO1815 02001822 13310200 
ECLARED IN SEGMENT ll9 AT 17002005 

17080000 
LaRED IN SEGMENT 3 AT 01007440 

14469100 15090600 15184400 15301000 
CLaRfD JN SEGMENT 3 aT 0i007355 

02001695 *0200i705* 07598i00 07660600 08i78i00 13310525 ♦13341300* I43l2l00 

16318500 *17003000**17004600**17074000**17077000* 17079000 ♦17084000* 17091400 

17096100**17096400**171 18OOO* 



13310350 13310950 



* 17096100**1 7096400**17118000* 

Meter •- dfclaReo in sfgment 

09393350 09393400 *09393430* 
N segment 3 AT 01490000 
♦14415200* 14457000 ♦14506000* 
IN SEfiMENT 49 AT 06063500 



15091200 
17094200 



81 AT 09393240 
09393440 09393450 



DECLARED tN SEGMENT 67 AT 07658500 



PROCEnURF - 
07662000 
•- DECLARED IN SEGMENT 3 AT 0i677000 



CROSS REFERENCE STATISTICS 



PHASE ONE - SORT 1773 IDENTIFIERS 
1109 ELAPSED TIME CMINJSEC) 
0J35 PROCESSOR TIME 

0i5i I/O Time 
Phase two - sort 11995 references 

2«03 ELAPSED TIME fMlN«SEC) 
1153 PROCESSOR TIME 

Ofjo I/O Time 

PHASE Three - PRINT CROSS REFERENCE ( 3686 LINES) 
l«16 ELAPSED TIME (MlNISEC) 
0151 PROCESSOR TlMp 

0141 I/O Time 
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